恳请高手帮忙

xingmanxi

在使用ArrayPolar这个命令时，RetVal=object.ArrayPolar(,,,) 时，RetVal为新创建的阵列对象数组，而object为所有图形对象，请问这两个是什么意思，能否给出一个解释，万分感谢

azjmjsj

     Dim SetObj2 As AcadSelectionSet
     Dim ent2() As AcadEntity
     Dim i  As Long

     Set SetObj2 = ThisDrawing.SelectionSets.Add("st2") '创建空白选择集
     Call SetObj2.Select(acSelectionSetAll)

     ReDim ent2(0 To SetObj2.Count - 1)       
     For i = 0 To SetObj2.Count - 1
        Set ent2(i) = SetObj2.Item(i).ArrayPolar 6, 2 * p, XX1point1
     Next 
     SetObj2.Delete
  

=====================================================
西北凡人----http://www.abofanyi.com/blog

xingmanxi

十分感谢楼上的帮忙。