菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
4 y) k: F; ?) ^$ v能弹出一个我用ＶＢＡ做的对话框，怎么实现？
请各位帮帮忙！！

caslee

编译成fas文件 加载到acad.lsp
9 q$ p; v' _" f3 l2 `9 i7 ^一级菜单是fas文件 二级是vlx文件

zytom

楼上的大哥，
, y# W1 P0 f! W1 h# {# b% ~' W能不能把过程讲具体点，我.........

sealive_leafage

定义菜单时，直接写宏代码就可以了。
例如，菜单项为[对话框调用]^C^C_-VbaRun 对话框.dvb!ViewDialog
* i; K1 C7 h) h9 e注意要先加载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")
& t7 P* |2 {6 B9 i0 w! G8 x& Ndim newMenuItem as AcadPopupMenuItem
8 |9 N6 Y* ]$ N, J  s+ b  M9 F- ]dim MacroStr as string
) `. q4 |; h1 O- vMacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
1 k, u" u, r/ o! b3 a& d# \0 bset newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
3 A4 n! l/ r3 `( Q0 unewmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
Sub gMenu()
Dim currMenuGroup As AcadMenuGroup
  f0 A/ P7 ?1 T3 @Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
2 E6 m- o) @2 S# L: _1 ZSet newMenu = currMenuGroup.Menus.Add("零部件")
# [* c5 Y; K$ F: C4 y5 DDim newMenuItem As AcadPopupMenuItem
0 g1 [2 c9 I, u0 P) E3 aDim Gear As String
Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
, q) L# U& B. h! l  |newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
3 F) Y  R7 ^- c6 B1 E% UEnd Sub
* E9 _8 ~+ H* w; l8 m
3 ?/ @/ a; V) t# h" u  S
下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

４楼的老大，能不能留下你的ＱＱ或者电话什么的？？
& u$ H$ W1 {% P" O0 z0 q我还有一些问题想向您请教！！

woaishuijia

Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)

' Z( v0 }+ C6 s+ F+ c& e4 j0 K这一句改成
Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
8 |1 D9 {1 u5 b& y再写一段
1 n3 J8 T0 u& r( dSub 齿轮()
'打开用户窗体
9 W" V2 t' V  H; W  x3 {End Sub
3 X* \" q$ ]3 H( n: c, i
  W8 x2 d9 I# |, W; E" i+ d* o试试吧

sealive_leafage

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

zytom

Sub 齿轮()
8 Q- v, K1 M, q  I4 N'打开用户窗体
* b# P9 ~+ E- M0 Q( E, D& HEnd Sub
  Q9 V& X  R8 F0 ?


这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
就可以了，把你的代码贴上来看看。
0 I) l5 Q0 j# I6 _9 H
[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
3 h/ h: ]2 |4 O6 F! [0 ?9 J我是想先看看能不能实现点击后弹出这个对话框
谢谢楼上的帮忙！！