在使用CAD繪圖軟件進(jìn)行工作時(shí)，有時(shí)需要把用文字編輯器寫好的段落文字插入到圖形中，并用CAD的文字編輯命令進(jìn)行修改；有時(shí)也需要把圖形中已有的文字輸出到文件中，以便用文字編輯器進(jìn)行處理。CAD中并沒有直接提供關(guān)于文本插入和文本輸出的命令，遇到這樣的問題該怎么辦？通過剪貼板進(jìn)行OLE方式的復(fù)制與粘貼是無法實(shí)現(xiàn)上述要求的。下面介紹的方法能夠解決在CAD與文字編輯器之間進(jìn)行純文本的導(dǎo)入和導(dǎo)出的問題。
1. 導(dǎo)入文本
雖然CAD中沒有提供插入文本的命令，但是利用多行文字編輯Mtext可以實(shí)現(xiàn)文本插入。在Mtext的對話框中右鍵菜單中有“輸入文字”的功能，可以選擇磁盤上的“.txt”、“.rtf”格式的文件進(jìn)行插入，注意插入文件大小不得超過16KB，這顯得美中不足。還有一種比較麻煩的方法就是利用文字編輯軟件先打開文本，然后在輸入單行文字或多行文字的時(shí)候?qū)⑽淖謨?nèi)容復(fù)制粘貼到CAD中。CAD還可以將默認(rèn)的文字編輯器設(shè)置為記事本或WORD，設(shè)置方法如下：
1、 在選項(xiàng)對話框中設(shè)置。輸入OP命令，打開選項(xiàng)對話框，在“文件”選項(xiàng)卡中找到文本編輯器應(yīng)用程序，可以瀏覽設(shè)置成記事本、WORD的執(zhí)行文件。
2、 直接輸入mtexted命令，回車，輸入notepad，可以將編輯器設(shè)置成記事本，如果想設(shè)置回來，輸入mtexted，回車，輸入“.”，回車，就可以回復(fù)為CAD默認(rèn)的編輯器。
如果要導(dǎo)入文本，無論是粘貼、插入，實(shí)際上都不太復(fù)雜，改變編輯器一般人很少用。
2. 導(dǎo)出文本
如果僅有少量文字需要導(dǎo)出，那么在單行和多行文字的編輯框中，選擇文字進(jìn)行復(fù)制，然后粘貼到文字編輯器中即可。但是如果圖紙中有大量散落的文字需要導(dǎo)出，上述方法就不太適用了。下面給大家介紹兩個(gè)在網(wǎng)上看到的小程序，可以快速將CAD中的單行文字輸出為文本文件（*.csv），這個(gè)文件用記事本或EXCEL都可以打開。
A、選擇文字輸出
可以框選文字進(jìn)行輸出，自動(dòng)將文字保存為*.csv。
(defun c:exx ( / &ss %fir ~fir @tex #si #sn &tex %lay %tex @cl %ctx )
(vl-load-com) (princ "n請選擇要輸出的文字對象")
(if (setq &ss (ssget (list (cons 0 "TEXT"))))
(progn
(setq %fir (strcat "C:\" (vl-filename-base (getvar "dwgname")) ".csv") ~fir (open %fir "w"))
(repeat (setq @tex '() #si 0 #sn (sslength &ss))
(setq &tex (vlax-ename->vla-object (ssname &ss #si)) #si (1+ #si))
(setq %lay (vla-get-layer &tex) %tex (vla-get-textstring &tex))
(if (setq @cl (assoc %lay @tex))
(setq @tex (subst (append @cl (list %tex)) @cl @tex))
(setq @tex (cons (list %lay %tex) @tex))
)
)
(setq @tex (vl-sort @tex (function (lambda (a b) (> (length a) (length b))))))
(setq #si 0 #sn (length (car @tex)))
(setq @tex (vl-sort @tex (function (lambda (a b) (< (car a) (car b))))))
(repeat #sn
(setq %tex "")
(foreach @tx @tex
(if (null (setq %ctx (nth #si @tx))) (setq %ctx "") )
(if (/= %tex "")
(setq %tex (strcat %tex "," %ctx))
(setq %tex %ctx)
)
)
(write-line %tex ~fir) (setq #si (1+ #si))
)
(close ~fir) (vlax-release-object &tex)
(princ (strcat "n成功輸出 " (itoa (sslength &ss)) "個(gè)文字輸出到 " %fir " 中."))
)
(princ "n未選擇文字對象,退出.")
)
(princ)
)
將上面代碼復(fù)制到記事本中，另存為exx.lsp，在CAD中輸入AP命令，加載exx.lsp，加載成功后，在命令行輸入EXX，回車，在圖中框選要輸出的單行文字即可。
B、輸出同圖層文字
可以選擇圖層上的一個(gè)單行文字，就可以將此圖層上所有單行文字都輸出為一個(gè)*.csv文件。
(defun c:ecx ( / &tex &ss %fir ~fir %lay #si #sn )
(if (null vlax-dump-object) (vl-load-com) )
(if (setq &tex (entsel "n請選擇要輸出圖層的文字對象: "))
(if (= (vla-get-objectname (setq &tex (vlax-ename->vla-object (car &tex)))) "AcDbText")
(progn
(setq %fir (strcat "C:\" (vl-filename-base (getvar "dwgname")) ".csv") ~fir (open %fir "w"))
(setq %lay (vla-get-layer &tex) &ss (ssget "X" (list (cons 0 "TEXT") (cons 8 %lay))))
(repeat (setq #si 0 #sn (sslength &ss))
(write-line (vla-get-textstring (vlax-ename->vla-object (ssname &ss #si))) ~fir)
(setq #si (1+ #si))
)
(close ~fir) (vlax-release-object &tex)
(princ (strcat "n已輸出圖層 [" %lay "]中的 " (itoa #sn) " 個(gè)文字到文件 " %fir "中."))
)
(princ "n選擇的不是文字對象.")
)
(princ "n未選擇對象.")
)
(princ)
)
將上面代碼復(fù)制到記事本中，另存為ecx.lsp，在CAD中輸入AP命令，加載ecx.lsp，加載成功后，在命令行輸入EcX，回車，在圖中點(diǎn)取一個(gè)要輸出圖層上的單行文字即可。
上面兩個(gè)程序，不僅AutoCAD可以用，在浩辰CAD這樣的國產(chǎn)CAD中也一樣可以運(yùn)行。
網(wǎng)上還找到一些其他程序，有的類似，有的不太好用，就不再一一介紹了。希望這兩個(gè)工具對大家有所幫助，也感謝編寫這個(gè)程序的人。