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

mlyd 发表于 2007-4-16 10:10:00

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

我用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 发表于 2007-4-16 12:15:00

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

mlyd 发表于 2007-4-16 14:59:00

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

JimPan 发表于 2007-4-24 21:30:00

    看这样行吧?
    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"

查看完整版本: [求助]VB开发，选择集问题