; LISP: Auswahl_nach_Farbe Version 1.1 vom 10.09.2024
; Alle Elemente werden markiert, welche bestimmte Farben haben oder das RGB Pendant dessen Farben.
; Von joern bosse und cadffm vom 03.09.2024
; https://ww3.cad.de/foren/ubb/Forum145/HTML/004979.shtml
;
(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)
  )

; Alle Elemente werden markiert, welche die Farbe 10, 14 haben oder das RGB Pendant der Farbe 10.
(defun c:F10 ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 10)(420 . 16711680)(62 . 14)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 14 haben.
(defun c:F14 ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 14)(-4 . "OR>"))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 30, 34 haben oder die RGB Pendants der Farben 30.
(defun c:F30o ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 30)(62 . 34)(420 . 16744192)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 40, 44, 30, 34 haben oder die RGB Pendants der Farben 30 oder 40.
(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)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 40, 44 haben oder die RGB Pendants der Farben 40.
(defun c:F40o ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 40)(62 . 44)(420 . 16760576)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 40, 44 haben oder die RGB Pendants der Farben 40.
(defun c:F44 ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 44)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 80 haben oder das RGB Pendant der Farbe 80.
(defun c:F80o ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 80)(420 . 4194048)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 80, 90, 94 haben oder das RGB Pendant der Farbe 80+90.
(defun c:F90 ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 80)(420 . 4194048)(62 . 90)(420 . 65280)(62 . 94)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 90, 94 haben oder das RGB Pendant der Farbe 90.
(defun c:F90o ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 90)(420 . 65280)(62 . 94)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )

; Alle Elemente werden markiert, welche die Farbe 94 haben.
(defun c:F94 ( / AWS)
  (if(and
      (setq aws(ssget"_X" '((-4 . "<OR")(62 . 94)(-4 . "OR>")(430 . ""))))
      (setq aws (LayerCheck aws))
      )
    (sssetfirst nil aws)
  )
  )