[求助] 对象选择VBA代码

csqqqqq

各位大侠

我想选择图层2上的已有全部图形（非用ADD方法）然后使用移动命令。不知选择图层2上的全部图形的代码如何编写。请指教，谢谢。

sailorcwx

Sub test()
On Error Resume Next
Dim sset As AcadSelectionSet
ThisDrawing.SelectionSets.Add ("test")
Set sset = ThisDrawing.SelectionSets("test")
sset.Clear
Dim ft(0) As Integer
Dim fd(0) As Variant
ft(0) = 8
fd(0) = "图层2"
sset.Select acSelectionSetAll, , , ft, fd
MsgBox "选中图层2上" & sset.Count & "个对象"
End Sub

csqqqqq

谢谢大侠无私帮助。致以崇高敬意。谢谢。为此段代码我今天调试了一天都没有成功。高手且热心。