Dim ssetobj As AcadSelectionSet
Set ssetobj = acadObj.ActiveDocument.selsctionsets.Add("xpoint1")
Dim filtertype As Variant
Dim filterdata As Variant
filtertype = 0
filterdata = "text"
ssetobj.SelectByPolygon acSelectionSetCrossingPolygon, xpt1, xpt2, xpt3, xpt4, filtertype, filterdata
vb指向这里.SelectByPolygon，提示为错误的参数号或无效的属性赋值
是我上边这句话语法有错误马？？？？
'注意过滤器设置的特殊性
Sub gs()
Dim ssetObj As AcadSelectionSet
Dim ssName As String
ssName = "ss"
Dim xpt(0 To 11) As Double
On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets(ssName)
If Err Then Set ssetObj = ThisDrawing.SelectionSets.Add(ssName)
ssetObj.Clear
Dim FilterType As Variant
Dim FilterData As Variant
Dim fType(0) As Integer
Dim fData(0) As Variant
fType(0) = 0
fData(0) = "text"
FilterType = fType
FilterData = fData
ssetObj.SelectByPolygon acSelectionSetCrossingPolygon, xpt, FilterType, FilterData
End Sub
置顶卡
