求救获取DVB 路径中发生的错误

diadblo

我的DVB文件是存在D:\CADFZ\***.DVB的,
我用下面的代码获取路径D:\CADFZ\
Dim strFileName As String
   strFileName = VBE.activeVBproject.FileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
   MsgBox strFileName
   GetSupportPath = Left$(strFileName, InStrRev(strFileName, "\"))
但是实际运行中,通过VBA調试运行确实是获到D:\CADFZ\
但是通过CAD工具样来运行,就会是变成这个路径C:\Users\ADMINI~1\AppData\Local\Temp\是什么原因?

zzyong00

你可能发现了CAD工具条调用vba的方式

diadblo

zzyong00 发表于 2018-7-24 11:50
你可能发现了CAD工具条调用vba的方式

我就是利用CAD工具条按钮调用vba的方式运行程序.用按钮方便很多

qwh923820

(defun s::startup ()
(arxload "acvba")
(command "_VBALOAD"  "zhangdongjie001.dvb")
)
我是用lsp启动的

diadblo

diadblo 发表于 2018-7-25 11:20
我就是利用CAD工具条按钮调用vba的方式运行程序.用按钮方便很多

确实我理解错了

diadblo

diadblo 发表于 2018-7-25 11:20
我就是利用CAD工具条按钮调用vba的方式运行程序.用按钮方便很多

确实我理解错了