VS环境下的VB编程问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 00:32:44
做一个批量处理宗地图的小东西，就是从图中（CAD）读取某几个数字然后与Excel表格的对应数据对比。
现在遇到一个问题，已经整了一天了，急啊。
现在向各位VB达人求救。
本人是在VS环境下进行VB开发的。

// 这部分代码是打开CAD，循环打开每张图，读图中数据
（读数据是其次，现在的问题是 选择集.Count=0）
Private Sub openCAD(ByVal path As String)
Dim acad As AutoCAD.AcadApplication
Dim dwg As AutoCAD.AcadDocument
acad = New AutoCAD.AcadApplication
acad.Visible = False
Dim a As String
a = Dir(path & "\*.dwg")
Dim fileName As String
'acad.Application.ActiveDocument
Do While a <> ""
fileName = path & "\" & a
acad.Documents.Open(fileName)
dwg = acad.ActiveDocument
Dim SelSet As AutoCAD.AcadSelectionSet

// 问题所在行，本人VB不是很拿手，VBA的代码改了一点，不知对错
SelSet = CreateSelectionSet(dwg)

Debug.Print(SelSet.Count

过滤器！

Private Sub openCAD(ByVal path As String)
Dim acad As AutoCAD.AcadApplication
Dim dwg As AutoCAD.AcadDocument
acad = New AutoCAD.AcadApplication
acad.Visible = False
Dim a As String
a = Dir(path & "\*.dwg")
Dim fileName As String
'acad.Application.ActiveDocument
Do While a <> ""
fileName = path & "\" & a
acad.Documents.Open(fileName)
dwg = acad.ActiveDocument
Dim SelSet As AutoCAD.AcadSelectionSet

// 问题所在行，本人VB不是很拿手，VBA的代码改了一点，不知对错
SelSet = CreateSelectionSet(dwg)

Debug.Print(SelSet.Count)// 输出一直为0

'建立选择集过滤器
Dim TypeArray(1) As Short
Dim DateArray(1) As Object
BuildFilter(TypeArray, Dat