lei_jinbo 发表于 2003-8-27 15:09:00

关于菜单的问题!

用VBA做菜单,可以实现如下功能吗?
1),每次启动时记载自己用VBA写的菜单(为什么我将.DVB文件加到启动组后不能自动加载?)
2),菜单做好后,可以象VB里面写Click命令,然后进行相应的事件吗?(我现在在写加载菜单的程序里面 set menuItemObject=submenuobject1.addmenuitem(1,"click","-vbarun thisdrawing.______",vbcr), _____可以是自己写的宏吗?

谢谢高手指点!

thankyou 发表于 2003-8-27 17:39:00

1,VBA加载了不等于执行,可以在ACAD****DOC。LSP文件下加入如下代码:
(command "vbarun" VBA文件路径)
启动ACAD后就可以自动执行你的VBA文件了
2,当然可以,那不然菜单有什么用?菜单格式如下:
MacroStr = Chr(3) + Chr(3) + Chr(95) + "A" + Chr(32)
Set MenuItem = NewMenu.AddMenuItem(B, "C", MacroStr)
A-LISP定义的命令
B-位置
C-说明
这里就要加载相应的LISP文件了:
(DEFUN C: A()
(COMMAND "VBARUN" VBA文件路径)
)

lei_jinbo 发表于 2003-9-1 10:11:00

当然可以,那不然菜单有什么用?菜单格式如下:
MacroStr = Chr(3) + Chr(3) + Chr(95) + "A" + Chr(32)
Set MenuItem = NewMenu.AddMenuItem(B, "C", MacroStr)
A-LISP定义的命令
B-位置
C-说明
这里就要加载相应的LISP文件了:
(DEFUN C: A()
(COMMAND "VBARUN" VBA文件路径)
)


Thank you, 可是怎么加载LISP文件呢?
(DEFUN C: A()
(COMMAND "VBARUN" VBA文件路径)
这一段应该写在哪里呀?ACAD*DOC.lsp?
不知道写在哪里。
)

lei_jinbo 发表于 2003-9-2 21:29:00

2004版的好像加在ACAD*DOC.lsp不能自动加载?
页: [1]
查看完整版本: 关于菜单的问题!