[求助]：偏移问题求助,变量设置问题

ericeden

Sub Ch4_OffsetPolyline()
    ' 创建多段线
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    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
    points(10) = 4: points(11) = 1
    Set plineObj = ThisDrawing.ModelSpace. _
                   AddLightWeightPolyline(points)
    plineObj.Closed = True
    ZoomAll
               
    ' 偏移多段线
    Dim offsetObj As Variant
    offsetObj = plineObj.Offset(0.25)

ZoomAll
End Sub
如果Dim offsetObj As Variant 改成AcadLWPolyline就不行,为啥

zml84

因为offsetObj 是个数组，而改成AcadLWPolyline当然不行了。
请参照学习本论坛相关主题。