 - 另外:如果仅仅是选多种对象,只需要这样就行!
- Public Sub asdf()
- On Error Resume Next
- Dim filtertype(0) As Integer
- Dim filterdate(0) As Variant
- filtertype(0) = 0
- filterdate(0) = "lwpolyline,line,arc,circle"
- Dim ft As Variant, fd As Variant
- ft = filtertype: fd = filterdate
- Dim SSet As AcadSelectionSet
- ThisDrawing.SelectionSets("ss1").Delete
- Set SSet = ThisDrawing.SelectionSets.Add("ss1")
- SSet.SelectOnScreen ft, fd
- End Sub
|