[VBA程序]：请问下面的acad帮助的代码的offsetObj 返回的是什么类型的东西？

god

偏移多段线  


请问下面的acad帮助的代码 offsetObj = plineObj.Offset(0.25)中的offsetObj 返回的是什么类型的东西？有没有利用的价值？

2. 
   
3. 本例创建一条优化多段线，然后偏移该多段线。
   
4. 
   
5. Sub Ch4_OffsetPolyline()
   
6.     ' 创建多段线
   
7.     Dim plineObj As AcadLWPolyline
   
8.     Dim points(0 To 11) As Double
   
9.     points(0) = 1: points(1) = 1
   
10.     points(2) = 1: points(3) = 2
    
11.     points(4) = 2: points(5) = 2
    
12.     points(6) = 3: points(7) = 2
    
13.     points(8) = 4: points(9) = 4
    
14.     points(10) = 4: points(11) = 1
    
15.     Set plineObj = ThisDrawing.ModelSpace. _
    
16.                    AddLightWeightPolyline(points)
    
17.     plineObj.Closed = True
    
18.     ZoomAll
    
19.                
    
20.     ' 偏移多段线
    
21.     Dim offsetObj As Variant
    
22.     offsetObj = plineObj.Offset(0.25)
    
23. 
    
24. ZoomAll
    
25. End Sub
    

<br /> 本例创建一条优化多段线，然后偏移该多段线。 <br /> <br /> Sub Ch4_OffsetPolyline()<br />     ' 创建多段线<br />     Dim plineObj As AcadLWPolyline<br />     Dim points(0 To 11) As Double<br />     points(0) = 1: points(1) = 1<br />     points(2) = 1: points(3) = 2<br />     points(4) = 2: points(5) = 2<br />     points(6) = 3: points(7) = 2<br />     points(8) = 4: points(9) = 4<br />     points(10) = 4: points(11) = 1<br />     Set plineObj = ThisDrawing.ModelSpace. _<br />                    AddLightWeightPolyline(points)<br />     plineObj.Closed = True<br />     ZoomAll<br />                 <br />     ' 偏移多段线<br />     Dim offsetObj As Variant<br />     offsetObj = plineObj.Offset(0.25)<br /> <br /> ZoomAll<br /> End Sub<br />

efan2000

偏移后新创建的实体集合，是一个对象数组。

雪山飞狐(lzh)

RetVal = object.Offset(Distance)
RetVal

Variant (array of objects)
An array of the newly created objects resulting from the offset.

offsetObj是多段线数组，有些情况可能返回多条

god

理解。我知道怎么处理多段线数组了，用for each .. in offsetObj
什么情况下offsetObj可以返回多条？