|
|
发表于 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 |
|
置顶卡
