Copia cotas de um arquivo e escreve no desenho

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

;; Copia cotas de um arquivo a coloca no desenho e ainda permite que você mova o texto de forma que ele não fique sobreposto a algum objeto já existente

(defun c:ObterCotas()

(setq arq (open “C:\\Nilson\\testcotas.txt” “r”))

(setq cota 0)

(while cota

(setq p1 (getpoint “Ponto “))

(setq cota (read-line arq))

(setq cota (strcat “(” cota “)”))

(command “text” p1 “1” “” cota)

(command “move” “l” “” pause pause)

)

(close arq)

)

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 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 )

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