AutoCad - AutoLisp - Rotina para seleccionar entidades por cor

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 62 c)
                                (cons -4 "                                    (cons 62 256)
                                    (cons 8 (apply 'strcat (cdr l)))
                                (cons -4 "AND>")
                            (cons -4 "OR>")
                        )
                        (list (cons 62 c))
                    )
                )
            )
        )
    )
    (princ)
)
(prompt "\nDigite: SBC")
;;end code;;