一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

AutoCAD VBA添加菜單

 印度阿三17 2019-05-31

# 給cad添加自定義菜單

?

 1 Private Sub AddBar()
 2     Dim NewMenuItem As AcadPopupMenuItem
 3     Dim TheMacro As String
 4     Dim MI As Integer
 5     
 6     On Error Resume Next
 7     Dim currMenuGroup As AcadMenuGroup
 8     Set currMenuGroup = Application.MenuGroups.Item(0)
 9     'Create the new menu
10     Set NewMenu = currMenuGroup.Menus.Add("批量繪圖")
11     If Err.Number Then
12         Err.Clear
13         For Each NewMenu In currMenuGroup.Menus
14             If NewMenu.Name = "批量繪圖" Then Exit For
15         Next
16     End If
17     
18     'Add a menu item to the new menu
19     'Assign the macro string the VB equivalent of "ESC ESC _open "
20     'TheMacro = Chr(3) & Chr(3) & Chr(95) & "-vbarun ""GeoSection.dvb!DZPM.GeoSection""" & Chr(32)
21     TheMacro = Chr(3) & Chr(3) & Chr(95) & "-vbarun ""MainSub""" & Chr(32)
22     Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count   1, "批量繪圖", TheMacro)
23     If Err.Number Then Err.Clear
24     'Display the menu on the menu bar
25     NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count   1)
26     If Err.Number Then Err.Clear
27 End Sub
View Code

寫幾個事件驅(qū)動菜單顯示

?

 1 Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
 2     If StrComp(Left$(CommandName, 3), "VBA", 1) <> 0 And UCase$(CommandName) <> "APPLOAD" Then Exit Sub
 3     If NewMenu Is Nothing Then AddBar
 4 End Sub
 5 
 6 Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
 7     If StrComp(Left$(CommandName, 3), "VBA", 1) <> 0 And UCase$(CommandName) <> "APPLOAD" Then Exit Sub
 8     If NewMenu Is Nothing Then AddBar
 9 End Sub
10 
11 Public Sub MainSub()
12     Dim frm As New UserForm1
13     Call UserForm1.Show
14 End Sub
View Code

?最終效果

?

來源:http://www./content-4-220601.html

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    欧美精品在线观看国产| 日本一区不卡在线观看| 开心激情网 激情五月天| 欧美黑人黄色一区二区| 黄片在线免费看日韩欧美| 欧美成人精品一区二区久久| 亚洲国产香蕉视频在线观看| 又大又长又粗又黄国产| 少妇人妻一级片一区二区三区| 日韩精品第一区二区三区| 国语对白刺激高潮在线视频| 欧美尤物在线视频91| 九七人妻一区二区三区| 精产国品一二三区麻豆| 国产又粗又长又爽又猛的视频| 中文字幕亚洲精品乱码加勒比| 日韩亚洲精品国产第二页| 九九九热在线免费视频| 人人妻在人人看人人澡| 亚洲男人的天堂色偷偷| 国产一区在线免费国产一区| 国内精品一区二区欧美| 亚洲最新中文字幕在线视频| 亚洲美女国产精品久久| 男女午夜福利院在线观看| 一区二区免费视频中文乱码国产 | 大尺度激情福利视频在线观看| 久久国产人妻一区二区免费| 免费国产成人性生活生活片| av一区二区三区天堂| 国产精品色热综合在线| 亚洲成人久久精品国产| 日韩一区二区三区四区乱码视频| 国产女同精品一区二区| 国产丝袜美女诱惑一区二区| 国产男女激情在线视频| 又色又爽又无遮挡的视频| 成人午夜视频精品一区| 我的性感妹妹在线观看| 亚洲伦理中文字幕在线观看| 日韩精品在线观看完整版|