Výběr entit dle barvy

Jednoduchá aplikace pro ukázku výběru všech entit dle zvolené barvy. Lze snadno upravit pro výběr na základě jiných vlastností...

---

(DEFUN C:SELCOL()

; Nasteveni cisla barvy (3 = zelena)
(setq COLOR 3)

; Vyber vsech zelenych entit do vyberove mnoziny A
(setq A
  (ssget "X"
    (list (cons 62 COLOR))
  )
)

; vymazani vsech vybranych entit
; Zruste poznamku nize pro vykonani prikazu
;(command "ERASE" A "")
)

---

Soubor ke stažení