Autolisp para verificar se existem objetos com cores diferentes de 1 a 8

; Verifica se existem objetos com cores diferentes de 1 a 8
; Muda cores diferentes para a cor vermelha
; Não funciona se a cor do objeto estiver definida pela layer

(defun c:VerCor()

(setq en 0 k 0)

(setq o (ssget))

(while en

(setq en (ssname o k))
(setq k (+ k 1))

(setq objeto en)

(if en (progn

(setq en (entget en))

(setq dt (getvar “color”))

(setq en (assoc 62 en))
(setq corDoObjeto(cdr en))

(if (> corDoObjeto 8) (progn

(command “change” objeto “” “p” “c” “1” “”)

))
))

)

)

Anúncios

Sobre NilsonRDG

Minha lista de scripts/rotinas em Autolisp, Autohotkey, JavaScript, PHP e VBA. Nilson Rodrigues - Ouro Preto - MG
Esse post foi publicado em AutoCAD, Autolisp. Bookmark o link permanente.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s