菜單的創(chuàng)建

圣歌

Module Module1
    Public Acadapp As AutoCAD.AcadApplication
* h. h7 v/ i3 U0 t! |( r/ v    Sub 連接AutoCAD()
        On Error Resume Next
        Acadapp = GetObject(, "AutoCAD.Application")
        If Err.Number Then
+ h. ~, w4 ~" n7 u/ o) v            Err.Clear()
            Acadapp = CreateObject("AutoCAD.Application")
5 X$ M* m5 n1 ]. G0 e7 u2 }            If Err.Number Then
                MsgBox("不能運行AutoCAD,，請檢查是否安裝了AutoCAD")
                Exit Sub
; r8 m  }" C) \. B            End If
        End If
- \/ D5 b4 @" n, Z+ o        Acadapp.Visible = True '界面可視
        Acadapp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
$ P0 p) d. {9 U( Z1 L        AppActivate(Acadapp.Caption) '顯示AutoCAD界面
    End Sub
    Sub main()
        Call 連接AutoCAD()
        Dim currMenuGroup As AutoCAD.AcadMenuGroup
        currMenuGroup = Acadapp.Application.MenuGroups.Item(0)
        '創(chuàng)建新菜單
        Dim NewMenu As AutoCAD.AcadPopupMenu
        NewMenu = currMenuGroup.Menus.Add("個性化菜單項（&B）")
        '注意,，若AutoCAD菜單條已有一個同名菜單，則會報錯,。
        '在新菜單上添加菜單項
+ H% C1 _2 O1 \- t        Dim newMenuItem1 As AutoCAD.AcadPopupMenuItem
6 f- Q. C& h9 J/ e% S# Q3 @7 b7 Y5 u        Dim newMenuItem2 As AutoCAD.AcadPopupMenuItem
        Dim newMenuItem3 As AutoCAD.AcadPopupMenuItem
' K7 i; T4 p9 ~) |( q" g        Dim newMenuItem4 As AutoCAD.AcadPopupMenuItem
) s4 i  m4 {$ y$ [' ]* F: [1 R        Dim newMenuItem5 As AutoCAD.AcadPopupMenuItem
        Dim openMacro1 As String
* \0 l9 y( {: z2 ]0 ^) K! @        Dim openMacro2 As String
: u8 K" d$ N/ _        Dim openMacro3 As String
        Dim openMacro4 As String
  i* C8 G4 q/ o; I- ?        Dim openMacro5 As String
        '定義菜單宏
: b% v4 T# C5 B$ l* G; L5 o        openMacro1 = Chr(3) & Chr(3) & "shell" & Chr(13) & "齒輪結(jié)構(gòu)參數(shù)化三維造型.exe" & Chr(13)
6 P$ ^9 y, T( n! a' k        openMacro2 = Chr(3) & Chr(3) & "shell" & Chr(13) & "斜齒輪.exe" & Chr(13)
        openMacro3 = Chr(3) & Chr(3) & "shell" & Chr(13) & "尺寸公差自動標注.exe" & Chr(13)
        openMacro4 = Chr(3) & Chr(3) & "shell" & Chr(13) & "形位公差自動標注.exe" & Chr(13)
2 T* x/ W7 C& a6 w  p( V7 h        openMacro5 = Chr(3) & Chr(3) & "shell" & Chr(13) & "Access數(shù)據(jù)庫管理圖形.exe" & Chr(13)
- n7 i5 g' p# N$ S9 U/ O; Z# e        '創(chuàng)建菜單項
' X. H9 _1 e4 @# J) y8 i: K" ^        newMenuItem1 = NewMenu.AddMenuItem(NewMenu.Count + 1, "齒輪結(jié)構(gòu)參數(shù)化三維造型（&A）", openMacro1)
3 z" ^& w7 q" Q* `! V! z        newMenuItem2 = NewMenu.AddMenuItem(NewMenu.Count + 1, "斜齒輪（&C）", openMacro1)
        newMenuItem3 = NewMenu.AddMenuItem(NewMenu.Count + 1, "尺寸公差自動標注（&D）", openMacro1)
/ R0 [3 Y/ F: Q        newMenuItem4 = NewMenu.AddMenuItem(NewMenu.Count + 1, "形位公差自動標注（&E）", openMacro1)
2 V% F5 t/ t( n! T* A        newMenuItem5 = NewMenu.AddMenuItem(NewMenu.Count + 1, "Access數(shù)據(jù)庫管理圖形（&F）", openMacro1)
. ]/ ^* s7 ~1 l3 e2 l8 ]        '在菜單條上顯示菜單
) n  _- }! A( `" z        NewMenu.InsertInMenuBar(Acadapp.Application.MenuBar.Count + 1)
6 x; d& z/ B5 O9 ]. Q        Acadapp = Nothing
    End Sub
, O+ ]- N* ^6 ?End Module

6 P9 O8 Y5 \& v2 c

wdn36409

拿來試試,，表中格式符號可能有點麻煩。

落葉思枝

能介紹一下這是什么東西嗎,？該如何操作呢,？

767697426

看這個頭都大了
能解釋一下干嘛的嗎