菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
能弹出一个我用ＶＢＡ做的对话框，怎么实现？
* v+ L) V& Y4 q$ }请各位帮帮忙！！

caslee

编译成fas文件 加载到acad.lsp
一级菜单是fas文件 二级是vlx文件

zytom

楼上的大哥，
' }% ?' Z# `- e0 p7 E4 @0 g" }6 P8 X能不能把过程讲具体点，我.........

sealive_leafage

定义菜单时，直接写宏代码就可以了。
" Y5 _7 B, h5 R# t. e. ^& \例如，菜单项为[对话框调用]^C^C_-VbaRun 对话框.dvb!ViewDialog
* W0 P7 e, r. n. ]5 L注意要先加载vba程序文件（对话框.dvb），ViewDialog是定义的调用对话框的sub。

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
dim mnuGroup as acadmenugroup
. j+ n. l$ L$ H# u, q. rset mnuGroup=thisdrawing.menugroups.item(0)
+ p5 N  U- _* ]3 i0 C6 [dim newMenu as acadpopumenu
set newnenu=mnugroup.menus.add("TestMenu")
8 Z8 i( a- e: i3 D/ Jdim newMenuItem as AcadPopupMenuItem
7 z/ ]* z9 R% V& Q0 S0 ydim MacroStr as string
MacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
* c' n0 V% U' W( c" gset newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
. G0 \' p& G2 h4 e6 i# V% c  Rnewmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
Sub gMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("零部件")
Dim newMenuItem As AcadPopupMenuItem
Dim Gear As String
6 c% Z4 l, F+ k6 EGear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
+ \5 ?- G5 g6 a- d  t7 @& ZSet newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
0 i4 k. D$ r% S; FnewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
# W; ~' t7 k7 U8 sEnd Sub

# @8 z# R: @  E/ ^" D0 N$ s) u- p
下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

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

woaishuijia

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

这一句改成
& H/ E" e! f. T. CGear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
( w$ \, m- E, ^3 Y" [! c0 s再写一段
Sub 齿轮()
'打开用户窗体
3 R( _1 m3 q/ l, O7 w! I" VEnd Sub
% X+ V( o1 ~# B" E1 N
试试吧

sealive_leafage

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

zytom

Sub 齿轮()
; [" S: Z0 j" J'打开用户窗体
End Sub

/ x* F% `" J) B5 ]/ ]2 O9 r) S  ]

这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
就可以了，把你的代码贴上来看看。
! s0 V+ G1 @0 `
[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
+ f- R" l0 W) I% m) R６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
我是想先看看能不能实现点击后弹出这个对话框
谢谢楼上的帮忙！！