[求助]如何在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

对于一些VBA的基本用法，可能你还不太了解。对于这句Dim FilterData(0) As Object，既然已经声明为对象型的，后面赋值时应该用Set 变量=对象，而你却用了FilterData(0) = "Line"，这是对字符型进行赋值，明显错误。
注：过滤机制中也没有用到对象型的数据。

suzhanli

efan2000

确实，在VB.Net中，对一些数据类型做了改变，原来的Variant类型已经被Object所取代。而对于数据类型占用的字节数，也发生了变化。如VB6的Integer类型被Short所取代。而VB6的Long类型被Integer所取代。
上例中的Dim FilterType(0) As Integer应更改为Dim FilterType(0) As Short，才符合所占的字节长度。

cajlin

2. Sub newselt(ByVal Ptt1 As Object, ByVal Ptt2 As Object)
3.         myCad.ActiveDocument.Utility.Prompt("请等待...")
4.         '创建选择集
5.         On Error GoTo ERROR_HANDLER
6.         sset = CreateSSet("ss1")
7.         Dim mode As Integer
8.         mode = AcSelect.acSelectionSetCrossing
9.         Dim gpCode(0) As Object
10.         Dim dataValue(0) As Object
11.         gpCode(0) = 0
12.         dataValue(0) = "LINE"
13.         gpCode(0) = -4
14.         dataValue(0) = "<Or"
15.         gpCode(1) = -4
16.         dataValue(1) = "<And"
17.         gpCode(2) = 0
18.         dataValue(2) = "LINE"
19.         gpCode(3) = -4
20.         dataValue(3) = "And>"

Sub newselt(ByVal Ptt1 As Object, ByVal Ptt2 As Object)         myCad.ActiveDocument.Utility.Prompt("请等待...")         '创建选择集         On Error GoTo ERROR_HANDLER         sset = CreateSSet("ss1")         Dim mode As Integer         mode = AcSelect.acSelectionSetCrossing         Dim gpCode(0) As Object         Dim dataValue(0) As Object         gpCode(0) = 0         dataValue(0) = "LINE"         gpCode(0) = -4         dataValue(0) = "<Or"         gpCode(1) = -4         dataValue(1) = "<And"         gpCode(2) = 0         dataValue(2) = "LINE"         gpCode(3) = -4         dataValue(3) = "And>"

1.          gpCode(4) = -4
2.         dataValue(4) = "<And"
3.          gpCode(5) = 0
4.          dataValue(5) = "POLYLINE"
5.          gpCode(6) = -4
6.          dataValue(6) = "And>"

复制代码

1.         gpCode(7) = -4
2.         dataValue(7) = "<And"
3.         gpCode(8) = 0
4.         dataValue(8) = "LWPOLYLINE"
5.          gpCode(9) = -4
6.         dataValue(9) = "And>"

复制代码

1.          gpCode(10) = -4
2.         'dataValue(10) = "Or>"

复制代码

2.          Dim groupCode As Object, dataCode As Object
3.         groupCode = gpCode
4.         dataCode = dataValue
5.         sset.Select(mode, Ptt1, Ptt2，groupCode,dataCode)
6.         MsgBox(sset.Count)

         Dim groupCode As Object, dataCode As Object         groupCode = gpCode         dataCode = dataValue         sset.Select(mode, Ptt1, Ptt2，groupCode,dataCode)         MsgBox(sset.Count)

2.         Exit Sub
3. ERROR_HANDLER:
4.         MsgBox("Error In GetIntersectionPoints: " & Err.Number & ", " & Err.Description)
5.     End Sub

        Exit Sub ERROR_HANDLER:         MsgBox("Error In GetIntersectionPoints: " & Err.Number & ", " & Err.Description)     End Sub

1. 上述代码中sset.Select(mode, Ptt1, Ptt2，groupCode,dataCode)内后两个参数有问题，如取消就可运行，但没法过滤不要的东西，哪个大侠帮忙，看下有什么问题，急急急………………………………

复制代码

s305040093

太牛了 就是字节的问题，郁闷了我半天，一下子豁然开朗了