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;;

Outros artigos:

tecnologia, informática, internet, programas, aplicativos, software, open source, programas livres, freeware, linux, windows, firefox, internet explorer, artigos, análises, notícias, autocad, cad, rotinas, rotinas lisp, lisp, autolisp, intellicad, vídeo, youtube, áudio, mp3, jpg, bmp, gif, pmg, gimp, inkscape, xn view, photofiltre, google, gmail, converter, conversores, editores, host, downloads, p2p, gexo, porntube, redtube, xnxx, mediacoder, 7zip, nvu, blender, programação, programar, php, perl, asp, html, xml, office, mysql, easyphp, gnu, gpl, c, c++, css, web design, tutorial, tutoriais, manual, how to, truques e dicas, truques, scribus, notepad++, pidgin, messenger, mac, mozilla, mplayer, wma, vorbis