Ouça uma das minhas músicas preferidas: , ou o canto de um passarinho: /spam>>

  ♩ ♪ ♫ Música do Dia  ♩  ♪♫

quarta-feira, 15 de agosto de 2012

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



Nenhum comentário: