阅读下一篇
高级autocad工程师绘图技巧.doc1.如何替换找不到的原文字体？2.如何删除顽固图层？3.打开旧图遇到异常错误而中断退出怎么办？4.在AUTOCAD中插入EXCEL表格的方法。5.在Word文档中插入AutoCAD图形的发法。6.将AutoCAD中的图形插入WORD中有时会发现圆变成了正多边形怎么办？7.将AutoCAD中的图形插入WORD时的线宽问题。8.AutoCAD在XP操作系统下打印时致命错误怎么办？9.在AutoCAD2002中移动文字就出错是什么缘故？
回帖成功
经验值 +10
全部回复（3 ）
只看楼主 我来说两句-
zhynt
沙发
;;;;
2008-01-21 21:13:21
赞同0
-
song423
板凳
复制下来,粘到TXT文档中啊
2007-12-27 14:15:27
赞同0
加载更多;;;; 将图形文件中选择的文本输出到文本文件中 (*.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”命令执行。
回复 举报
回复 举报