菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
0 V. L7 b- @( D: A" a2 V: y能弹出一个我用ＶＢＡ做的对话框，怎么实现？
请各位帮帮忙！！

caslee

编译成fas文件 加载到acad.lsp
  L8 P$ L9 V& y4 j一级菜单是fas文件 二级是vlx文件

zytom

楼上的大哥，
$ ?4 Y7 g5 Z7 Q6 p/ G能不能把过程讲具体点，我.........

sealive_leafage

定义菜单时，直接写宏代码就可以了。
7 G2 G9 X+ C* e* T* u2 Z例如，菜单项为[对话框调用]^C^C_-VbaRun 对话框.dvb!ViewDialog
注意要先加载vba程序文件（对话框.dvb），ViewDialog是定义的调用对话框的sub。

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
dim mnuGroup as acadmenugroup
set mnuGroup=thisdrawing.menugroups.item(0)
dim newMenu as acadpopumenu
set newnenu=mnugroup.menus.add("TestMenu")
* n, C- R/ g2 v0 Y9 q0 ]$ H, Bdim newMenuItem as AcadPopupMenuItem
* y4 {- {: U! `) c+ y9 B' Adim MacroStr as string
1 f- S+ L8 ]' f3 C3 U/ A9 }# O2 @MacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
" \, `- t3 H9 s4 }) xset newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
4 J6 M/ m, t9 @) s* f" G. Dnewmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
0 b( s9 p; u8 q0 Q- p# ]Sub gMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
" D4 I4 ^# b" E; m9 D+ O# ?Dim newMenu As AcadPopupMenu
8 n# J: f8 N; l, DSet newMenu = currMenuGroup.Menus.Add("零部件")
Dim newMenuItem As AcadPopupMenuItem
Dim Gear As String
Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
$ {" I7 L8 w, n( p  P' ~0 g: dEnd Sub
; r: s! I! ?7 `- P! A2 V6 w

2 h* I) H3 p5 |$ A' u7 E下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

４楼的老大，能不能留下你的ＱＱ或者电话什么的？？
我还有一些问题想向您请教！！

woaishuijia

Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
; S0 {, C  G5 I, w2 R
7 `% w% }' X. A1 Y+ }$ x这一句改成
Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
再写一段
Sub 齿轮()
7 J9 S# K* W" i/ S. e# y'打开用户窗体
5 ~; s  ]" m1 b; N6 rEnd Sub

试试吧

sealive_leafage

按8楼说的试试，你首先要加载了你的DVB文件，然后在宏中调用显示对话框的sub，你没有给string变量Gear赋值，怎么能实现？你最好结合lisp注册一个CAD命令，那么在宏中只需要写命令的名称就可以了。

zytom

Sub 齿轮()
! u! x9 a( P0 c) c- d# b, ^'打开用户窗体
End Sub
5 I& Y' r5 g5 o4 u7 F5 y
7 V* o% g! R4 k# K8 w. }

$ y6 ~* V$ w" Z! e这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
就可以了，把你的代码贴上来看看。
. K/ k5 T1 ~- W# q0 b5 f
[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
3 d: d6 O* ]5 z1 w) P6 \６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
我是想先看看能不能实现点击后弹出这个对话框
; j' G2 h, d0 w6 u& e9 j谢谢楼上的帮忙！！