VBA CAD 菜单制作攻略

1。首先写好一个dvb文件。

这个dvb文件中包含，菜单建立功能，例如：

Public Sub SetupMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
'创建新的菜单
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("智能展点系统(&S)")
'添加一个菜单项的子菜单
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
Dim FileSubMenu As AcadPopupMenu
'添加子菜单
' 将宏指定字符串相当于 ESC ESC _open
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN Draw500Points" & Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "ABC", openMacro)
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN Draw1000Points" & Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "ABA", openMacro)
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN Draw2000Points" & Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "ABD", openMacro)
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN MapTurn" & Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "ABC", openMacro)
Set newMenuItem = newMenu.AddSeparator(newMenu.Count)
Set FileSubMenu = newMenu.AddSubMenu(newMenu.Count + 1, "绘制2D实体")
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN MkLine" & Chr(32)
Set newMenuItem = FileSubMenu.AddMenuItem(newMenu.Count + 1, "绘制直线(&L)", openMacro)
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN MkPolyline" & Chr(32)
Set newMenuItem = FileSubMenu.AddMenuItem(newMenu.Count + 1, "绘制多段线(&P)", openMacro)
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN MkCircle" & Chr(32)
Set newMenuItem = FileSubMenu.AddMenuItem(newMenu.Count + 1, "绘制圆(&C)", openMacro)
openMacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN AboutMe" & Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "&About", openMacro)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "&Open File...", openMacro)
'显示菜单栏上的的菜单
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub

2。查找并修改acad.lsp

例如cad 2004 修改acad2004.lsp

这个文件一般在目录C:\Program Files\AutoCAD 2004\Support

在该文件中加入以下语句：

(defun S::STARTUP()
(command "_VBALOAD" "SmartSystem.dvb")
(command "_-VBARUN" "SetupMenu"))

3。拷贝

SmartSystem.dvb为dvb文件名，然后把这个文件拷贝到cad的默认搜索目录，如C:\Program Files\AutoCAD 2004\Support

这样就能cad就能自动启动加载项了。

VBA CAD 菜单制作攻略相关推荐

高品质MP3制作攻略
高品质MP3制作攻略前言作者:蓝颖 [2004-05-28] MP3的品质取决于音源的质量和制作的方法,无论是从CD唱片.VCD影片或者其他介质上提取音频数据转换为MP3,又或 ...
PHP错题本功能实现,收藏| 最高效的＂错题本＂制作攻略！手把手教会你！
原标题:收藏| 最高效的＂错题本＂制作攻略!手把手教会你! "错题本",也叫"摘错本""纠错本""改错本",是学生把自己 ...
Fluent Meshing 高效准确读入CAD模型343攻略
作者:张杨,仿真秀专栏作者对于我们流体工程师来讲,"仿真驱动设计"是常常被挂在嘴边的一句话.CFD的主要工作,也是将我们所熟识的物理现象,应用到特定的场景(产品)之中.那么,对于 ...
迷你世界电路计算机的过程,迷你世界循环电路怎么做迷你世界循环电路制作攻略...
类型:休闲益智大小:80.1M语言:中文评分:6.6 标签: 立即下载迷你世界是一款超开放的沙盒创造手游,玩家可以在迷你世界中搭建一个梦想中的家园,各种现实中的内容都可以在游戏中呈现,很多小伙伴都 ...
【电子文件制作攻略】（仅供参考）
[电子文件制作攻略](仅供参考) 1. 文件扫描工具:手机应用"口袋扫描仪"或"扫描全能王" 下载:通过官网https://www.myhithink.com ...
我的世界红石加法计算机教程,MC红石四位加法器制作攻略 | 我的世界 | MC世界侠...
我的世界红石4位加法器制作攻略,在Minecraft中你可以制作各种各样的工具道具,包括使用红石电路做简单的陷阱等,那么制作红石4位加法器呢?来自"中文Minecraft Wiki" ...
乐高无限自己地图无法服务器,乐高无限地图制作攻略建造的小细节不要错过...
哈喽!今天的小鹅在<乐高®无限>中,体验一把<街道垃圾大作战>地图,小鹅不仅要在市区收集垃圾,还要将它们投放到正确的垃圾箱中,Ε=(´ο`*)))挠头发,到底是谁在为难我小鹅! ...
CAD外部参照是什么？最全CAD外部参照攻略！
CAD外部参照是指将某CAD图纸以参照的形式引用到其他设计文件中,设计师可以在此基础上进行深化设计.CAD外部参照最大的优势是,在保证各专业能同步修改设计和实时更新信息的同时,只记录路径信息,并不会真 ...
VBA加载宏制作攻略
本文所述加载宏是指使用EXCEL VBA制作的加载宏,这类文件的后缀默认为xla,因此又称XLA加载宏.内容划分为五部分,第一部分为概述,简单介绍加载宏的一般知识:第二部分至第四部分介绍制作加载宏函数 ...

VBA CAD 菜单制作攻略

1。首先写好一个dvb文件。

2。查找并修改acad.lsp

3。拷贝

这样就能cad就能自动启动加载项了。

VBA CAD 菜单制作攻略相关推荐

最新文章

热门文章

VBA CAD 菜单制作攻略

1。首先写好 一个dvb文件。

2。查找并 修改acad.lsp

3。拷贝

这样就能cad就能自动启动加载项了。

VBA CAD 菜单制作攻略相关推荐

最新文章

热门文章

1。首先写好一个dvb文件。

2。查找并修改acad.lsp