《在AutoCAD中做純文本的導入導出》是一篇發表在《軟體》上的套用類文章。
基本介紹
- 中文名：在AutoCAD中做純文本的導入導出
- 作者：吳信一
- 發表刊物：《軟體》
在使用AutoCAD繪圖軟體進行工作時，有時需要把用文字編輯器寫好的段落文字插入到圖形中，並用AutoCAD的文字編輯命令進行修改；有時也需要把圖形中已有的文字輸出到檔案中，以便用文字編輯器進行處理。AutoCAD中並沒有直接提供關於文本插入和文本輸出的命令，遇到這樣的問題該怎么辦？當然，通過剪貼簿進行OLE方式的複製與貼上是無法實現上述要求的。下面介紹的方法能夠解決在AutoCAD與文字編輯器之間進行純文本的導入和導出的問題。
1.導入文本
雖然AutoCAD中沒有提供插入文本的命令，但是利用多行文字編輯命令“Mtext”可以實現文本插入。在Mtext的對話框中有一個“ImportText…”命令按鈕，點擊後出現“打開”對話框，在此可以選擇磁碟上的“.txt”、“.rtf”格式的檔案進行插入，插入後的文本即可用“Ddedit”命令進行編輯，注意插入檔案大小不得超過16KB，這顯得美中不足。值得一提的是可以將“Mtext”默認的文字編輯器改為“Windows記事本”或者“MicrosoftWord2000”。選取“Tools”選單的“Preferences…”對話框，將“TextEditor、Dictionary、FontFileNames”目錄下的“TextEditorApplication”項，由“Internal”改為記事本或Word2000的磁碟路徑，例如：C:\Windows\Notepad.exe。通過設定系統變數“Mtexted”也可以實現相同操作。
2.導出文本
如果僅有少量文字需要導出，那么在“Ddedit”或“Mtext”的編輯框中，選擇文字進行複製，然後貼上到文字編輯器中即可。但是如果圖紙中有大量散落的文字需要導出，上述方法就不太適用了。下面提供的小程式“ExpText.lsp”，可以通過AutoCAD的窗選方式直接將所選文字輸出到文本檔案中去。
;;;ExpText.lsp(defunc:EXT(/flnmfnsnindexentsenttxt)
(setqflnm(getstring“\nFilename:”))
(setqfn(openflnm“w”))
(setqs(ssget))
(setqn(sslengths))
(setqindex(-n1))
(repeatn
(setqents(entget(ssnamesindex)))
(setqindex(-index1))
(setqent(assoc0ents))
雖然AutoCAD中沒有提供插入文本的命令，但是利用多行文字編輯命令“Mtext”可以實現文本插入。在Mtext的對話框中有一個“ImportText…”命令按鈕，點擊後出現“打開”對話框，在此可以選擇磁碟上的“.txt”、“.rtf”格式的檔案進行插入，插入後的文本即可用“Ddedit”命令進行編輯，注意插入檔案大小不得超過16KB，這顯得美中不足。值得一提的是可以將“Mtext”默認的文字編輯器改為“Windows記事本”或者“MicrosoftWord2000”。選取“Tools”選單的“Preferences…”對話框，將“TextEditor、Dictionary、FontFileNames”目錄下的“TextEditorApplication”項，由“Internal”改為記事本或Word2000的磁碟路徑，例如：C:\Windows\Notepad.exe。通過設定系統變數“Mtexted”也可以實現相同操作。
2.導出文本
如果僅有少量文字需要導出，那么在“Ddedit”或“Mtext”的編輯框中，選擇文字進行複製，然後貼上到文字編輯器中即可。但是如果圖紙中有大量散落的文字需要導出，上述方法就不太適用了。下面提供的小程式“ExpText.lsp”，可以通過AutoCAD的窗選方式直接將所選文字輸出到文本檔案中去。
;;;ExpText.lsp(defunc:EXT(/flnmfnsnindexentsenttxt)
(setqflnm(getstring“\nFilename:”))
(setqfn(openflnm“w”))
(setqs(ssget))
(setqn(sslengths))
(setqindex(-n1))
(repeatn
(setqents(entget(ssnamesindex)))
(setqindex(-index1))
(setqent(assoc0ents))
