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