Para quem trabalha com AutoCad sabe que é importante filtrar entidades, nomeadamente pela propriedade cor. A rotina SBC, cujo código abaixo publicamos, é excelente e prática para esse efeito. Uma vez chamado o comando SBC basta picar uma entidade com a cor pretendida e todas as demais com essa propriedade passam para a selecção podendo depois ser editadas como mudar de cor, layer, apagar, copiar, mover, etc. É muito mais prática que a ferramenta nativa do AutoCad o Quick Select.
- Como carregar e usar a rotina: Veja aqui.
;;start code;;
;;seleccionar entidades por cor;;
;; by Lee Mac - Cadtutor;;
(defun c:SBC ( / c d e l )
(if (setq e (car (entsel)))
(progn
(setq c
(cond
( (cdr (assoc 62 (entget e))) )
( (abs (cdr (assoc 62 (tblsearch "LAYER" (cdr (assoc 8 (entget e))))))) )
)
)
(while (setq d (tblnext "LAYER" (null d)))
(if (= c (abs (cdr (assoc 62 d))))
(setq l (cons "," (cons (cdr (assoc 2 d)) l)))
)
)
(sssetfirst nil
(ssget "_X"
(if l
(list
(cons -4 "
(cons -4 "
(cons 8 (apply 'strcat (cdr l)))
(cons -4 "AND>")
(cons -4 "OR>")
)
(list (cons 62 c))
)
)
)
)
)
(princ)
)
(prompt "\nDigite: SBC")
;;end code;;
