Тема: Выбор по объекту
Прграмма выбирает примитивы по таким свойствам как слой, цвет, и типу примитива, и блоки по их имени. выбирает и если цвет не задан. конечно это заново изобретенный велосипед но все же кому нибудь может подойдет.
(defun c:vib_obj (/ sp1 sp2 sp3 sp4 sp_dxf im nab kp)
(while (= im nil)
(setq im (car (entsel "\nУкажите объект :")))
(if (null im) (princ "Невыбраны объекты!" )
(progn
(princ)
(setq sp_dxf (entget im))
(setq sp1 (assoc 2 sp_dxf))
(setq sp2 (assoc 0 sp_dxf))
(setq sp3 (assoc 8 sp_dxf))
(setq sp4 (assoc 62 sp_dxf))
(cond
((/= sp1 nil)
(setq nab (ssget "_X" (list sp1)))
(sssetfirst nab nab)
)
((= sp4 nil)
(setq nab (ssget "_X" (list sp2 sp3)))
(sssetfirst nab nab)
)
((/= sp4 nil)
(setq nab (ssget "_X" (list sp2 sp3 sp4)))
(sssetfirst nab nab)
)
(T "")
)
(setq kp (strcat "Выбрано примитвов+++<"(rtos (sslength nab) 2 0 )">+++" ))
(princ kp)
(setq nab nil)
(princ)
)
)))
