cad 快速绘图小插件程序

《cad 快速绘图小插件程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用方法：将程序分别复制到txt记事本，保存后改后缀成.lsp保存后，打开cad加载使用。测量区域内的面积(defunc:mj()(if*error*(command"_boundary"(setqp1(getpoint"点取要标注的封闭区域内部一点:"))""))(setqEN(entlast))(command"area""o"EN)(setqsmj(getvar"area"))(setqimjsmj)(setqsmj(/smj1000000))(setqsmj(*smj1))(setqsmj(rt

2、ossmj22))(setqsmj(strcat"S="smj"m2"))(if(=htxtnil)(progn(setqhtxt(/(sqrtimj)15))))(setqhtxt1(getdist(strcat"输入字体的高度<"(rtoshtxt21)">:")))(ifhtxt1(setqhtxthtxt1))(setqPt(getpoint"文字标注位置:"))(command"style""MJ""txt.shx"htxt0.8"""n""""")(command"text""s""MJ

3、""j""BC"pt""smj"")'(COMMAND"TEXT"Ptffsize0smj))求cad图纸内任意数字之和(defunC:QH(/ssetqhbssltempt1hn)(setqsset(ssget))(setqqhbnil)(setqssl(sslengthsset))(if(>ssl25)(princ"确认所选的图元--请稍候."))(while(>ssl0)(setqtemp(ssnamesset(setqssl(1-ssl))))(if(=(cdr(assoc0(entgettem

4、p)))"TEXT")(progn(setqt1(cdr(assoc1(entgettemp))))(if(or(=(type(readt1))'INT)(=(type(readt1))'REAL))(setqqhb(cons(atoft1)qhb))))))(if(>(lengthqhb)0)(progn(setqh0)(foreachnqhb(setqh(+nh)))(prompt"和为:")(princh)(print))(prompt"ERROR:未选到数字!")))求cad图纸内任意线长之

5、和(defunC:ZCD(/CURVETLENSSNSUMLEN)(vl-load-com)(setqSUMLEN0)(setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))(setqN0)(repeat(sslengthSS)(setqCURVE(vlax-ename->vla-object(ssnameSSN)))(setqTLEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendpa

6、ramCURVE)))(setqSUMLEN(+SUMLENTLEN))(setqN(1+N)))(print(strcat"总长度:"(rtosSUMLEN25)))(princ))求cad图纸内任意数字之乘积和除法(defunC:q(/#os1#os2#os3@k)(setvar"cmdecho"0)(setvar"blipmode"0)(setvar"dimzin"0)(vl-load-com);;加载vlax扩展函数(setq#os1(getvar"osmode"))(setq#os2(getvar

7、"Clayer")#os3(getvar"textstyle");取得当前字体样式)(initget"XS")(setq@k(getkword(strcat"请选择方式[数值相乘(X)/数值除以(S)]:<""X"">")))(if(=@knil)(setq@k"X"))(setq@k(strcase@k))(setvar"osmode"0)(if(=@k"X")(CY2))(if(=@k"S")(CY4))(setvar"osmode"#os1)(setvar"Clayer"#os2)(setvar"

8、textstyle"#os3)(prin1))(defunCY2(/#k1#k2&k1&kw1sz1sz2)(princ"请选择要相乘的数值")(setq&kw1(ssget(list(cons0"TEXT,MTEXT")(cons1"~*[~-.0-9]*"))))(if(/=&kw1nil)(progn(setq&k1(ssname&kw10))(setq#k2(entget&k1)SZ2nil)(whi