Soma todos os Textos Selecionados

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

; Soma todos os Textos Selecionados

(defun c:SomarTexto()

(setq en 0 k 0 d 0)

(setq o (ssget))

(command “change” o “” “p” “c” “7” “”)

(while en

(setq en (ssname o k))

(if en (progn

(setq ent (entget en))
(setq ent (assoc 1 ent))
(setq dt (read (cdr ent)))

(setq k (+ k 1))
(setq d (+ d dt))
))

)
(print)
(print)
(print)

(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 Arquitetura, AutoCAD, Autolisp, Desenho, Engenharia Civil. 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