14.5 数据记录和AutoCAD实体调用

兰州人

如果将光盘中的数据记录和AutoCAD实体的对应.dvb文件，换个目录和mdb文件出现如下问题。

我分析出现的问题是VBE的问题。

翻译VBE的特性
This property allows you to access the VBA IDE object model from AutoCAD's object model. The property will throw an exception if the VBAIDE is not available. For example, the VBAIDE is not available if the acvba.arx app has not been loaded.
这个特性允许存取VBA IDE实体模式从AuotCAD实体模型中，.....，如果VBAID没有装载acvba.arx app, VBAIDE不可用。
因此，我认为出现图示问题是VBAID没有装载acvba.arx，如何解？
Public Function OpenDB() As Boolean
    OpenDB = True
   
    ' 如果数据库已打开，不执行任何操作
    If adoCon.State <> 0 Then Exit Function
   
    adoCon.CursorLocation = adUseClient
   
    ' 获得数据库文件的位置
    Dim strDbName As String
    Dim strProject As String

'出问题的语句
    strProject = Left(ThisDrawing.Application.VBE.activevbProject.FileName, _
                    Len(ThisDrawing.Application.VBE.activevbProject.FileName) - 21)
    strDbName = strProject & "sample.mdb"
   
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        strDbName & ";"
End Function

efan2000

strProject = Left(ThisDrawing.Application.VBE.activevbProject.FileName, _
                    Len(ThisDrawing.Application.VBE.activevbProject.FileName) - 21)
这句代码限定了工程文件的文件名必须大于21个字符，否则出错。

取工程文件的路径可以：

' 判断最后一个“\”的字符位置

Dim i As Integer
i = InStrRev(ThisDrawing.Application.VBE.activevbProject.FileName, "\")
If i <> 0 Then
    strProject = Left(ThisDrawing.Application.VBE.activevbProject.FileName, i)
End If