|
发表于 2004-12-23 17:30:00
|
显示全部楼层
Sub test()
Dim BLKSet As AcadSelectionSet
Dim i
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0: FilterData(0) = "insert"
BLKSet.Select acSelectionSetAll, , , FilterType, FilterData
For i=1 To BLKSet.Count
Msgbox BLKSet(i).Name
Next
End Sub |
|