Question

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

Answer 1

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)))
必要的话，可以加入图层，颜色等元素，不用关闭捕捉，改变图层等。你可以试试。

Answer 2

vba不是excel常用的吗，你要用这个给cad编程？

Answer 3

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