恳请高手帮忙

xingmanxi · 发表于 2008-3-15 21:43:00

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

azjmjsj · 发表于 2008-3-16 02:11:00

   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 · 发表于 2008-3-16 16:56:00

十分感谢楼上的帮忙。

恳请高手帮忙

发表回复

精选推荐