VBA关于全选平移的问题

guangyunjian

建了一批同心圆，想用VBA实现全选平移怎么办，仅用VBA实现，不做其他框选和输入。
全选是为了不止有同心圆的情况。

Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 1 '开始循环
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
Next i
ZoomExtents
End Sub

听说是选择集再遍历，具体如何实现？
谢谢。

guangyunjian

问题已经解决
Dim myselect As AcadCircle
Set myselect = ThisDrawing.ModelSpace.AddCircle
myselect.Move point1, point2
myselect.Update

中间多几个定义就行了