cad中如何导入导出文本Word格式文档下载.docx
《cad中如何导入导出文本Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《cad中如何导入导出文本Word格式文档下载.docx（6页珍藏版）》请在冰豆网上搜索。
直接输入mtexted命令，回车，输入notepad，可以将编辑器设置成记事本，如果想设置回来，输入mtexted，回车，输入“.”，回车，就可以回复为CAD默认的编辑器。
如果要导入文本，无论是粘贴、插入，实际上都不太复杂，改变编辑器一般人很少用。
2.导出文本
如果仅有少量文字需要导出，那么在单行和多行文字的编辑框中，选择文字进行复制，然后粘贴到文字编辑器中即可。
但是如果图纸中有大量散落的文字需要导出，上述方法就不太适用了。
下面给大家介绍两个在网上看到的小程序，可以快速将CAD中的单行文字输出为文本文件（*.csv），这个文件用记事本或EXCEL都可以打开。
A、选择文字输出
可以框选文字进行输出，自动将文字保存为*.csv。
（defunc:
exx（/&
amp;
ss%fir~fir@tex#si#sn&
tex%lay%tex
@cl%ctx）
（vl-load-com）（princ"
\n请选择要输出的文字对象"
）
（if（setq&
ss（ssget（list（cons0
"
TEXT"
））））
（progn
（setq
%fir（strcat"
C:
\\"
（vl-filename-base（getvar"
dwgname"
））"
.csv"
~fir（open%fir"
w"
））
（repeat
（setq@tex'
（）#si0#sn（sslength&
ss））
（setq&
tex（vlax-ename-&
gt;
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））
）
@tex（vl-sort@tex（function（lambda（ab）（&
（lengtha）（length
b））））））
（setq#si
0#sn（length（car@tex）））
lt;
（cara）（car
#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文件。
ecx（/&
tex&
ss%fir~fir%lay#si#sn）
（if（nullvlax-dump-object）（vl-load-com）
tex（entsel"
\n请选择要输出图层的文字对象:
（if（=（vla-get-objectname
vla-object（car&
tex））））
AcDbText"
（progn
（setq%fir（strcat"
）~fir（open%fir"
tex）&
ss（ssget"
X"
（list（cons
0"
）（cons8%lay））））
（repeat（setq#si0#sn（sslength&
（write-line（vla-get-textstring（vlax-ename-&
vla-object（ssname
ss#si）））~fir）
（setq#si（1+#si））
（close~fir）（vlax-release-object&
（princ（strcat"
\n已输出图层["
%lay"
]中的"
（itoa#sn）"
个文字到文件"
%fir
\n选择的不是文字对象."
\n未选择对象."
将上面代码复制到记事本中，另存为ecx.lsp，在CAD中输入AP命令，加载ecx.lsp，加载成功后，在命令行输入EcX，回车，在图中点取一个要输出图层上的单行文字即可。
上面两个程序，不仅AutoCAD可以用，在浩辰CAD这样的国产CAD中也一样可以运行。
网上还找到一些其他程序，有的类似，有的不太好用，就不再一一介绍了。
希望这两个工具对大家有所帮助，也感谢编写这个程序的人。
相关文章：
CAD大字体什么意思？
详细讲解CAD字体
CAD中的动态文字：
字段（field）和动态反应文字（rtext）
什么是CAD大字体？
从文字处理的发展讲到CAD的大字体
CAD文字显示为问号？
怎么解决？
更多CAD使用技巧请访问：
CAD使用技巧、CAD教程、CAD资料下载
升级会员 