CAD小插件编速写.doc

CAD小插件编速写
CAD小插件编速写
1/12
CAD小插件编速写
CAD自动编号插件
使用方法：
，
打开CAD，输入"H")(=onil))
(progn
(if(=o"C")(chuzhi))
(if(=o"Y")(yinxian))
(if(=o"K")(bkshezhi))
(if(=o"W")(wenzi))
(if(=o"H")(chushihua))
(if(=onil)(gaodu0))
(if(=o"T")(exit))
)
(progn
CAD小插件编速写
CAD小插件编速写
3/12
CAD小插件编速写
(initget1)
(setqob(getpointo"\n指定编号地址:"))
(huituoob)
)
)
)
)
)
绘制过程
************************************************************************
*********
(defunhuitu(oob/dian1dian2dianxdianyjiantou0chang0)
(graphscr)
(setqjiantou0jiantou)
CAD小插件编速写
CAD小插件编速写
4/12
CAD小插件编速写
(command"text"'(00)thta"

编号速写

""erase"(entlast)"")
CAD小插件编速写
CAD小插件编速写
12/12
CAD小插件编速写
编号升序
;0(123...)1(abc.../ABC...)2(a1a2.../B1B2...)3(aaabac.../MaMbMc...)
(if(=bhlx0)
(progn
(setqbh0(bh01))
(setqbh(itoabh0))
)
)
(if(=bhlx1)
(progn
(setqbh1(1bh1))
(if(>bh1122)(setqbh197))
(if(and(>bh190)(<bh197))(setqbh165))
(if(<bh165)(setqbh165))
(if(and(<bh197)(>bh190))(setqbh197))
(setqbh(chrbh1))
CAD小插件编速写
CAD小插件编速写
12/12
CAD小插件编速写
)
)
(if(=bhlx2)
(setqbh(strcatqianzhui2(itoa(setqbh2(1bh2)))houzhui2))
)
(if(=bhlx3)
(progn
(setqbh3(1bh3))
(if(>bh3122)(setqbh397))
(if(and(>bh390)(<bh397))(setqbh365))
(if(<bh365)(setqbh365))
(if(and(<bh397)(>bh390))(setqbh397))
(setqbh(strcatqianzhui3(chrbh3)houzhui3))
)
)
CAD小插件编速写
CAD小插件编速写
7/12
CAD小插件编速写
(if(=bklx"Y");
(progn
(if(=zidong_rt)
(setqr0(/(tdaxiao3)2))
(setqr0r)
)

边框半径可否自动办理及

r0

值
CAD小插件编速写
CAD小插件编速写
12/12
CAD小插件编速写
)
(setqr0(/(tdaxiao2)2))
CAD小插件编速写
CAD小插件编速写
12/12
CAD小插件编速写
)
(if(=bklx"J");
(if(=zidong_jt)
(setqr0(/(tdaxiao2)2))
(setqr0(/jgao2))

边框为矩形时

r0

值
CAD小插件编速写
CAD小插件编速写
12/12
CAD小插件编速写