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

fantasyfly

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

alin

通常我会用LISP来做，例如

(defun CreateSteelLayers ()
  (vl-vbarun
      "C:\\work\\CreateSteelLayers.dvb!MakeLayers.CreateLayers"
  )
  (princ)
)

fantasyfly

非常感谢,

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

alin

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

fantasyfly

我想自定义一个菜单,然后选择该项菜单就可以直接运行VBA程序.

但不知道怎样将菜单指定运行该VBA程序?

alin

(defun CreateSteelLayers ()
  (vl-vbarun
      "C:\\work\\CreateSteelLayers.dvb!MakeLayers.CreateLayers"
  )
  (princ)
)

Put the lisp file above in StartUpSuite

then on toolbar button assign ^c^c(CreateSteelLayers);

fantasyfly

ThisDrawing.SendCommand "(defun C:InsertRM6 ()(vl-vbarun""C:/Program Files/RM6/RM6-Project.dvb!ThisDrawing.RM6Select"")(princ))" & vbCr

openMacro = 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

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

zzhua

在菜单文件中加入如下语名:

ID_A1    [菜单名称]^C^C(command "vbaunload" "******");(command "vbaload" "******");(command "-vbarun" "######");

注解:******表示所注册的命令名,######表示VBA工程名.

fantasyfly

但运行时有个提示:

命令: InsertRM6
_.-VBARUN
宏名称(M): C:/Program Files/RM6/RM6-Project.dvb!ThisDrawing.RM6Select
执行错误

这该如何解决?谢谢