菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
/ B7 l% L6 O4 Y; Y# I) c能弹出一个我用ＶＢＡ做的对话框，怎么实现？
" N1 u5 {( z& i- m. Q9 \/ Z" o请各位帮帮忙！！

caslee

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

zytom

楼上的大哥，
( M& G! y6 J" v! ]能不能把过程讲具体点，我.........

sealive_leafage

定义菜单时，直接写宏代码就可以了。
例如，菜单项为[对话框调用]^C^C_-VbaRun 对话框.dvb!ViewDialog
, ~1 Z/ P/ f; i- }注意要先加载vba程序文件（对话框.dvb），ViewDialog是定义的调用对话框的sub。

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
dim mnuGroup as acadmenugroup
; m, G1 x. i8 J/ i, jset mnuGroup=thisdrawing.menugroups.item(0)
dim newMenu as acadpopumenu
set newnenu=mnugroup.menus.add("TestMenu")
0 y: _+ B6 X4 V& k. z* v1 Sdim newMenuItem as AcadPopupMenuItem
/ M5 J& c; l" S, N  Z5 sdim MacroStr as string
6 \* \7 X# J# _2 K: [MacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
. h5 ^' ]/ a% W- o8 xset newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
3 l, c' z- M' ?' Y0 K6 `) Jnewmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
7 G, B1 R* z9 c" O: n& @Sub gMenu()
7 |- \1 v4 s% X3 u) O8 Y2 eDim currMenuGroup As AcadMenuGroup
2 h& C8 s: w, b- CSet currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("零部件")
Dim newMenuItem As AcadPopupMenuItem
Dim Gear As String
- X: t! H: n; E, `Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
& A$ Q! Y+ q) b7 M/ iSet newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
& v4 @; ~; i- X( y0 R! ?End Sub


, R  {) y7 a3 J: _下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

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

woaishuijia

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

这一句改成
Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
再写一段
Sub 齿轮()
! n/ l+ M6 j1 T4 S! N: O- M'打开用户窗体
$ l" A+ {* A) _* j( u! \" ?End Sub
. F$ l/ @2 s# {- Z, K2 d5 O$ h
6 }) {! Q; w' X试试吧

sealive_leafage

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

zytom

Sub 齿轮()
1 t3 r1 }' X4 U; T; n( `'打开用户窗体
End Sub
, X! k2 ^+ ?; e: e. t, J9 s- }

- y6 O/ J: K; }2 l1 E
这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
就可以了，把你的代码贴上来看看。

[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
3 l8 f' `+ L0 A4 M+ O0 y/ N６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
: p" f( u  P- o% I5 U我是想先看看能不能实现点击后弹出这个对话框
谢谢楼上的帮忙！！