求救!怎样把dwg文件的汉字做成txt格式?
润册
润册 Lv.2
2007年12月23日 13:37:36
只看楼主

怎样把dwg文件的汉字做成txt格式?还有三天就交作业了,HELP!

怎样把dwg文件的汉字做成txt格式?
还有三天就交作业了,HELP!
免费打赏
施工cad
2007年12月24日 14:40:24
2楼
复制下来,粘到TXT文档中啊
回复
song423
2007年12月27日 14:15:24
3楼
复制下来,粘到TXT文档中啊
回复
zhynt
2008年01月21日 21:13:03
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”命令执行。
回复

相关推荐

APP内打开