CAD批量获取文本坐标及内容.docx

《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)