在cad图中查找并标记字符串的autolisp程序

《在cad图中查找并标记字符串的autolisp程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在CAD图中查找并标记字符串的AutoLISP程序第2O卷第3期2003年6月邢台职业技术学院JournalofXingtaiVocationalandTechnicalCollegeVoI.20No.3Jun.2003在CAD图中查找并标记字符串的AutoLISP程序杨进荣随着CAD技术在建筑工程设计中的应用推广.尤其是针对建筑工程设计的专业软件的大量出现.大大提高了设计的自动化程度和工作效率.但是由于建筑工程的复杂多样性.经常需要设计人员对专业软件自动形成的施工图进行人工审核和编辑.很多设计人员习惯于使用功能强大的AutoCAD软件对施工图进行编辑.在使用过程中笔者发现.经常需要查

2、找某一编号的构件或钢筋.并对其中的一部分进行修改.用手工查找既费时又容易遗漏.因此笔者编制了如下一段程序.可实现按图层或内容对某一编号字符串的自动查找和标记.经部分设计人员实际应用后.反映良好,普遍认为该程序方便实用,现介绍如下:程序1:a.1sp(defunc:a()(setqb(getstring”1-?幕拾取欲查找的字符串/2.键入:”))(if(=b”l”)(1ist(setqc(entget(ssname(ssget)0)))(setqa(cdr(assoclc)))(setqal(cdr(assoc8c)))(setqa2(cdr(assoc62c)))(setqSS(ss

3、get”x”(1ist(consla)(cons8a1))))))(if(=b”2”)’(1ist(setqA(getstring”键入要查找的字符串:”))(setqsl(getstring”字符串所在图层:”))(setqSS(ssget”x”(1ist(consla)(cons8a1))))))(setqi(sslengthss))(setqJ01(command”layer…m…BJtp”1(repeati(setqa(entget(ssnameSSJ)))(setqr(1(cdr(assoc40a))))(setqrl(1.1(cdr(assoc40a))))(setqr2

4、(1.2(cdr(assoc40a))))(setqpt(mapcar’+(1ist(/r2)(/r2)0)(cdr(assoc7810a))))(command”color”l,(command”circle”ptr,(command”color”21(command”circle”ptr1)(command”color”6,(command”circle’’ptr2)(setqJ(+J1)))(setqb”“))程序2:b.1sp(defunc:b()(setqSS(ssget”x”(1ist(cons8”bjtp”))))(command”erase”SS…’))使用时可用工具菜

5、单中的程序调入加载上述两程序a.1sp,b.1sp即可.具体使用方法如下:在命令行键入”a”回车.提示”1.?幕拾取欲查找的字符串/2一键入欲查找的字符串:”.若键入”1”回车则提示”Selectobjects:”.此时用光标直接在屏幕上点取欲查找的字符串后回车.计算机则自动查找出与所点取字符串内容相同且在同一图层上的字符串.并以每一字符串的基点为圆心用红,黄,紫三种颜色的同心圆醒目地标记出来;若键入”2”回车则提示”键入要查找的字符串:”.键入要查找的字符串后回车.接着提示”字符串所在图层号:”键入要查找的字符串所在的图层号后回车,计算机则自动查找出指定图层和内容的字符串.并以每一字

6、符串的基点为圆心用红,黄,紫三种颜色的同心圆醒目地标记出来.值得注意的是这里输入要查找的字符串和字符串所在图层号时均可使用通配符.如”,”?”等.如在提示”键入要查找的字符串:”时键入”则可标出指定图层上所有内容的字符串.如在提示”字符串所在图层:”时键入”则可标出所有图层上指定内容的字符串.以方便核对修改.核对修改完后.在命令行键入”b”回车.即可清除所有的标记.(作者单位:河北机电职业技术学院,邮编:054000)(责任编辑鲍东杰)