cad气泡式标注程序

《cad气泡式标注程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、(defunC:BALLOON(/tmptsthnhipspalileerrexitbxacadverLBLOCKBLAYERTEXTGAPCHARWIDTHBWIDTH)(setqLBLOCKT);“气泡”创建为块，除非这里LBLOCK设为nil(setqBLAYER"sdim");放置“气泡”的图层："XXXX"=放置在层XXXX，nil=使用当前层(setqTEXTGAP0.8);希望的文本和“气泡”的间距（1单位=尺寸文本高）(setqCHARWIDTH1.0);1个单位高字符的平均宽度（仅用于R11

2、）(setqBWIDTH0.04);“气泡”线宽：nil=无宽度（1单位=尺寸文本高，如果气泡是椭圆，无效，且在R13中PELLIPSE=0）(setqacadver(read(substr(getvar"ACADVER")12)))(if(/=(typeacadver)'INT)(setqacadver0))(defunerrexit(s)(princ"错误：")(princs)(restore))(defunbx()(ifle(entdelle))(setvar"CMDECHO"(caroldvar)

3、)(setvar"BLIPMODE"(cadroldvar))(setvar"OSMODE"(nth2oldvar))(setvar"CLAYER"(nth3oldvar))(setvar"DONUTID"(nth4oldvar))(setvar"DONUTOD"(nth5oldvar))(setq*error*olderr)(princ));MainProgram(setqT(notnil))(setqolderr*error*restorebx*error*errexit)(setqoldvar(list

4、(getvar"CMDECHO")(getvar"BLIPMODE")(getvar"OSMODE")(getvar"CLAYER")(getvar"DONUTID")(getvar"DONUTOD")))(setvar"CMDECHO"0)(setvar"BLIPMODE"0)(setvar"OSMODE"0)(terpri)(if(=acadver11);是R11吗？(defuntextbox(elist);如果是，定义一个定制的文本框函数(list'(000)(list(*(strlen(cdr(ass

5、oc1elist)))(cdr(assoc40elist))CHARWIDTH)(cdr(assoc40elist))0))))(if(=0(setqth(cdr(assoc'40(tblsearch"style"(getvar"textstyle"))))))(setqnh(setqth(*(getvar"DIMTXT")(getvar"DIMSCALE"))))(setqnhnil))(ifBLAYER(command"._LAYER"(if(tblsearch"LAYER"BLAYER)"_S""_M"

6、)BLAYER""))(if(setqip(setqsp(getpoint"拾取旁注线起点：")))(progn(entmake(list'(0."POINT")(cons10(transsp10))))(setqle(entlast))(command"._DIM1""_LEADER")(setvar"CMDECHO"1)(commandsp)(while(progn(initget128)(setqsp(getpointsp)))(commandsp))(setvar"CMDECHO"0)(command

7、)(setqsp(trans(cdr(assoc'11(entget(entlast))))01))(setqali(angle(trans(cdr(assoc'10(entget(entlast))))01)sp))(setqtmp(getstringT"键入文本："))(setqts(textbox(list(cons'1tmp)(cons'40th))))(setqts(list(+(-(car(cadrts))(car(carts)))(*2TEXTGAPth))(*3TEXTGAPth)))(com

8、mand"._TEXT""_M"(polarspali(*0.5(if(<=(strlentmp)2)(cadrts)(carts)))))(ifnh(commandth))(command(if(<=(strlentmp)2)'0(rtd(if(and(ali(/pi2)))(+alipi)ali)))tmp)(if(<=(strlentmp)2)(command