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

求救获取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:00

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

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


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

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

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

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


确实我理解错了

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


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