; LISP F40 V1.1
; Alle Elemente werden markiert, welche die Farbe 40, 44, 30, 34 haben oder die RGB Pendants der Farben 30 oder 40.
; Von joern bosse und cadffm vom 03.09.2024
; https://ww3.cad.de/foren/ubb/Forum145/HTML/004979.shtml
;
(defun c:F40 ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 40)(62 . 44)(62 . 30)(62 . 34)(420 . 16744192)(420 . 16760576)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

(defun LayerCheck (aws / AWS1 N VLA-LAYER VLA-OBJ)
  (command "_regen")
  (setq aws1 (ssadd))
  (setq n 0)
  (repeat (sslength aws)
    (setq vla-obj (vlax-ename->vla-object(ssname aws n)))
    (setq vla-layer
          (vla-item(vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
            (vla-get-layer vla-obj))
          )
    (if (and(=(vla-get-freeze vla-layer):vlax-false)
            (=(vla-get-LayerOn vla-layer):vlax-true))
      (ssadd (ssname aws n)aws1)
      )
    (setq n (+ n 1))
    )
  (if (>(sslength aws1)0)
    aws1)
  )