[求助]：如何在VB.net开发Autocad时在创建选择集时加入过滤机制

suzhanli

看看下面的代码，不知有何错误？总是通不过，请各位大侠帮忙！

   Public AcadApp As AutoCAD.AcadApplication
      Public CurrentDocument As AutoCAD.AcadDocument

     Private Sub Test()
        Try
            AcadApp = GetObject(, "AutoCAD.Application")
        Catch
            AcadApp = CreateObject("AutoCAD.Application")
        Finally
            AcadApp.Visible = True
        End Try
        CurrentDocument = AcadApp.ActiveDocument
        Dim sset As AutoCAD.AcadSelectionSet
        Try
            sset = CurrentDocument.SelectionSets.Item("NewSet")
            sset.Clear()
        Catch
            sset = CurrentDocument.SelectionSets.Add("NewSet")
        End Try
        Dim FilterType(0) As Integer
        Dim FilterData(0) As Object
        FilterType(0) = 0
        FilterData(0) = "Line"
        sset.SelectOnScreen(FilterType, FilterData)
    End Sub

efan2000

问题出在这两句：Dim FilterData(0) As Object
FilterData(0) = "Line"，
过滤机制中的过滤数据应该用Variant类型的，不能为Object类型。
为什么要用Variant类型？比如过滤层名，那是String类型，过滤长度，那是Double类型，因而应该用一种通用的类型来代表过滤数据，能包括各种类型的。

suzhanli

VB.net中，Variant类型已经不存在了，Object取而代之！

charles_zeng

不知楼主的问题是否解决？我用C#遇到同样的问题！？

最初由 suzhanli 发布
[B]看看下面的代码，不知有何错误？总是通不过，请各位大侠帮忙！

   Public AcadApp As AutoCAD.AcadApplication
      Public CurrentDocument As AutoCAD.AcadDocument

     Private Sub Test()
        Try... [/B]