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

VB对AutoCAD二次开发案例-编辑版-创建菜单栏

VB对AutoCAD二次开发案例-编辑版-创建菜单栏_第1页
1/9
VB对AutoCAD二次开发案例-编辑版-创建菜单栏_第2页
2/9
VB对AutoCAD二次开发案例-编辑版-创建菜单栏_第3页
3/9
VBA 对 AutoCAD 二次开发开发背景因为公司电脑的 layout 设计部门人员不能将元器件转换为 3D,故而每次需要结构工程师自行将元器件的 2D 图处理后导入三位软件进展 3D 绘制,在处理二维工程图时,出现很多小圆弧,小圆弧处于不同的层,依次删除小圆弧很繁琐造成工作效率低下。 故而通过创立一个菜单栏,将删除小圆弧的程序全部放入一个菜单之下,实现自动化操作操作的流程如下:连接 AutoCAD→猎取 AutoCAD 的菜单组→创立菜单→创立菜单项→将菜单显示到AutoCAD 中→编辑圆弧删除程序。详尽代码一、在 VB 中连接 AutoCAD 的。在 VBA 中那么可以跳过此步Application 对象是 VB 应用程序与 AutoCAD 之间的关键。将 Application 对象与AutoCAD 是为 AutoCAD 二次开发应用程序的第一步工作。当 AutoCAD 运行时,GetObject 函数返回 Application 对象,否那么发生一个错误,这时 Err 对象的根底属性就会被赋值为一个非零值,可以利用一个错误陷井进展处理。假如 AutoCAD 没有运行,可以使用 CreateObject 函数强迫 AutoCAD 启动。Dim myapp As Object On Error Resume Next Set myapp = GetObject(, "AutoCAD.Application") myapp.Visible = True If Err <> 0 ThenSet myapp = CreateObject("Autocad.Application") myapp.Visible = TrueEnd If注意: GetObject(, "AutoCAD.Application")里面的那个逗号的来源请认真阅读 VB 程序帮助里面的解释二、创立菜单〔在 VBA 环境下〕 代码如下: Public Sub menu() Dim my_菜单组 As AcadMenuGroup Dim my_弹出式菜单 As AcadPopupMenu Dim my_弹出式菜单项 As AcadPopupMenuItem Dim openMacro As String Set my_弹出式菜单项 = my_弹出式菜单.AddMenuItem(0, "删除圆与圆弧", "-VBARUN DEL_ACR + chr(13) ")假如已有 CAD 程序翻开,那么直接获得 CAD 的控制句柄假如没有 CAD 程序翻开,那么 通 过 开 启 cad 软 件 获 得CAD 的控制句柄取得 AutoCAD 的菜单组的链接创立一个名为乾康工具集的新菜单End Sub -VBARUN DEL_ACR + chr(13)在宏名称之前添加 -VBARUN 是因为从 AutoCAD 工具栏或菜 单运行 VBA 宏。Macro 特性必须设置为等于 -VBARUN filename.dvb!modulename.macroname 其中,filename 是工程文件的名称,modulename 是包含要运行的宏的模块名称,...

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

碎片内容

VB对AutoCAD二次开发案例-编辑版-创建菜单栏

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