Question

acad.lsp 中如何判断已加载了VBA工程

(defun s::startup() ;(if (not S::startup) ;(setvar "cmdecho" 0) (command "_vbaload" "C:\\Program Files\\AA\\AA.dvb") (command "_vbarun" "AA");(setvar "cmdecho" 0) (princ)) 这是加在ACAD.LSP里的语句,就是启动CAD时自动运行VBA程序. 我如何时才能判断是否已经加载了AA.DVB?以避免出现已加载的提示. 谢谢各位朋友.

Answer 1

我也遇到了同样的问题，在网上找了一圈也没找到解决方案，折腾了一个星期，终于还是自己悟出了解决办法，效果两个字：完美！

以你的例子来做：

(defun s::startup()

;直接通过启动宏的方式运行加载宏命令，避免直接加载dvb文件出现重复加载而弹出提示框的问题

(command "-VBARUN" "C:\\Program Files\\AA\\AA.dvb!AA")

)

搞定！解决问题必须遵循【大道至简】的解决方式，其实很多问题比我们想像的简单多了。

祝各位好运！

Answer 2

(defun s::startup() ;(if (not S::startup) ;(setvar "cmdecho" 0) (command "_vbarun" "C:\\Program Files\\AA\\AA.dvb!thisdrawing.AA");(setvar "cmdecho" 0) (princ)) 为何在未启动CAD时,同时打开多个DWG图就会导致CAD死掉, 而在已启动CAD时,同时打开多个DWG图却没有问题? 查看原帖>>