CAD气泡式标注程序

1、(defunC:BALLOON(/tmptsthnhipspalileerrexitbxacadverLBLOCKBLAYERTEXTGAPCHARWIDTHBWIDTH);“气泡”创建为块，除非这里LBLOCK设为nil;放置“气泡”的图层："XXXX"=放置在层XXXX,nil=使用(setqLBLOCKT)(setqBLAYER"sdim")当前层(setqTEXTGAP0.8)(setqCHARWIDTH1.0)(setqBWIDTH0.04)是椭圆，无效，且在R13中;希望的文本和"气泡"的间距（1单位=尺寸文本高）;1个单

2、位高字符的平均宽度（仅用于R11）;"气泡”线宽：nil=无宽度（1单位=尺寸文本高，如果气泡PELLIPSE=0）(setqacadver(read(substr(getvar"ACADVER")12)(if(/=(typeacadver)'INT)(setqacadver0)(defunerrexit(s)(princ"n错误：")(princs)(restore)(defunbx()(ifle(entdelle)(setvar"CMDECHO"(caroldvar)(setvar"BLIPMODE&q

3、uot;(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(getvar"CMDECHO&quo

4、t;)(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'(0

5、00)(list(*(strlen(cdr(assoc1elist)(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"L

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

7、(setqsp(getpointsp)(commandsp)(setvar"CMDECHO"0)(command)(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)(*2T

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

9、5(if(<=(strlentmp)2)(cadrts)(carts)"")(command"._ELLIPSE”sp(polarspali(if(<=(strlentmp)2)(cadrts)(carts)(/(cadrts)2)(if(andBWIDTH(>BWIDTH0)(not(and(=acadver13)(zerop(getvar"PELLIPSE")(>(strlentmp)2)(command"._PEDIT”(entlast)"W"(*thBWIDTH)"X")(ifLBLOCK(progn(entmake(list(cons'0"BLOCK")(cons'2"*U”)(cons'701)(cons'10ip)(setqth(setqtmple)(while(setqtmp(entnexttmp)(entmake(entgettmp)(setqtmp(entmake(list(cons'0&qu