欢迎来到天天文库
浏览记录
ID:52563685
大小:11.79 KB
页数:2页
时间:2020-03-28
《CAD批量获取文本坐标及内容.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、;该插件可以批量获取CAD中由text创建的文本坐标信息和文本标注信息。;使用方法:将以下代码复制粘贴至txt文本中,另存为*.lisp格式文件,在cad中lisp插件加载即可,选中所要提取的文本,输入plwbsc即可批量导出文本信息。;命令:plwbsc(defunc:plwbsc()(princ"选择所需输出的文本TEXT:")(setqss(ssget));;选取坐标点(setqn(sslengthss));计算坐标点数量(setqff(open(getfiled"文件保存为""f:/""dat"1)"w"));保存路径(setqi0)(repeatn(setqspt(ss
2、namessi))(setqept(entgetspt))(if(=(cdr(assoc0ept))"TEXT")(progn(setqlxyz(cdr(assoc10ept)))(setqsx(rtos(nth1lxyz)));将坐标值实数转换成字符(setqsy(rtos(nth0lxyz)))(setqsz(cdr(assoc1ept)))(setqi1(+i1));计算点序号(setqsn(rtosi120));将序号实数转换成字符(setqsxyz(strcatsn",,"sy","sx","sz))(write-linesxyzff)))(setqi(+i1)));rep
3、eat)(prompt"*<<命令:plwbsc>>*输出格式(点号,,Y,X,Z)**")(prin1)
此文档下载收益归作者所有