菜单的创建

圣歌

Module Module1
    Public Acadapp As AutoCAD.AcadApplication
    Sub 连接AutoCAD()
  ?+ H  \) k! S$ S5 V        On Error Resume Next
' j# h  [- ^4 I8 r        Acadapp = GetObject(, "AutoCAD.Application")
. w, T1 t) t7 N1 {        If Err.Number Then
            Err.Clear()
            Acadapp = CreateObject("AutoCAD.Application")
            If Err.Number Then
                MsgBox("不能运行AutoCAD，请检查是否安装了AutoCAD")
                Exit Sub
# {6 ?  {/ Z/ ^, ~6 Z            End If
1 D* d' f1 X7 C+ |        End If
        Acadapp.Visible = True '界面可视
2 x/ C, M, [* ~4 D# c+ G        Acadapp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
        AppActivate(Acadapp.Caption) '显示AutoCAD界面
( P' Q6 r' o9 H( e! b% o0 i5 h) s    End Sub
    Sub main()
        Call 连接AutoCAD()
1 c9 }' m1 a2 a* @6 f8 G- m! S        Dim currMenuGroup As AutoCAD.AcadMenuGroup
        currMenuGroup = Acadapp.Application.MenuGroups.Item(0)
( M; p1 B: d+ T; M5 q8 R        '创建新菜单
        Dim NewMenu As AutoCAD.AcadPopupMenu
1 v; S' ]! z0 ^- \8 q" T/ {        NewMenu = currMenuGroup.Menus.Add("个性化菜单项（&B）")
        '注意，若AutoCAD菜单条已有一个同名菜单，则会报错。
        '在新菜单上添加菜单项
        Dim newMenuItem1 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem2 As AutoCAD.AcadPopupMenuItem
3 {, l% f. z8 W8 D0 C/ @        Dim newMenuItem3 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem4 As AutoCAD.AcadPopupMenuItem
6 K) Q! W2 R; o  x, H  w        Dim newMenuItem5 As AutoCAD.AcadPopupMenuItem
* x8 D% x, b+ s' q0 \3 Z4 S/ F        Dim openMacro1 As String
) T2 d. `% E$ P( k        Dim openMacro2 As String
        Dim openMacro3 As String
3 H' \7 h+ w9 _  y' }' F        Dim openMacro4 As String
# c& r: r3 Y& T( }2 S        Dim openMacro5 As String
        '定义菜单宏
        openMacro1 = Chr(3) & Chr(3) & "shell" & Chr(13) & "齿轮结构参数化三维造型.exe" & Chr(13)
. L& E: L4 D" L0 E$ m        openMacro2 = Chr(3) & Chr(3) & "shell" & Chr(13) & "斜齿轮.exe" & Chr(13)
        openMacro3 = Chr(3) & Chr(3) & "shell" & Chr(13) & "尺寸公差自动标注.exe" & Chr(13)
% s" F/ e" G; P$ X% T% s8 n        openMacro4 = Chr(3) & Chr(3) & "shell" & Chr(13) & "形位公差自动标注.exe" & Chr(13)
        openMacro5 = Chr(3) & Chr(3) & "shell" & Chr(13) & "Access数据库管理图形.exe" & Chr(13)
1 b$ Z7 n0 [  h+ k! c" k        '创建菜单项
        newMenuItem1 = NewMenu.AddMenuItem(NewMenu.Count + 1, "齿轮结构参数化三维造型（&A）", openMacro1)
2 }4 l$ [/ D6 B0 W' `6 x- n        newMenuItem2 = NewMenu.AddMenuItem(NewMenu.Count + 1, "斜齿轮（&C）", openMacro1)
        newMenuItem3 = NewMenu.AddMenuItem(NewMenu.Count + 1, "尺寸公差自动标注（&D）", openMacro1)
        newMenuItem4 = NewMenu.AddMenuItem(NewMenu.Count + 1, "形位公差自动标注（&E）", openMacro1)
$ b+ w! i; u: Y0 w        newMenuItem5 = NewMenu.AddMenuItem(NewMenu.Count + 1, "Access数据库管理图形（&F）", openMacro1)
        '在菜单条上显示菜单
# G% \9 A$ T  b( C4 p; z        NewMenu.InsertInMenuBar(Acadapp.Application.MenuBar.Count + 1)
- _6 F$ n6 \4 }' D9 ^        Acadapp = Nothing
    End Sub
End Module

' Y0 X: @0 F0 S" N7 D8 d# f

wdn36409

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

落叶思枝

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

767697426

看这个头都大了
* l2 I' w0 H6 d5 r. ]能解释一下干嘛的吗