Autolisp para salvar textos do AutoCAD para arquivos

; Salva o conteúdo dos textos (text ou mtext) selecionados em um arquivo.

(defun c:text2arq()

(z1)

(setq arqz (open “c:\\dados.txt” “w”))
(setq n 1)
(setq color 4)
(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 z (cdr ent))
(print z arqz)
(z2)
)
(setq n 0)
)
)
(alert “Fim”)
(close arqz)
(z3)
)
(defun z1()
(setvar “useri1” 1)
)
(defun z2()
(setvar “useri1” 2)
)
(defun z3()
(setq k1 (getvar “useri1”))
(if (= k1 2)
(progn
(while (/= k1 1)
(command “u”)
(setq k1 (getvar “useri1”))
)
))
)

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 AutoCAD, Autolisp. 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