|
|
|
<RE class=prog_in_0>Sub ArrayingACircle()<RE class=prog_in_0>' 创建圆<RE class=prog_in_0> Dim circleObj As AcadCircle<RE class=prog_in_0> Dim center(0 To 2) As Double<RE class=prog_in_0> Dim radius As Double<RE class=prog_in_0> center(0) = 2#: center(1) = 2#: center(2) = 0#<RE class=prog_in_0> radius = 1<RE class=prog_in_0> Set circleObj = ThisDrawing.ModelSpace. _<RE class=prog_in_0> AddCircle(center, radius)<RE class=prog_in_0> ZoomAll<RE class=prog_in_0> <RE class=prog_in_0> ' 定义环形阵列<RE class=prog_in_0> Dim noOfObjects As Integer<RE class=prog_in_0> Dim angleToFill As Double<RE class=prog_in_0> Dim basePnt(0 To 2) As Double<RE class=prog_in_0> noOfObjects = 4<RE class=prog_in_0> angleToFill = 3.14 ' 180 度<RE class=prog_in_0> basePnt(0) = 4#: basePnt(1) = 4#: basePnt(2) = 0#<RE class=prog_in_0> Dim retObj As Variant<RE class=prog_in_0> retObj = circleObj.ArrayPolar _<RE class=prog_in_0> (noOfObjects, angleToFill, basePnt)<RE class=prog_in_0> ZoomAll<RE class=prog_in_0>End Sub<RE class=prog_in_0>这段程序在执行后，将阵列出4个圆，但除了开始建立的圆，其他的皆为variant型，这种情况下如何对其他的圆进行拾取，并经一步进行其他编辑工作。<RE class=prog_in_0>谢谢帮助，本人已经想了好久了。 |
|
置顶卡
