怎样把dwg文件的汉字做成txt格式？还有三天就交作业了，HELP！
怎样把dwg文件的汉字做成txt格式？
还有三天就交作业了，HELP！
2楼
复制下来,粘到TXT文档中啊
回复
3楼
复制下来,粘到TXT文档中啊
回复
4楼
;;;;
;;;; 将图形文件中选择的文本输出到文本文件中 (*.TXT)
;;;;
(defun dxf (code elist)
(cdr (assoc code elist))
)
(defun C:TO (/ fn f ent n i x el txt)
(if (= txtfn nil)
(setq fn (getfiled "选择输出文件" "" "TXT" 1)))
(setq f (open fn "w"))
(setq ent (ssget))
(setq n (sslength ent))
(setq i 0)
(initget 5)
(repeat n
(setq x (ssname ent i))
(setq el (entget x))
(setq i (+ 1 i))
(setq txt (dxf 0 el))
(if (= txt "TEXT")
(progn
(setq txt (dxf 1 el))
(write-line txt f)
)))
(close f))
将以上代码保存成"lsp"文件，在cad中加载，用“to”命令执行。
回复
