Somar texto, rotacionar e copiar

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

;; Somar texto, rotacionar e copiar

(defun c:SomaRotCop ()

(setq kr 0)

(setq n 1)

(setq color 3)

(while (= n 1)

(setq ent (entsel))

(if ent (progn

(command “change” ent “” “p” “c” color “”)

(setq nome (nth 0 ent))

(setq ent (entget nome))

(setq ent (assoc 1 ent))

(setq k (cdr ent))

(setq k (atoi k))

(setq kr (+ kr k))

)

(progn

(setq p1 (getpoint “Insert2 …”))

(command “text” p1 “0.15” pause kr)

(command “change” “l” “” “p” “c” “6” “”)

(command “copy” “l” “” “m” p1 pause)

(setq n 0)

)

)

)

)

;; Criador: *codes***@gmail.com – *codes***@yahoo.com.br

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