cad中如何导入导出文本Word格式文档下载.docx
- 文档编号:17949722
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:6
- 大小:16.38KB
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资料下载
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- cad 如何 导入 导出 文本
![提示](https://static.bdocx.com/images/bang_tan.gif)