vba的一个多段线绘制问题

dongjiajia12

我用vba 编了一个程序，输入自变量范围绘制多段线，有些自变量能行有的就不行了弹出下列错误.说是 安全数组太少 或元素数目不是3的倍数，有那位高手知道怎么回事请指教。最好能给我讲讲解决的办法，我也很想和大家叫个朋友qq113080248

cppetonglei

区分两种多段线LightWeightPolyline和Polyline。详见AutoCAD ActiveX and VBA Reference

Sub Example_AddLightWeightPolyline()
    ' This example creates a lightweight polyline in model space.
   
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
   
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
       
    ' Create a lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
   
End Sub

Sub Example_AddPolyline()
    ' This example creates a polyline in model space.
   
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
   
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0
    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
       
    ' Create a lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ZoomAll
   
End Sub