AutoCAD vba 路径问题

windandr

VBA中 能否使用 相对路径,

比如:

图形文件位置是D:\喷涂设备\模组\泵\  

VBA文件位置是 D:\MYWORK\CADCAM

绝对路径使用时候不太方便, 毕竟不同机器中文件夹位置不同

能否把VBA文件和图形文件放在同一个文件夹下.用相对路径运行

azjmjsj

不要用相对路径，得到当前运行的VBA程序文件自己所在的路径,问题就解决啦

（“工具”－》“参照”－－》Microsoft Visual Basic for Applications Extensibility）
ThisDrawing.Application.VBE.ActiveVBProject.filename

=====================================================
西北凡人----http://www.abofanyi.com/blog

兰州人

AutoCAD VBA二次开发教程的解法是

    ' 获得数据库文件的位置
     Dim strDbName As String
     Dim strProject As String
     strProject = Left(ThisDrawing.Application.VBE.activevbProject.FileName, _
                     Len(ThisDrawing.Application.VBE.activevbProject.FileName) - 19)

     strDbName = strProject & "\mdb\" & InputDataBaseName & ".mdb"
     adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
         strDbName & ";"