[求助]：求教selectonscreen的错误原因

dtnjq

Sub a()
Dim asdf As AcadSelectionSet
Dim ft As Variant, fd As Variant
Set asdf = ThisDrawing.SelectionSets.Add("my")
FT = 0
FD = "LINE"
asdf.SelectOnScreen ft, fd
end sub
以上过程执行时显示错误码:
实时错误'2147352567(8002000009)
方法'SelectOnScreen作用于对象'IAcadSelectionSet'时失败
请教原因.

macula55

Sub a()
Dim asdf As AcadSelectionSet
dim f1 as integer
dim f2(0) as string
Dim ft As Variant, fd As Variant
Set asdf = ThisDrawing.SelectionSets.Add("my")
f1 = 0
f2(0) = "LINE"
FT  = f1
FD = f2
asdf.SelectOnScreen ft, fd
end sub

dtnjq

我把2楼的过程复制到VBA中,还是不行,出错信息还是一样

凡子

Sub a()
Dim asdf As AcadSelectionSet
Dim f1(0) As Integer, f2(0) As Variant
Dim ft As Variant, fd As Variant
'以下到下次注释之间的代码是检查要添加的selectionset是否存在
'求简单可以用on error resume next代替
Dim I As Integer, K As Integer
Dim sMySetName As String, sSetName As String
sMySetName = "my"
K = ThisDrawing.SelectionSets.Count

If K <> 0 Then
    For I = 0 To K - 1
        sSetName = ThisDrawing.SelectionSets(I).Name
        If sSetName = sMySetName Then
            ThisDrawing.SelectionSets(I).Delete
            Exit For
        End If
        
    Next
End If

'开始程序
Set asdf = ThisDrawing.SelectionSets.Add(sMySetName)
f1(0) = 0
f2(0) = "line"
ft = f1
fd = f2
asdf.SelectOnScreen ft, fd

End Sub

雪山飞狐(lzh)

dim ft(0) as Integer,fd(0)
ft(0)=0:fd(0)="line"