溜溜问答 > 平面设计 > CAD问答 > vba在CAD中画直线和圆弧多段线
流逝的夏天
流逝的夏天
邀请你来回答
401人阅读 2021-06-22

vba在CAD中画直线和圆弧多段线

我要回答
2个回答

确定起点终点和角度后,不就可以绘制了吗

查看全部
2021-06-22
回复 采纳

vba绘制的话,我只有绘制椭圆的时候才使用,因为椭圆分割后,发现vba的计算角度才正确,Autolisp计算的角度会有问题,查看属性会发现有偏差。
Autolisp里面的entmake函数绘制速度很快,
1、直线
(entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt2)))

2、两顶点多段线(多顶点类似)
(entmake (list '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline") (cons 90 2) (cons 10 pt1) (cons 10 pt2)))

3、点表生成多段线
(entmake (append (list '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline") (cons 90 (length lst)))
(mapcar '(lambda (pt)(cons 10 pt)) lst )))

4、圆
(entmake (list '(0 . "circle") (cons 10 pt) (cons 40 r)))

5、圆弧
(entmake (list '(0 . "arc") (cons 10 pt) (cons 40 r) (cons 50 ang1) (cons 51 ang2)))
必要的话,可以加入图层,颜色等元素,不用关闭捕捉,改变图层等。你可以试试。

查看全部
2021-06-22
回复 采纳
发表成功!
感谢您的分享!
好的
官方微信群

(微信添加“妙妙”或“笑笑”,邀您进群)