求救,关于判断VBA程序是否已加载?

meworld

我做的一个VBA程序要CAD每次启动是加载，这个我办到了，但是在CAD启动后每次重新打开文件，会有一个消息框提示我该VBA程序已加载，也就是重复加载了，那我该怎么判断某个VBA程序是否已经加载了呢？请高手帮忙。

雪山飞狐_lzh

你是怎么做的？

meworld

我在acad2004.lsp中加了下面这句command "vbaload" "vba.dvb")
在vba.dvb文件中有子过程Public Sub ss().
然后在菜单文件中:
(defun c:ss()
(command "vbarun" "ss")
) 启动CAD之后,每次重新打开一个文件就会重新执行acad2004.lsp,因此就会提示"c:\..........vba.dvb已加载".

meworld

是不是应该判断一下是否vba.dvb已加载,如果已加载就直接跳过,没加载就加载一次,怎么判断?

雪山飞狐_lzh

不要(command "vbaload" "vba.dvb") (defun c:ss()
(command "vbarun" "vba.dvb!ss")
)

meworld

我试过了,一切正常,太好了,你太厉害了.由衷的佩服.


飞狐大哥,真的是太感谢你了,这两天你帮了我很多忙,我还没见过其他哪个网站的斑竹会这么负责的,由衷的感谢.