几个有用的cad小程序

《几个有用的cad小程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度)(defunc:LL()(setvar"cmdecho"1)(setqen(ssget(list'(0."spline,arc,line,ellipse,LWPOLYLINE"))))(setqi0)(setqll0)(repeat(sslengthen) (setqss(ssnameeni)) (setqendata(entgetss)) (command"lengthen"ss"") (setqdd(getvar"perimeter"))(setqll(+ddll)) (s

2、etqi(1+i))) (princ"所选线条总长为：")(princll)(princ))2.标注所有线段(加载后只需框选所有线段便可得标注这些线段)(defunc:LLL()(COMMAND"UCS""")(setvar"cmdecho"1)(SETVAR"OSMODE"0)(setq  AcadObject (vlax-get-acad-object)  AcadDocument(vla-get-ActiveDocumentAcadobject)  mSpace   (vla-get-ModelSpaceAcaddocument));;选取需

3、要测量的样条曲线、圆弧、直线、椭圆(setqen(ssget(list'(0."spline,arc,line,ellipse,LWPOLYLINE"))))(setqi0);;获取系统参数textsize(setqshh(getvar"textsize"))(setqstr_hh(strcat"文字高度<"(rtosshh2)">:"))(setqhh(getdiststr_hh))(whilehh(setvar"textsize"hh)(setqhhnil));;输入标注文字高度;;循环开始(repeat(sslengthen) (setq

4、ss(ssnameeni)) (setqendata(entgetss)) (command"lengthen"ss"") (setqdd(getvar"perimeter")) (princ(strcat"长度="(rtosdd2))) ;;寻找代表图层的字符串 (setqaa(assoc0endata)) ;;获取图层名称 (setqaa1(cdraa)) ;;判断线条种类 (cond  ((=aa1"SPLINE")  ;;如果是spline  (progn  (setqarcObj(VLAX-ENAME->VLA-OBJECTss)) 

5、 (setqstartPnt1(vla-get-ControlPointsarcObj))  (setqp1    (vlax-safearray->list(vlax-variant-valuestartPnt1))  )  (setqx1(carp1))  (setqy1(cadrp1))  (setqz1(caddrp1))  (setqpp1(listx1y1z1))  (repeat(-(/(lengthp1)3)1)   ;;循环，寻找最后一个控制点   (setqp1(cdddrp1))   (setqx2(carp1))   (se

6、tqy2(cadrp1))   (setqz2(caddrp1))  )  (setqpp2(listx2y2z2))  )  )  ((=aa1"LWPOLYLINE")  ;;如果是LWPOLYLINE  (progn  (setqarcObj(VLAX-ENAME->VLA-OBJECTss)) (setqstartPnt1(vla-get-CoordinatesarcObj)) (setqp1   (vlax-safearray->list(vlax-variant-valuestartPnt1)) )  (setqx1(carp1))  

7、(setqy1(cadrp1))  (setqz1(caddrp1))  (setqpp1(listx1y1z1))  (repeat(-(/(lengthp1)3)1)   ;;循环，寻找最后一个控制点   (setqp1(cdddrp1))   (setqx2(carp1))   (setqy2(cadrp1))   (setqz2(caddrp1))  )  (setqpp2(listx2y2z2))  )  )  (t  ;;如果是其他种类线条  (progn  (setqarcObj(VLAX-ENAME->VLA-OBJECTss)) 

8、 (setqstartPnt1(vla-get-StartPointarcObj))  ;;获取起点  (setqendP