菜单的创建

圣歌

Module Module1
$ J% G7 x; j" l$ D4 j' K    Public Acadapp As AutoCAD.AcadApplication
% M; b: \  h' J" M+ S! S    Sub 连接AutoCAD()
/ `8 G" D  Q3 X: i  y) {' A        On Error Resume Next
        Acadapp = GetObject(, "AutoCAD.Application")
  V! ]9 W' v  F        If Err.Number Then
7 N5 P: z. j+ i' K0 Y9 @            Err.Clear()
7 b" i% X5 ^; K. B# m5 e            Acadapp = CreateObject("AutoCAD.Application")
            If Err.Number Then
                MsgBox("不能运行AutoCAD，请检查是否安装了AutoCAD")
                Exit Sub
            End If
        End If
        Acadapp.Visible = True '界面可视
        Acadapp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
        AppActivate(Acadapp.Caption) '显示AutoCAD界面
    End Sub
* Y. D& |2 t5 n2 x# v    Sub main()
3 L; w+ J, W0 Q! q  r' u8 @        Call 连接AutoCAD()
2 _; `  G9 N; O( l        Dim currMenuGroup As AutoCAD.AcadMenuGroup
1 K; x1 a8 c# Q" @( f8 T* r        currMenuGroup = Acadapp.Application.MenuGroups.Item(0)
8 {& J2 m' {3 L  W0 z- U        '创建新菜单
7 X+ `8 e9 H. A% m6 W; C        Dim NewMenu As AutoCAD.AcadPopupMenu
, v( ]% i! a. T2 F& M) ~) a        NewMenu = currMenuGroup.Menus.Add("个性化菜单项（&B）")
        '注意，若AutoCAD菜单条已有一个同名菜单，则会报错。
( {: X7 g) z. i4 z+ p        '在新菜单上添加菜单项
) H/ }' Y. M) m- g        Dim newMenuItem1 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem2 As AutoCAD.AcadPopupMenuItem
1 S1 h" P4 C, P4 {( D2 z- `        Dim newMenuItem3 As AutoCAD.AcadPopupMenuItem
! {6 D6 M, a; h, A: Y/ I, T        Dim newMenuItem4 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem5 As AutoCAD.AcadPopupMenuItem
        Dim openMacro1 As String
        Dim openMacro2 As String
        Dim openMacro3 As String
        Dim openMacro4 As String
        Dim openMacro5 As String
" O; M' D  D+ E* o        '定义菜单宏
; s9 l1 a- S" F2 O        openMacro1 = Chr(3) & Chr(3) & "shell" & Chr(13) & "齿轮结构参数化三维造型.exe" & Chr(13)
% s! B' H3 [- R* x0 s' s        openMacro2 = Chr(3) & Chr(3) & "shell" & Chr(13) & "斜齿轮.exe" & Chr(13)
% ^2 G# C" |, d5 [" O" p  m, \        openMacro3 = Chr(3) & Chr(3) & "shell" & Chr(13) & "尺寸公差自动标注.exe" & Chr(13)
3 D* o1 R  y/ M' u" M  X0 |        openMacro4 = Chr(3) & Chr(3) & "shell" & Chr(13) & "形位公差自动标注.exe" & Chr(13)
4 B; l3 v7 b  N* w        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)
: O' B' u" d$ W7 I7 G, Q        newMenuItem3 = NewMenu.AddMenuItem(NewMenu.Count + 1, "尺寸公差自动标注（&D）", openMacro1)
        newMenuItem4 = NewMenu.AddMenuItem(NewMenu.Count + 1, "形位公差自动标注（&E）", openMacro1)
        newMenuItem5 = NewMenu.AddMenuItem(NewMenu.Count + 1, "Access数据库管理图形（&F）", openMacro1)
        '在菜单条上显示菜单
1 v( J+ ]3 S  I0 t9 T" U) Q        NewMenu.InsertInMenuBar(Acadapp.Application.MenuBar.Count + 1)
6 \- ~5 A8 \" d! ~; P        Acadapp = Nothing
1 _' M7 C3 b1 R! B    End Sub
+ Q, l4 p: `' yEnd Module

wdn36409

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

落叶思枝

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

767697426

看这个头都大了
0 \6 _# V2 |) B3 w3 n$ t能解释一下干嘛的吗