在使用AutoCAD繪圖軟件進(jìn)行工作時(shí)，有時(shí)需要把用文字編輯器寫好的段落文字插入到圖形中，并用AutoCAD的文字編輯命令進(jìn)行修改；有時(shí)也需要把圖形中已有的文字輸出到文件中，以便用文字編輯器進(jìn)行處理。AutoCAD中并沒有直接提供關(guān)于文本插入和文本輸出的命令，遇到這樣的問(wèn)題該怎么辦？當(dāng)然，通過(guò)剪貼板進(jìn)行OLE方式的復(fù)制與粘貼是無(wú)法實(shí)現(xiàn)上述要求的。下面介紹的方法能夠解決在AutoCAD與文字編輯器之間進(jìn)行純文本的導(dǎo)入和導(dǎo)出的問(wèn)題。

　　1. 導(dǎo)入文本

　　雖然AutoCAD中沒有提供插入文本的命令，但是利用多行文字編輯命令“Mtext”可以實(shí)現(xiàn)文本插入。在Mtext的對(duì)話框中有一個(gè)“ImportText…”命令按鈕，點(diǎn)擊后出現(xiàn)“打開”對(duì)話框，在此可以選擇磁盤上的“.txt”、“.rtf”格式的文件進(jìn)行插入，插入后的文本即可用“Ddedit”命令進(jìn)行編輯，注意插入文件大小不得超過(guò)16KB，這顯得美中不足。值得一提的是可以將“Mtext”默認(rèn)的文字編輯器改為“Windows 記事本”或者“Microsoft Word 2000”。選取“Tools”菜單的“Preferences…”對(duì)話框，將“Text Editor、Dictionary、Font File Names”目錄下的“Text Editor Application”項(xiàng)，由“Internal”改為記事本或Word 2000的磁盤路徑，例如：C:WindowsNotepad.exe。通過(guò)設(shè)置系統(tǒng)變量“Mtexted”也可以實(shí)現(xiàn)相同操作。

　　2. 導(dǎo)出文本

　　如果僅有少量文字需要導(dǎo)出，那么在“Ddedit”或“Mtext”的編輯框中，選擇文字進(jìn)行復(fù)制，然后粘貼到文字編輯器中即可。但是如果圖紙中有大量散落的文字需要導(dǎo)出，上述方法就不太適用了。下面提供的小程序“ExpText.lsp”，可以通過(guò)AutoCAD的窗選方式直接將所選文字輸出到文本文件中去。

;;; ExpText.lsp(defun c:EXT (/ flnm fn s n index ents ent txt)
　(setq flnm (getstring “nFile name:”))
　(setq fn (open flnm “w”))
　(setq s (ssget))
　(setq n (sslength s))
　(setq index ( - n 1))
　(repeat n 
　　(setq ents (entget (ssname s index)))
　　(setq index ( - index 1))
　　(setq ent (assoc 0 ents))
　　(if ( = “TEXT”(cdr ent))
　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　　(write-line txt fn)
　　　　)
　　)
　)
(close fn)
)
(princ “n文本導(dǎo)出:EXT”)

　　程序建立后，通過(guò)“Appload”命令加載“ExpText.lsp”，在“Command：”后鍵入EXT回車，輸入文件名（可帶路徑及后綴名）、窗選實(shí)體（自動(dòng)過(guò)濾非文字實(shí)體），此時(shí)輸出到文件的文字實(shí)體將按其在AutoCAD實(shí)體集中建立的先后次序及回車換行。