|
|
调用下面这个函数时，总是出现自动化错误，请问错在哪里？
Function Sel_collection(startpoint() As Double, endpoint() As Double, selname As String)
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim flag As Boolean
Dim Sel_array As AcadSelectionSet
FilterType(0) = 0
FilterData(0) = "*POLYLINE"
flag = False
For Each Sel_array In ThisDrawing.SelectionSets
If Sel_array.Name = selname Then
flag = True
Exit For
End If
Next
If flag = True Then
Sel_array.Delete
End If
Set Sel_array = ThisDrawing.SelectionSets.Add(selname)
Sel_array.Select acSelectionSetCrossing, startpoint, endpoint, FilterType, FilterData
End Function
错误提示如下
l4y11otpd3m.jpg
|
|
置顶卡
