[求助]VB开发，选择集问题

mlyd

我用VB写了一段选择集程序，目的是选择图纸中所有文本，但在运行时总会出现“参数FilterType (位于SelectOnSCreen中) 无效”这样的提示，程序如下：

Private Sub Form_Load()
    Dim AcadDocs As Object
    Set AcadDocs = AcadApp.Documents
    Set AcadDocs = AcadDocs.Open("H:\新建文件夹\标准件汇总表.dwg")
   
    Dim Selset As AcadSelectionSet
    Dim FType As Integer
    Dim FData As Variant
    Dim entry As AcadEntity

    Set Selset = AcadDocs.SelectionSets.Add("text")

    FType = 0
    FData = "TEXT"
    Selset.SelectOnScreen FType, FData      '<----出问题处

    For Each entry In Selset
        Text1.Text = entry.ObjectID
        Text1.Text = entry.ObjectName

    Next entry
End Sub

还请高手指点。

谢谢！

fjfhgdwfn

Dim FType(0) As Integer
    Dim FData(0) As Variant

试试

mlyd

果然如此，修改之后没问题啦！

谢谢！

JimPan

    看这样行吧?

    Dim FType(0) As Integer
    Dim FData(0) As Variant
    Dim entry As AcadEntity

    Set Selset = AcadDocs.SelectionSets.Add("text")

    FType(0) = 0
    FData(0) = "TEXT"
   或者通过函数

   BuildFilter Ftype,Fdate,0,"Text"