[讨论]AddLightWeightPolyline无效

offloading

实时错误 '-2145320943 (80210011)':

Too few elements in SafeArray or total number of elements is not a multiple of three

-------------------------------------------------------------------

以下代码开始运行的好好的，不知何时突然不行了！

Dim PL(10) As Double

    PL(0) = 0
    PL(1) = 0

    PL(2) = 0
    PL(3) = 300

    PL(4) = 300
    PL(5) = 300

    PL(6) = 300
    PL(7) = 0

    PL(8) = 0
    PL(9) = 0

Set P = acaddoc.ModelSpace.AddLightWeightPolyline(PL)

dbczhaoy

Sub  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) = 0: points(1) = 0
    points(2) = 0: points(3) = 300
    points(4) = 300: points(5) = 300
    points(6) = 300: points(7) = 0
    points(8) = 0: points(9) = 0
        
    ' Create a lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   
    
End Sub
试试看

offloading

感谢，楼上！

错误原因找到了！