'如何让选择集ssetobj中块名为"钢筋编号"的块形成另一个集合sset1
 - Dim sset1 As AcadSelectionSet
- Set sset1 = ssetObj
- Dim FType(0) As Integer
- Dim FData(0) As Variant
- FType(0) = 2
- FData(0) ="钢筋编号"
- Dim FilterType As Variant
- Dim FilterData As Variant
- FilterType = FType
- FilterData = FData
- '选择集sset1中只留下名字为"钢筋编号"的块
- sset1.Select acSelectionSetPrevious, FilterType, FilterData'这一步出错
- If sset1.Count = 0 Then Exit Sub
|