CAD中怎么导入导出文本

CAD中怎么导入导出文本

在使用CAD绘图软件进行工作时，有时需要把用文字编辑器写好的段落文字插入到图形中，并用CAD的文字编辑命令进行修改但CAD中并没有直接提供关于文本插入和文本输出的命令，遇到这样的问题该怎么办?通过剪贴板进行OLE方式的复制与粘贴是无法实现上述要求的。下面我介绍的方法能够解决在CAD与文字编辑器之间进行纯文本的导入和导出的问题。

1. 导入文本

虽然CAD中没有提供插入文本的命令，但是利用多行文字编辑Mtext可以实现文本插入。在Mtext的`对话框中右键菜单中有“输入文字”的功能，可以选择磁盘上的“.txt”、“.rtf”格式的文件进行插入，注意插入文件大小不得超过16KB，这显得美中不足。还有一种比较麻烦的方法就是利用文字编辑软件先打开文本，然后在输入单行文字或多行文字的时候将文字内容复制粘贴到CAD中。CAD还可以将默认的文字编辑器设置为记事本或WORD，设置方法如下：

1、 在选项对话框中设置。输入OP命令，打开选项对话框，在“文件”选项卡中找到文本编辑器应用程序，可以浏览设置成记事本、WORD的执行文件。

2、 直接输入mtexted命令，回车，输入notepad，可以将编辑器设置成记事本，如果想设置回来，输入mtexted，回车，输入“.”，回车，就可以回复为CAD默认的编辑器。

如果要导入文本，无论是粘贴、插入，实际上都不太复杂，改变编辑器一般人很少用。

2. 导出文本

如果仅有少量文字需要导出，那么在单行和多行文字的编辑框中，选择文字进行复制，然后粘贴到文字编辑器中即可。但是如果图纸中有大量散落的文字需要导出，上述方法就不太适用了。下面给大家介绍两个在网上看到的小程序，可以快速将CAD中的单行文字输出为文本文件(*.csv)，这个文件用记事本或EXCEL都可以打开。

A、选择文字输出

可以框选文字进行输出，自动将文字保存为*.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)) "个文字输出到 " %fir " 中."))

)

(princ "\n未选择文字对象,退出.")

)

(princ)

)

将上面代码复制到记事本中，另存为exx.lsp，在CAD中输入AP命令，加载exx.lsp，加载成功后，在命令行输入EXX，回车，在图中框选要输出的单行文字即可。

B、输出同图层文字

可以选择图层上的一个单行文字，就可以将此图层上所有单行文字都输出为一个*.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) " 个文字到文件 " %fir "中."))

)

(princ "\n选择的不是文字对象.")

)

(princ "\n未选择对象.")

)

(princ)

)

将上面代码复制到记事本中，另存为ecx.lsp，在CAD中输入AP命令，加载ecx.lsp，加载成功后，在命令行输入EcX，回车，在图中点取一个要输出图层上的单行文字即可。

cad把文字复制出来方法：

1、将需要复制文字的cad文件打开，可以看到下图有很多的文字。

2、双击需要复制的文字，就会d出一个【文字格式】窗口。

3、将需要复制的文字全选，然后点击右键选择【复制】或者Ctrl+C。

4、将文字复制好之后，点击【文字格式】窗口的确定。

5、在Word文档空白处点击鼠标右键选择【粘贴选项】中的【只保留文本】。

6、就可以看到复制的文字已经粘贴到了Word文档。cad把文字复制出来的问题就解决了

---