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

Flexible Renamer

image

Excelente esta ferramenta, Flexible Renamer, mostrando-se muito versátil na tarefa de renomear ficheiros e pastas, com muitas opções e configurações.

Rápido e intuitivo.

[Download]

Remover o Deal Finder com o AdwCleaner

 

 

Veja como remover a praga do Deal Finder (introduz anúncios suplementares e indesejáveis em muitas das páginas visitadas, com especial apetência por fóruns).

image

- Download da aplicação AdwCleaner

- Como utilizar o AdwCleaner

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