[求助]：vba加载的问题

sccat · 发表于 2004-12-22 13:10:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

VBA加载时会做些什么事情？

有没有Onload函数

我想在VBA加载时把对应的快捷命令和菜单加上去怎么办?

雪山飞狐(lzh) · 发表于 2004-12-22 16:17:43

做成宏，然后用Lisp调用

sccat · 发表于 2004-12-23 08:45:38

这样做好像比较麻烦。

能不能在一个dvb中实现？

duanjunqi · 发表于 2004-12-23 17:34:14

这里有一个Lisp编写的加载实例，自己看看吧
(defun c:DC10 ( / )
  (setvar "cmdecho" 0)
  (if (findfile "dwgcmp10.dvb")
(progn
   (setvar "filedia" 0)
   (command "_vbaload" (findfile "dwgcmp10.dvb"))
   (command "-vbarun" "dwgcompare10.dwgcomp")
   (command "_vbaunload")
   (setvar "filedia" 1)
)
(princ
   "\nThe file 'DWGCMP10.DVB was not found in your search path."
)
  )
  (princ)
)
(princ "\nDrawing Compare ver 1.0.0 loaded.")
(princ "\n\tType 'DC10' to start.")

自由的鱼 · 发表于 2004-12-29 18:07:22

最初由 sccat 发布
[B]这样做好像比较麻烦。

能不能在一个dvb中实现？ [/B]

怎么会很麻烦呢，在CAD里定义按钮，然后写代码进去，以后就可以实现点击执行了，记得把DVB程序加入启动组！

秦林 · 发表于 2005-1-28 13:54:08

在acad.mnu输入
ID_宏名 [宏名]^C^C^P(command "vbaunload" "宏名.dvb");(command "vbaload" "宏名.dvb");(command "-vbarun" "宏名");
然后加载该acad.mnu文件即可

bigcat9898 · 发表于 2005-1-28 17:20:33

最初由秦林发布
[B]在acad.mnu输入
ID_宏名 [宏名]^C^C^P(command "vbaunload" "宏名.dvb");(command "vbaload" "宏名.dvb");(command "-vbarun" "宏名");
然后加载该acad.mnu文件即可 [/B]

为什么要先卸载该文件，然后右加载该文件呢？请指教！谢谢！

秦林 · 发表于 2005-10-12 11:49:48

如果"宏名.DVB"已经加载过，当操作者再选择此项功能时，系统会弹出一警告视窗。先卸载该文件，再加载就不会弹出这一警告视窗,节约些时间。

winabcd · 发表于 2005-10-20 14:13:22

有没有办法先判断一下"宏名.DVB"是否已经加载

秦林 · 发表于 2005-10-29 11:45:34

最初由 winabcd 发布
[B]有没有办法先判断一下"宏名.DVB"是否已经加载 [/B]

从目前我了解的情况来看，VBA做不到，但可用选择[工具(T)]--[宏(M]--[加载项目(L)]选项，见下图所示

E:\My Documents\SendXdSoft\hong.bmp

albatross · 发表于 2005-11-11 18:35:54

又学到一些知识，
喜欢VBA却不懂

账号		自动登录	找回密码
密码			立即注册

[求助]：vba加载的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子