diadblo 发表于 2018-7-23 11:22:07

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

我的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 发表于 2018-7-24 11:50:18

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

diadblo 发表于 2018-7-25 11:20:26

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

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

qwh923820 发表于 2018-7-25 15:43:35

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

diadblo 发表于 2018-7-30 17:11:03

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

确实我理解错了

diadblo 发表于 2018-7-30 17:12:36

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

确实我理解错了
页: [1]
查看完整版本: 求救获取DVB 路径中发生的错误