Obter e Somar os Comprimentos de Vários Objetos de uma só vez

Continuando com as Rotinas Lisps (Como usar as Rotinas Lisp?)
Mais um exemplo:

;; Soma os comprimentos de todos os objetos selecionados

(defun c:SomarTCS()

(command “undo” “m”)

(setq en 0 k 0 d 0)
(setq o (ssget))
(command “change” o “” “p” “c” “3” “”)

(while en

(setq en (ssname o k))
(command “lengthen” en “”)

(if en (progn

(setq en (entget en))

(setq dt (getvar “perimeter”))

(setq d (+ d dt))

(setq k (+ k 1))
))

)
(print)
(print)
(print)

(command “undo” “b”)

(princ “Comprimento Total = “)
(setq d d)

)

Sobre NilsonRDG

Minha lista de scripts/rotinas em Autolisp, Autohotkey, JavaScript, PHP e VBA. Nilson Rodrigues - Ouro Preto - MG
Esse post foi publicado em Não categorizado. 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 )

Foto do Google+

Você está comentando utilizando sua conta Google+. 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 )

Conectando a %s