关于菜单的问题！

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不能自动加载？

关于菜单的问题！

发表回复

精选推荐