CAD VBA批量插入多段线,利用一维动态数组
Sub aa() '定义一个运行过程
Dim arr() As Double '定义一个空的动态数组
m = 4 '随便定一个值
nn = Array(7, 13, 15, 23) '定义一个数组,有几个代表最终生成几条线,数字加1 表示线的节点
For mn = 0 To UBound(nn) '动态定义数组宽度
n = nn(mn) '给数赋值
ReDim arr(0 To n) As Double '重新定义动态数组
For i = 0 To n
arr(i) = m
m = m + 3
Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline arr
Next mn
End Sub