Sub CreatMenu()

Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.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) & "-vbarun" & vbCr & "Test1" & vbCr
openMacro2 = Chr(3) & Chr(3) & "-vbarun" & vbCr & "Test2" & vbCr
Set newMenuItem1 = newMenu.AddMenuItem(newMenu.Count + 1, "測試1", openMacro1)
Set newMenuItem2 = newMenu.AddMenuItem(newMenu.Count + 1, "測試2", openMacro2)
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)

 

End Sub
arrow
arrow
    全站熱搜

    戮克 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄