『请教』对象选择的代码修改

csqqqqq

Sub 选择并移动()
Dim SssObj As Object

Set SssObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1) '.
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 0: point1(1) = 0: point1(2) = 0
point2(0) = 2: point2(1) = 0: point2(2) = 0
' 移动圆
SssObj.Move point1, point2
这段代码只能对一个独立的基本图形进行移动。我想移动这个图层的全部图形代码该怎么改

mccad

一个对象一个对象移。

fjfhgdwfn

Sub 选择并移动()
Dim SssObj As Object

Set SssObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1) '.
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 0: point1(1) = 0: point1(2) = 0
point2(0) = 2: point2(1) = 0: point2(2) = 0

 dim entry as acadentry

for each entry in sssobj
entry.Move point1, point2

next

选择集内的对象要一个一个来操作

帮你写上来吧！