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

恳请高手帮忙

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

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

本帖最后由 作者 于 2008-3-16 9:02:05 编辑 <br /><br /> <p>&nbsp;&nbsp;&nbsp;&nbsp; Dim SetObj2 As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp;&nbsp; Dim ent2() As AcadEntity<br/>&nbsp;&nbsp;&nbsp;&nbsp; Dim&nbsp;i &nbsp;As Long</p><p>&nbsp;&nbsp;&nbsp;&nbsp; Set SetObj2 = ThisDrawing.SelectionSets.Add("st2") '创建空白选择集<br/>&nbsp;&nbsp;&nbsp;&nbsp; Call SetObj2.Select(acSelectionSetAll)</p><p>&nbsp;&nbsp;&nbsp;&nbsp; ReDim ent2(0 To SetObj2.Count - 1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp; For i = 0 To SetObj2.Count - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ent2(i) = SetObj2.Item(i).ArrayPolar 6, 2 * p, XX1point1<br/>&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp; SetObj2.Delete<br/>&nbsp;&nbsp;<br/><br/>=====================================================<br/>西北凡人----http://www.abofanyi.com/blog</p>

xingmanxi 发表于 2008-3-16 16:56:00

十分感谢楼上的帮忙。
页: [1]
查看完整版本: 恳请高手帮忙