菜单的创建

圣歌

Module Module1
Public Acadapp As AutoCAD.AcadApplication
, v4 _$ H2 N9 {8 YSub 连接AutoCAD()
, `1 d9 v7 t, `" x5 @! eOn Error Resume Next
4 {# ^3 x8 U6 L; x) G* c' `: GAcadapp = GetObject(, "AutoCAD.Application")
$ D6 k+ s0 r9 g) T/ U# AIf Err.Number Then
Err.Clear()
8 J. O& I' C8 b* r+ {7 A3 i* eAcadapp = CreateObject("AutoCAD.Application")
6 M" G' b, S5 |- Y4 |/ n5 hIf Err.Number Then
6 K* [3 G) l- t; w( y, J# kMsgBox("不能运行AutoCAD，请检查是否安装了AutoCAD")
- ~ d8 b% u! k5 I- YExit Sub
' x0 z0 j E5 V5 [0 AEnd If
End If
. u2 D, u0 @2 T O* Z, h! Z0 NAcadapp.Visible = True '界面可视
" Q; h2 F1 g8 L" KAcadapp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
AppActivate(Acadapp.Caption) '显示AutoCAD界面
End Sub
* J, V( L3 }7 MSub main()
, d2 V$ w9 H- g; ]* OCall 连接AutoCAD()
Dim currMenuGroup As AutoCAD.AcadMenuGroup
" T: p8 @3 ]# j0 i+ I% y/ E; I6 ncurrMenuGroup = Acadapp.Application.MenuGroups.Item(0)
, z& I( x" c$ T' P'创建新菜单
: r Z/ [( m4 dDim NewMenu As AutoCAD.AcadPopupMenu
$ I3 c3 j& {1 }! BNewMenu = currMenuGroup.Menus.Add("个性化菜单项（&B）")
/ v, v; i1 C. f9 M8 ~/ F'注意，若AutoCAD菜单条已有一个同名菜单，则会报错。
'在新菜单上添加菜单项
Dim newMenuItem1 As AutoCAD.AcadPopupMenuItem
" u6 x6 B& u+ I; p9 Q9 Z4 [' CDim newMenuItem2 As AutoCAD.AcadPopupMenuItem
Dim newMenuItem3 As AutoCAD.AcadPopupMenuItem
k) i7 o+ S( ]* Z* }6 c4 h! [+ wDim newMenuItem4 As AutoCAD.AcadPopupMenuItem
Dim newMenuItem5 As AutoCAD.AcadPopupMenuItem
& x4 w0 @ n! R2 pDim openMacro1 As String
$ v5 n3 N+ k; o9 [! ?/ QDim openMacro2 As String
Dim openMacro3 As String
% ^' V0 G2 R' fDim openMacro4 As String
) X! k4 I& x7 ?2 R) b* MDim openMacro5 As String
0 a+ k& w' y+ q7 x: H7 p) G'定义菜单宏
openMacro1 = Chr(3) & Chr(3) & "shell" & Chr(13) & "齿轮结构参数化三维造型.exe" & Chr(13)
# d7 k% f. l, p& ropenMacro2 = Chr(3) & Chr(3) & "shell" & Chr(13) & "斜齿轮.exe" & Chr(13)
openMacro3 = Chr(3) & Chr(3) & "shell" & Chr(13) & "尺寸公差自动标注.exe" & Chr(13)
; Y9 w) p3 k9 `" AopenMacro4 = Chr(3) & Chr(3) & "shell" & Chr(13) & "形位公差自动标注.exe" & Chr(13)
+ f4 n9 K8 B1 YopenMacro5 = Chr(3) & Chr(3) & "shell" & Chr(13) & "Access数据库管理图形.exe" & Chr(13)
0 [* Y' O+ b! J$ f+ I# \7 P5 e2 A'创建菜单项
3 ]# s L0 S2 k: E2 InewMenuItem1 = NewMenu.AddMenuItem(NewMenu.Count + 1, "齿轮结构参数化三维造型（&A）", openMacro1)
# C( a- G; X1 N q3 g/ W" N2 m/ nnewMenuItem2 = NewMenu.AddMenuItem(NewMenu.Count + 1, "斜齿轮（&C）", openMacro1)
newMenuItem3 = NewMenu.AddMenuItem(NewMenu.Count + 1, "尺寸公差自动标注（&D）", openMacro1)
' I8 G0 i3 a$ Z/ C \newMenuItem4 = NewMenu.AddMenuItem(NewMenu.Count + 1, "形位公差自动标注（&E）", openMacro1)
2 c E- s2 c8 V: ~+ i3 U3 C; O9 s0 tnewMenuItem5 = NewMenu.AddMenuItem(NewMenu.Count + 1, "Access数据库管理图形（&F）", openMacro1)
'在菜单条上显示菜单
NewMenu.InsertInMenuBar(Acadapp.Application.MenuBar.Count + 1)
Acadapp = Nothing
' j7 l8 \# f q2 g3 CEnd Sub
: f3 ` d- {4 d4 pEnd Module
$ S* G6 }/ i2 P6 f: E. m3 }3 A
$ B3 \4 S1 \1 U- h) o; Q( Z2 Y

wdn36409

拿来试试，表中格式符号可能有点麻烦。

落叶思枝

能介绍一下这是什么东西吗？该如何操作呢？

767697426

看这个头都大了
1 ]9 S- O; ^/ V! k3 F! X能解释一下干嘛的吗