)

　　固然AutoCAD中没有提供插入文本的呼吁，可是操作多行笔墨编辑呼吁“Mtext”可以实现文本插入。在Mtext的对话框中有一个“ImportText…”呼吁按钮，点击后呈现“打开”对话框，在此可以选择磁盘上的“.txt”、“.rtf”名目标文件举办插入，插入后的文本即可用“Ddedit”呼吁举办编辑，留意插入文件巨细不得高出16KB，这显得美中不敷。值得一提的是可以将“Mtext”默认的笔墨编辑器改为“Windows 记事本”可能“Microsoft Word 2000”。选取“Tools”菜单的“Preferences…”对话框，将“Text Editor、Dictionary、Font File Names”目次下的“Text Editor Application”项，由“Internal”改为记事本或Word 2000的磁盘路径，譬喻：C:\Windows\Notepad.exe。通过配置体系变量“Mtexted”也可以实现沟通操纵。

　　假如仅有少量笔墨必要导出，那么在“Ddedit”或“Mtext”的编辑框中，选择笔墨举办复制，然后粘贴到笔墨编辑器中即可。可是假如图纸中有大量散落的笔墨必要导出，活塞杆，上述要领就不太合用了。下面提供的小措施“ExpText.lsp”，可以通过AutoCAD的窗选方法直接将所选笔墨输出到文本文件中去。

　　(setq flnm (getstring “ File name:”))

　　(write-line txt fn)

　　(repeat n

　　)

　　(setq n (sslength s))

　　(setq index ( - n 1))

　　(setq fn (open flnm “w”))

　　措施成立后，通过“Appload”呼吁加载“ExpText.lsp”，在“Command：”后键入EXT回车，大缸筒加工，输入文件名(可带路径及后缀名)、窗选实体(自动过滤非笔墨实体)，此时输出到文件的笔墨实体将按其在AutoCAD实体齐集成立的先后序次及回车换行。

　　(setq index ( - index 1))

　　(setq txt (cdr (assoc 1 ents)))

　　(setq s (ssget))

　　(princ “ 文本导出:EXT”)

　　)

　　(progn

　　(if ( = “TEXT”(cdr ent))

　　在行使AutoCAD画图软件举办事变时，偶然必要把用笔墨编辑器写好的段落笔墨插入到图形中，并用AutoCAD的笔墨编辑呼吁举办修改;偶然也必要把图形中已有的笔墨输出到文件中，以便用笔墨编辑器举办处理赏罚。AutoCAD中并没有直接提供关于文本插入和文本输出的呼吁，碰着这样的题目该怎么办?虽然，通过剪贴板举办OLE方法的复制与粘贴是无法实现上述要求的。下面先容的要领可以或许办理在AutoCAD与笔墨编辑器之间举办纯文本的导入和导出的题目。

　　2. 导出文本

　　;;; ExpText.lsp(defun c:EXT (/ flnm fn s n index ents ent txt)

　　(setq ents (entget (ssname s index)))

　　)

　　(close fn)

　　(setq ent (assoc 0 ents))

　　1. 导入文本