菜单的创建

圣歌

Module Module1
- E0 j( U# s3 d- Q- M    Public Acadapp As AutoCAD.AcadApplication
* g" u2 f9 \4 a% N0 {/ A; p$ Z    Sub 连接AutoCAD()
. i, j  [" z( p' `        On Error Resume Next
7 X* D! O2 M+ A# J. n; t        Acadapp = GetObject(, "AutoCAD.Application")
        If Err.Number Then
            Err.Clear()
6 S0 w7 }7 q0 e  U5 m            Acadapp = CreateObject("AutoCAD.Application")
            If Err.Number Then
' a3 w$ r% O( w                MsgBox("不能运行AutoCAD，请检查是否安装了AutoCAD")
                Exit Sub
            End If
        End If
' I5 ~, `' o- V) X        Acadapp.Visible = True '界面可视
$ Q7 f% _" K( z" T        Acadapp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
8 I$ W/ ~: j# m, [        AppActivate(Acadapp.Caption) '显示AutoCAD界面
    End Sub
    Sub main()
        Call 连接AutoCAD()
        Dim currMenuGroup As AutoCAD.AcadMenuGroup
% d2 T. z* W" l: S; N9 q+ m0 m3 B6 y        currMenuGroup = Acadapp.Application.MenuGroups.Item(0)
; @! f1 d: H  @7 x0 H$ g* Q        '创建新菜单
' z& n' e/ j( _2 V0 _1 G        Dim NewMenu As AutoCAD.AcadPopupMenu
. f7 F/ y) ^$ ?' M8 `        NewMenu = currMenuGroup.Menus.Add("个性化菜单项（&B）")
- C2 F0 w, \; c" _- V* ]        '注意，若AutoCAD菜单条已有一个同名菜单，则会报错。
        '在新菜单上添加菜单项
0 L  k- R/ |9 S$ z* {        Dim newMenuItem1 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem2 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem3 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem4 As AutoCAD.AcadPopupMenuItem
& d- C* `4 y  ~% D" o        Dim newMenuItem5 As AutoCAD.AcadPopupMenuItem
+ O' I( m3 I7 x3 ^        Dim openMacro1 As String
        Dim openMacro2 As String
        Dim openMacro3 As String
        Dim openMacro4 As String
        Dim openMacro5 As String
$ y# o+ j6 I# Y9 x. k! x/ h' I        '定义菜单宏
        openMacro1 = Chr(3) & Chr(3) & "shell" & Chr(13) & "齿轮结构参数化三维造型.exe" & Chr(13)
        openMacro2 = Chr(3) & Chr(3) & "shell" & Chr(13) & "斜齿轮.exe" & Chr(13)
' w$ r( a$ _  K. N5 f6 G        openMacro3 = Chr(3) & Chr(3) & "shell" & Chr(13) & "尺寸公差自动标注.exe" & Chr(13)
% y4 P7 p# p9 @/ k1 c        openMacro4 = Chr(3) & Chr(3) & "shell" & Chr(13) & "形位公差自动标注.exe" & Chr(13)
        openMacro5 = Chr(3) & Chr(3) & "shell" & Chr(13) & "Access数据库管理图形.exe" & Chr(13)
        '创建菜单项
        newMenuItem1 = NewMenu.AddMenuItem(NewMenu.Count + 1, "齿轮结构参数化三维造型（&A）", openMacro1)
        newMenuItem2 = NewMenu.AddMenuItem(NewMenu.Count + 1, "斜齿轮（&C）", openMacro1)
        newMenuItem3 = NewMenu.AddMenuItem(NewMenu.Count + 1, "尺寸公差自动标注（&D）", openMacro1)
) O  A' H) q- [' M3 m2 t2 C        newMenuItem4 = NewMenu.AddMenuItem(NewMenu.Count + 1, "形位公差自动标注（&E）", openMacro1)
( l4 t$ F: b) F: r! D+ r7 B        newMenuItem5 = NewMenu.AddMenuItem(NewMenu.Count + 1, "Access数据库管理图形（&F）", openMacro1)
) q: T' i$ ]# t! ?5 s4 @8 A5 C        '在菜单条上显示菜单
6 X' V0 F" a' A* j! N8 r( \+ ]        NewMenu.InsertInMenuBar(Acadapp.Application.MenuBar.Count + 1)
        Acadapp = Nothing
    End Sub
End Module
3 S( V7 k) h8 F3 x
. [! i2 n: }, h7 U) R

wdn36409

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

落叶思枝

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

767697426

看这个头都大了
能解释一下干嘛的吗