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
这段代码只能对一个独立的基本图形进行移动。我想移动这个图层的全部图形代码该怎么改
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
选择集内的对象要一个一个来操作
帮你写上来吧！
置顶卡
