在CAD图中查找并标记字符串的AutoLISP程序.docVIP

在CAD图中查找并标记字符串的AutoLISP程序 第2O卷第3期 2003年6月 邢台职业技术学院 JournalofXingtaiVocationalandTechnicalCollege VoI.20No.3 Jun.2003 在CAD图中查找并标记字符串的AutoLISP程序 杨进荣 随着CAD技术在建筑工程设计中的应用推广. 尤其是针对建筑工程设计的专业软件的大量出现.大 大提高了设计的自动化程度和工作效率.但是由于建 筑工程的复杂多样性.经常需要设计人员对专业软件 自动形成的施工图进行人工审核和编辑.很多设计人 员习惯于使用功能强大的AutoCAD软件对施工图进 行编辑.在使用过程中笔者发现.经常需要查找某一 编号的构件或钢筋.并对其中的一部分进行修改.用 手工查找既费时又容易遗漏.因此笔者编制了如下一 段程序.可实现按图层或内容对某一编号字符串的自 动查找和标记.经部分设计人员实际应用后.反映良 好,普遍认为该程序方便实用,现介绍如下: 程序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(ssget”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(1.2(cdr(assoc40a)))) (setqpt(mapcar’+(1ist(/r2)(/r2)0)(cdr(assoc 78 10a)))) (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…’)) 使用时可用工具菜单中的程序调入加载上述两程 序a.1sp,b.1sp即可.具体使用方法如下: 在命令行键入”a”回车.提示”1.?幕拾取欲查找 的字符串/2一键入欲查找的字符串:”.若键入”1”回车 则提示”Selectobjects:”.此时用光标直接在屏幕上 点取欲查找的字符串后回车.计算机则自动查找出与 所点取字符串内容相同且在同一图层上的字符串.并 以每一字符串的基点为圆心用红,黄,紫三种颜色的 同心圆醒目地标记出来;若键入”2”回车则提示”键 入要查找的字符串:”.键入要查找的字符串后回车. 接着提示”字符串所在图层号:”键入要查找的字符串 所在的图层号后回车,计算机则自动查找出指定图层 和内容的字符串.并以每一字符串的基点为圆心用红, 黄,紫三种颜色的同心圆醒目地标记出来.值得注意 的是这里输入要查找的字符串和字符串所在图层号时 均可使用通配符.如”,”?”等.如在提示”键入 要查找的字符串:”时键入”则可标出指定图层上 所有内容的字符串.如在提示”字符串所在图层:”时 键入”则可标出所有图层上指定内容的字符串.以 方便核对修改.核对修改完后.在命令行键入”b” 回车.即可清除所有的标记. (作者单位:河北机电职业技术学院,邮编:054000)(责任编辑鲍东杰)