Soma textos com sufixos

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

;; Soma textos com sufixos (por exemplo 1m + 2m + 3m) e escreve o resultado no desenho

(defun c:SomaTXTS ()
(setq kr 0)
(setq n 1)
(while (= n 1)
(setq ent (entsel))
(if ent (progn
(command “move” ent “” “0,0” “0,5” )
(command “move” ent “” “0,0” “0,-5”)
(setq nome (nth 0 ent))
(setq ent (entget nome))
(setq ent (assoc 1 ent))
(setq k (cdr ent))
(setq num (strlen k))
(setq num (- num 1))
(setq k (substr k 1 num))
(setq k (atoi k))
(setq kr (+ kr k))
)
(progn
(setq p1 (getpoint “Insert …”))
(command “text” p1 “5” pause kr)
(command “change” “l” “” “p” “c” “6” “”)
(command “move” “l” “” “0,0” “0,-0.3” “”)
(setq n 0)
)
)
)
)

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