
使用方法:输入PL空格,根据提示选择相应的选项,然后通过鼠标和对象捕捉、相对坐标等命令结合使用,绘制多段线
提示解释如下:
指定起点::指定所要绘制的多段线的起点
圆弧(A):选择此项表示要绘制圆弧
半宽(H):指定所绘制的多段线的线宽的一半,绘制过程中,不同位置可以设置不同的线宽
长度(L):用来指定直线的长度,一般和极轴追踪或正交结合使用
放弃(U):相当于撤销一步
宽度(W):指定多段线的线宽,与半宽(H)类似
这个用一个小插件就可以完成批量绘制圆:
(defun C:tes ( / &k1 &kw1 &ob1 c40 i n1 pt1)(if (null vlax-dump-object) (vl-load-com) )
(if (and (setq c40 (getdist "\n请输入圆的半径"))
(> c40 0);输入的值大于0
(princ "\n请选择要绘制圆的多段线")
(setq &kw1 (ssget '((0 "LWPOLYLINE"))))
)
(progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1) &ob1 (vlax-ename->vla-object &k1))
(setq n1 (fix (vlax-curve-getEndParam &ob1)) i 0);取得坐标数量
(if (null (vlax-curve-isClosed &ob1)) (setq n1 (1+ n1)) );如果不封闭就增加一个点
(repeat n1
(setq pt1 (vlax-curve-getPointAtDist &ob1 (vlax-curve-getDistAtParam &ob1 i)));得到点的坐标
(entmake (list '(0 "CIRCLE") (cons 10 pt1) (cons 40 c40)));多段线点上绘制圆
(setq i (1+ i))
)
)
)
)
(princ)
);复制到记事本,以lsp为后缀命名,打开CAD,autolisp加载,命令TES1,ctrl+1打开特性编辑栏,不关闭的话,特性编辑栏一直处于界面左侧;
选上多段线,特性编辑栏\
几何图形
就可以显示周长和面积;
2,选上多段线,快捷键Li,d出列表显示周长和面积;
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)