AutoCAD VBA二次程序开发的方法的探讨.docVIP

AutoCAD VBA二次程序开发的方法的探讨 　　摘要：本文主要介绍AutoCAD 2007用VBA二次开发机械标准零件的源程序及开发的方法、技巧、关键技术；并通过碟形螺母的参数化绘图，重点介绍VBA实现参数化绘图的步骤。 　　关键词：VBAAutoCAD二次开发蝶形螺母 　　 　　一、引言 　　AutoCAD是一门计算机辅助设计软件，可以用于二维制图和基本三维设计，其次还具有开放的体系结构，它允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，这样最大限度地满足用户的特殊要求，VBA具有强大的功能，因此许多应用程序均嵌入该语言作为开发工具，同时VBA管理器是一个AutoCAD工具，它允许装载、卸载、保存、创建、嵌入和分离VBA工程。 　　二、程序开发的一般步骤 　　2.1编写菜单程序 　　Sub Menu() 　　定义变量 　　Dim NewMenuGroup As AcadMenuGroup 群组 　　Dim NewMenu As AcadPopupMenu列 　　Dim NewMenuItemName As AcadPopupMenuItem菜单项 　　Dim Menuseparator As AcadPopupMenuItem分隔条 　　Dim NewMenuItemName1 As AcadPopupMenu 菜单项 　　Dim subMenuItem子菜单定义下拉菜单群组 　　Set NewMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)创建下拉菜单列 　　Set NewMenu = NewMenuGroup.Menus.Add(参数化绘图)创建下拉菜单项 　　Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 1, 螺母) 　　Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(1, 蝶形螺母, -vbarun uf8 ) 　　Set NewMenuItemName = NewMenu.AddSeparator(NewMenu.Count + 3) 　　Set NewMenuItemName = NewMenu.AddMenuItem(NewMenu.Count + 2, 退 出, -vbarun uf60 ) 显示新菜单 　　NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) 　　End Sub 　　Sub uf8() 　　UserForm8.Show 　　End Sub 　　Sub uf60() 　　ThisDrawing.SendCommand filedia 0 　　ThisDrawing.SendCommand menu acad + Chr(13) 　　ThisDrawing.SendCommand filedia 1 　　End Sub 　　2.2加载运行生成菜单 　　 　　2.3可视对象的建构 　　（1）制作步骤 　　窗体制作、命令按钮制作、标签制作、文本框制作、框架制作、列表框制作。 　　（2）制作用户界面如下图 　　 　　2.4、蝶形螺母主程序的编写 　　Private Sub CommandButton3_Click() 接受屏幕输入 　　DK = Val(TextBox1.Text) 　　d = Val(TextBox2.Text) 　　L = Val(TextBox3.Text) 　　k = Val(TextBox4.Text) 　　m = Val(TextBox5.Text) 　　y = Val(TextBox7.Text) 　　p = Val(TextBox8.Text) 　　R = Val(TextBox9.Text) 　　d2 = Val(TextBox10.Text) 　　Open 方静.scr For Output As #1创建一个新文件 　　Call common.jb 调用子程序 　　Print #1, layer s 2 层设置 　　Print #1, line 　　xa = 300: ya = 500 　　x0 = LTrim(Str(xa)) 　　y0 = LTrim(Str(ya)) 　　Print #1, x0; ,; y0 　　x1 = LTrim(Str(x0 + (DK / 2))) 　　y1 = LTrim(Str(y0)) 　　Print #1, x1