CAD 二次开发（二）

功能：在菜单里添加一个自定义的菜单”螺丝与齿轮“

Option Explicit
Public LuoDingCAD As AcadApplication
Sub Main()
  On Error Resume Next
  Set LuoDingCAD = GetObject(, "AutoCAD.Application")
  If Err Then
    Err.Clear
    Set LuoDingCAD = CreateObject("AutoCAD.Application")
    If Err Then
      MsgBox ("没有安装CAD")
      Exit Sub
    End If
  End If
  
  LuoDingCAD.WindowState = acMax
  
  Dim currMenuGroup As AcadMenuGroup
  Set currMenuGroup = LuoDingCAD.Application.MenuGroups.Item(0)
  
  Dim newMenu As AcadPopupMenu
  Set newMenu = currMenuGroup.Menus.Add("螺丝与齿轮")
  
  Dim newMenuItem1 As AcadPopupMenuItem
  Dim newMenuItem2 As AcadPopupMenuItem
  Dim openMacro1 As String
  Dim openMacro2 As String
  
  
  openMacro1 = Chr(3) & Chr(3) & "shell" & Chr(13) & "LuoDing.exe" & Chr(13)
  openMacro2 = Chr(3) & Chr(3) & "shell" & Chr(13) & "ChiLun.exe" & Chr(13)
  
  Set newMenuItem1 = newMenu.AddMenuItem(newMenu.Count + 1, "常用螺钉&L", openMacro1)
  
  Set newMenuItem2 = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮加工&L", openMacro2)
  
  newMenu.InsertInMenuBar (LuoDingCAD.Application.MenuBar.Count + 1)
  

  
End Sub

 功能二：在CAD 打开时自动加载自定义菜单

在support文件目录下的acad2004doc.lsp 里，添加如下语句

(defun  S::STARTUP()
  (command "shell" "Menu" )
)

Menu 为生成的EXE 文件