社区 › VB › [求助] 对象选择VBA代码

csqqqqq 发表于 2008-8-23 12:47:00

[求助] 对象选择VBA代码

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

sailorcwx 发表于 2008-8-23 17:50:00

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 发表于 2008-8-23 20:51:00

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

查看完整版本: [求助] 对象选择VBA代码