在菜单中好何运行VBA程序?

fantasyfly 发表于 2007-9-26 11:23:00

<div class="tpc_content">自定义菜单,然后选择菜单下拉菜单选项,就可以直接运行VBA程序. 现在我用了VBARUN,但不能直接运行,而是出现宏的窗口.该怎样解决? 在VBA里如何写这一段程序? 还有,我该怎样指定VBA程序?路径如何确定? 谢谢各位.</div>

alin 发表于 2007-9-26 15:00:00

通常我会用LISP来做，例如(defun CreateSteelLayers ()   (vl-vbarun       "C:\\work\\CreateSteelLayers.dvb!MakeLayers.CreateLayers"   )   (princ) )

fantasyfly 发表于 2007-9-26 15:27:00

回楼上

非常感谢,能否在VBA程序中添加该类语句,如何加?

alin 发表于 2007-9-26 18:59:00

能否在VBA程序中添加该类语句? 你该不是想程序在运行过程中启动自己吧。

fantasyfly 发表于 2007-9-27 08:59:00

回楼上

我想自定义一个菜单,然后选择该项菜单就可以直接运行VBA程序.但不知道怎样将菜单指定运行该VBA程序?

alin 发表于 2007-9-27 09:14:00

(defun CreateSteelLayers ()   (vl-vbarun       "C:\\work\\CreateSteelLayers.dvb!MakeLayers.CreateLayers"   )   (princ) )Put the lisp file above in StartUpSuitethen on toolbar button assign ^c^c(CreateSteelLayers);

fantasyfly 发表于 2007-9-27 10:37:00

ThisDrawing.SendCommand "(defun C:InsertRM6 ()(vl-vbarun""C:/Program Files/RM6/RM6-Project.dvb!ThisDrawing.RM6Select"")(princ))" & vbCropenMacro = Chr(3) & Chr(3) & "InsertRM6" & Chr(13)Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "RM6(&R)", openMacro)谢谢ALIN的指导.我在VBA中插入了AUTOLISP的语句.可以实现功能,但运行时有个提示:命令: InsertRM6 _.-VBARUN 宏名称(M): C:/Program Files/RM6/RM6-Project.dvb!ThisDrawing.RM6Select 执行错误这该如何解决?谢谢

fantasyfly 发表于 2007-9-27 10:40:00

PS:虽然有这个执行错误,但对运行结果没有影响.

zzhua 发表于 2007-9-28 23:21:00

在菜单文件中加入如下语名:ID_A1    [菜单名称]^C^C(command "vbaunload" "******");(command "vbaload" "******");(command "-vbarun" "######");注解:******表示所注册的命令名,######表示VBA工程名.

fantasyfly 发表于 2007-9-29 09:30:00

但运行时有个提示:命令: InsertRM6 _.-VBARUN 宏名称(M): C:/Program Files/RM6/RM6-Project.dvb!ThisDrawing.RM6Select 执行错误这该如何解决?谢谢

页: [1] 2

明经CAD社区's Archiver

在菜单中好何运行VBA程序?

回楼上

回楼上