电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VB开发CAD菜单VIP专享VIP免费

VB开发CAD菜单_第1页
VB开发CAD菜单_第2页
VB开发CAD菜单_第3页
VB 能实现cad 菜单 2010 年 09 月 16 日 星期四 下午 07:42 Public Sub CreateMenu() On Error Resume Next \'用 AutoCAD 菜单组的第一项创建一个菜单组 Dim CurMenuGroup As Object Set CurMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) \'创建一个名为“ CAD 增强插件” 的菜单项,设S 为加速键 Dim NewMenu As Object Set NewMenu = CurMenuGroup.Menus.Add("CAD 增强插件(" + Chr(Asc("&")) + "S)") \'确定选择项的宏 Dim FlowMacro As String \'为宏分配命令 \'即 VBA 中的 ESC ESC 设计流程 FlowMacro = Chr(3) & Chr(3) & "(vl-vbarun " & Chr(34) & "DefPipeSize" & Chr(34) & ")" & Chr(13) \'添加选择项到CAD 增强插件菜单项中 Dim FlowMenuItem As Object Dim SepaMenuItem As Object \'分隔符 Set FlowMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, Chr(Asc("&")) + "插入页码", FlowMacro) Set SepaMenuItem = NewMenu.AddSeparator(NewMenu.Count + 1) \'创建子菜单 Dim SingleMenu As Object Set SingleMenu = NewMenu.AddSubMenu(NewMenu.Count + 1, "横断面修改") \'将选择项添加到子菜单中 Dim SubMenuItem As Object Dim SubMacro As String SubMacro = Chr(3) & Chr(3) & "(vl-vbarun " & Chr(34) & "Start_HdmBz" & Chr(34) & ")" & Chr(13) Set SubMenuItem = SingleMenu.AddMenuItem(SingleMenu.Count + 1, "横断面高程标注 ", SubMacro) Set SepaMenuItem = NewMenu.AddSeparator(NewMenu.Count + 1) \'即 VBA 中的 ESC ESC 设计流程 FlowMacro = Chr(3) & Chr(3) & "(vl-vbarun " & Chr(34) & "AboutUs" & Chr(34) & ")" & Chr(13) Set FlowMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, Chr(Asc("&")) + "关于", FlowMacro) FlowMacro = Chr(3) & Chr(3) & "(vl-vbarun " & Chr(34) & "SetOption" & Chr(34) & ")" & Chr(13) Set FlowMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, Chr(Asc("&")) + "设置", FlowMacro) \'在 AutoCAd 菜单条上显示新创建的菜单 NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) End Sub ...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部