AutoCAD VBA

所需积分/C币:50 2013-03-15 21:30:28 474KB PDF
收藏 收藏
举报

本文介绍了在AutoCAD二次开发过程中,制作完整安装文件的原理和方法。重点 介绍了利用VBA的菜单宏在AutoCAD中自动加载菜单,直接调用 VBA或VB等外部程序。 以及利用InstallShield实现用户自定义菜单加载、支持文件和路径自动安装的设计思路和流 程,为技术人员开发专业AutoCAD系统后制作安装软件提供参考和帮助
格式@)工具)图@)标注⑩修改)密口)帮助0)rpre 工作空间 选项板 Standard 命令行 CTRL+9 清除屏幕 TRL十 ByL △拼写检查但) 8①⑥以 快速选择k) 回 绘图顺序 查询Q 更新字段〕 ∮块编辑器〕 外部参照和块在位編辑 属性提取〕 加载应用程序〔). 运行脚本) 宏皿〕 ATT+F日 utOLISP (S 加载工程 显示图像 /A管理器雙〕). 新建C3 Wisual Basic编辑器也)ALT+F11 命名Cs@ C标准〕 向导(〕 草图设置 数字化仪色 自定义〔〕 选项迎 图112与VBA应用程序开发、管理相关的下拉菜单 1.创建新VBA工程 创建新ⅤBA工程的步骤如卜 (1)打开“VBA管理器”对话框。 (2)选择“新建”。 新工程将以默认的名称“ ACADProject”创建。如要更改工程名称,必须进入“Ⅴ isual basic编 辑器”中,在“工程属性”窗口中更名。其操作方法步骤如卜: (1)单“VBA管理器”中的“Ⅴ isual Basic编辑器”按钮(如图1.所示)或用菜单选择“ Visual Basic编辑器”(如图11.2所示),打开“ MicrosoftⅤ isual basic”,如图11.3所示。 (2)在VB的“工程资源管理器”选中“ ACADProject( Globall)”,单击右键,在弹出菜单中选择 ACADProject属性…”选项,打开“工程属性”对话框,在“工程名称”中输入用户欲更改的名 称,如图114所 icrosoft isual basic globali 文件〕编辑吧〕视图)插入〔〕格式〕调试 启的 工-▲卫 Proiect 感CD 对冢 图11.3 Visual basic编辑器 CDP工ject-工程属性 通用保护 工程名称 工程说明史〕 工程帮助上下 帮助文件名吧〕 文标识符〔〕 条件编译参数〕 匚确定一匚取消帮助一 图114“工程属性”对话框 2.保存新VBA工程 每次保存图形文件时,都将保存其内嵌工程。而全局工程必须使用VBA管理器或VB编辑器来 保存。使用ⅤBA管理器保存工程的步骤 (1)打开ⅤBA管理器,并选择要保存的工程。 (2)选择“另存为”,将会打井“另存为”对话框。 (3)选择用于保存该工程的文件的名称。 (4)单击“保存”按钮。 3.加载VBA工程 将工程加载到 Autocad图形中时,所有的公用子程序(也称为宏)均为可用程序。每次打廾图 形时,内嵌在图形中的工程就会被自动加载,而以*dvb文件格式保存的全局工程必须明确加载方能 行 每次加载工程时,都将自动加载此工程引用的任何其他工程。此外, AutoCAD在启动时会自动 加载任何名为acad.dvb的上程文件。 加载已有ⅤBAT程文什的步骤如下: (1)在“VBA管理器”对话框中单击“加载”按钮,弹出“打开ⅤBA工程”对话框,如图1.5 所示。 打升VA工程 查找范围红):[王小 one crlinl Ciccone_cylin2 我最近的文档 桌面 我的文档 我的电脑 网上邻居 文件名) [打开@ 文件类型):工程(.b) v匚取消 图11.5“打开VBA工程”对话框 (2)在“打开VBA工程”对话框中选择饮加载的工程文件。 (3)单击“打开”按钮,再单击“启用宏”按钮。打开ⅤB编辑尜即可査看、编辑或运行该程序。 注意:用户在加载L程时,均会显示“禁用宏”或“启用宏”的选项提示,作为防范病毒的提 示,如图11.6所示。若启用了带病毒的宏,程序中的病毒会一并运行;若禁用该宏,工程仍可被调 用,但不能运行该工程中的任何程序。 Luton D:教学资料中业设计机电毕业设计王小燕 COILE Cy1n2.dvb 包含宏 窠宏是答的手那会武可能≌丢薰孟功影。□详丑信息) 回每次打并包含宏的工程时均询问 L禁用宏回匚启用宏①)匚不加载 图1.6工程加载防范病毒提示提示 4.卸载ⅤBA工程 卸载工程可释放内存,并使己加载工程的列表保持在易于管理的长度。但不能卸载内嵌工程或 被其他已加载上程所引用的⊥程 卸载VBA的步骤如下 (1)在“VBA管理器”对话框中选择欲卸载的工稈。 (2)单击“卸载”按钮。 5 11. 23VBA IDE 在 AutoCad中加载VBA⊥程后,即可使用ⅤBA交互式开发环境IDE来运行、调试程序或刖 除错误,亦可在DE中绊续编辑该工稈的程序代码、窗体和部件引用等元素。 1.打开 VBA IDE 可用以下两种方法打开Ⅴ BA IDE: 命令行: VBAIDE 菜单栏:【工具】→【宏】→【 Visual basic编辑器】 VBA IDE界面如图11.7所小,在其中可对所有已加载的工程进行编辑。 III TisuE [ IHr Fur1(代码〕] 1文件吧〕编强咀〕视图凹插入①式迎调试卫)运行堡)工具)外接程序)窘口〕裙助g a·團|: 上图智为四 CiRro吧ct c■ds01ia Ii c vate .u 够 ACAIProject:学资】 hL叫 DraWlS.ⅳy1at1.山 curent,九d T:■ pi As Doub1 -toA对象 I-n conel r conel h As Doub-2 t ThisOh l'n cylir r colin h as doubs 日—窗体 I' n cone_obj As Acadsolid 题 ACAIProject:学资 I b1 As Ac ad3DSolid o2〕真 s ouble 0r。2〕止 Doubl a感 ACADProject a I:mcy1 lI. cen⑩To2〕 As Doub1e 白血C如对象 i. thets As Dg abl Text h = Val [lertBox3. Te vlin r val (TewtBox4 Text Vc¢ Tcirtrolr3.Tct d st val (Tex tBox6. Text) ta= ral Text box text 10 e1 h= r*hf〔c 圆锥1 cer. 2= gone b]2 =自c 图11.7 VBA IDE界面 2.工程信息 在Ⅴ BA IDE中,“⊥程”窗口显示的内容包括:所有已加载的ⅤBA⊥程,这些⊥程所包含的程 序代码、类别、窗体、与工程相关的文件,本工程所引用的其他ⅤBA工程,这些工程所在的位置(路 径)等,如图11.8所示。 “工程”窗口的顶部为包含3个按钮的工具条,通过切换按钮可显示不同的工程元素。选中工 程模块中的“窗体”后,单山“査看代码”按钮可显示该工程模块的程序代码;单击“查看对象” 按钮可显示该工程元素对象的外观,如窗体界面 “工程”窗口在默认状态下是打廾的。若不叮见,可在IE中用菜单操作“【祧图】→【工程资 源管理器】”米打开。 3IDE为 Integrated development environment的缩写,即集成川发环境。 查看对象 切换文件夹 查看代码 工程- CAOProlec量 区 固国 日感 ICAIProject⑩:教学资料毕业设计 圖 AutoCAd对象 白四体 图 perForm 白题 ACADProject ( I:学资料毕业设计球 对象 —窗体 园 白感 ACADProject raTing1.dE ·圖 Aut ocA对象 =5 ACADProject (Draring2 drg 对象 i- Thislrawing 图11.8“工程”窗口 3.工程元素 每个工程均由若十不同的元素构成,包含对象、窗体、标准模块、类模块和引用等。 (1)对象对象是工程中的基本运行实体。VBA中的对象可分为两类,一类是由系统设计好, 可直接使用或对其进行操作的对象:另一类是用户定义,可用程序建立用户自己的对象。对象是具 有特殊属性(数据)和行为方式(方法)的实体,它由属性、事件和方法这3个重要方面构成。 (2)窗体模块窗体模块分为两部分,一部分是作为用户界面的窗体,另一部分是执行具体操作 的代码。窗体是放置其他对象的容器,常用于创建工程的自定义交互式对话框 3)标准模块又叫程序代码模块,简称模块。该模块完仝由代码组成,这些代码不与具体的窗 体或控件相关联。 4)类模块类模块既包含代码又包含数据,每个类模块定乂一个类。可在窗体模块中定乂类的 对象,调用类模块中的过程。 4.添加新元素 用户可在工程中添加新元素,比如插入新的窗体、模块或类模块等。添加新元素后,用户可修 改元素的性质(例如元素名称)和编写程序代码。 用户命名新元素时,应遵循规范的命名惯例,即“见名知义”,提高程序的可读性, 在工程中添加新元素的步骤如下: (1)在Ⅴ BA IDE的“工程”窗凵中选择要添加元素的工程 2)从“插入”菜单中选择“添加用户窗体”、“添加模坎”或“添加癸模坎”选项,将新元素添 加到该工程中。 新的元素加入到⊥程后,会以默认的属性出现在“L程”窗∏中。 5.编辑元素 元素的编辑包括对属性、代码和对象的编辑等 1)元素属性编辑在“工程”窗口中选取被编辑的元素,“属性”窗口中将显小其属性,如图 1]9所示。将光标定位于“属性”窗∏右边的属性值栏,即可修改为需要的属性值 2)代码编辑在“工程”窗口中选取被编辑的元素(窗体、模块或类模块),再单τ窗口顶部 的“查看代码”按钮,即可打开程序代码窗口并编辑程序代码,如图11.10所示。 Userfor■1 User form 字母序按分类序 名称〕 处团吧D1 BorderStyle o-EmBor derstyl enone 圆键台与园柱相贯展开CA 0-fmCycleAliform s DrawBuffer 黑体 b印mm01 2415 HelpContextID 8-EmScrollBarsBo Mousepointer 0-fmlousepoint er default Picture (Tone) I PictureAlignment 2-EmPictureAlignmentCenter PictureSizeMod 0- EmPictu eM odell Pint ghtToLeftFal 11B 0- tm scr ollBars lone ScrollHeizht 0 图119“属性”窗 H:each华业设计电0毕业改计小燕 icone_cylin1.dvb c■ solid C1ic上 Private Sub cmdSolid Click IThi 工 1 cat1.卫 ocument.点d丑 As Double I: conel h as double lim cone r, cone h as doubl Dim cyl lin h As Doubl Dim conel obj As Acad3Isolid I: Dim clin obj As Acad3DSoli d Dim conel cen(O To 2)As Double As Touble Ti 们To2) As Doub1 Tim dist. cen hi, thets As Double Val [TextRox1. Te Box2. Text) h= Val (TextBox 3. Text] cP_1I rlin h= Val (T extBox5 Tex di〓Va1 TextBo6.Tet a= Val (Tex tBox日.Text)米pif1 h「〔c h t conel h 绘圆锥1 1 cen(0)=0 ccne1cen〕 1 h Set conel obj= ThisDrawing Modelspace AddCone (conel cen, conel r, conel h) 绘圆锥 cone cen(1)=0 one2 cen(2)= cone h f et cone_obj= ThisDrawingModelspace AddCone (cone2_ cen, cone2r, cone2_h, 绘圆柱 y⊥1_ce dist hi Set cylin obj= ThisDrawing Modelspace AddCylinder (cylin cen, cylin r, cylin h 图11.10“程序代码”窗口 (3)窗体编辑在“工程”窗口中选取被编绀的窗体模块,再单击窗口顶部的“査看对象”按钮, 即可打丌窗体寳∏和控件L具箱,如图11.11所示。用户可在该窗∏中增删对象、编辑对象的属性或 编辑与窗体关联的程序代码。双击窗体窗口中的控件,可在程序代码窗口中显示与该控件相关的程 序代码。 图锥台与国柱相贯展开CAD 凤台参数 柱参数 半径R 工具箱 上底半径R1 100 高度 挖件 下,半径R2= 轴间距I 高度 400 柱中心高H3= 当剑圆 倾角 thet a 展开图 帮助 结束 图1111“窗体”窗 二次开发实例 在学习了 AutoCad Vba基础知识后,接下来介绍一个简单实例。通过该实例的学习,我们可 以初步掌握廾发VBA应用程序的一般过程。 训练111应用VBA编写输入起点和终点坐标绘制直线的参数化程序。 应用VBA程序绘制直线的方法为: Adding( Start Point, EndPoint),其中 Start Point, Endpoint为 起点、终点坐标,必须为3元素列表(即数组) 操作步骤如下: (1)打开VBA管哩器,单击“新建”按钮,添加名称为“ ACADProject”、位置为“ Global2”的 新工程,如图11.12所示。选中该工程后,再单击“另存为”将之保存于D盘,名称为“ DrawLine dvb” VHA管理器 图形也 r11 嵌入工程 AUP 匚提取 工程史 名称 位置 嵌入 ACADFroje ACAIProject 「新建Q awing. dwg 另存为 加载 卸载① >「宠) sual Basic编辑器) 匚关闭匚帮助⑩ 图1112VBA管理器 (2)打开ⅤBAID,在“插入”菜单中选择“用户窗体”插入新窗体。 (3)打开“工具箱”(如图11.13所示),点击“框架”按钮,在窗体中建立两个框架,分别用于

...展开详情
试读 17P AutoCAD VBA
立即下载 低至0.43元/次 身份认证VIP会员低至7折
    抢沙发
    一个资源只可评论一次,评论内容不能少于5个字
    关注 私信 TA的资源
    上传资源赚积分,得勋章
    最新推荐
    AutoCAD VBA 50积分/C币 立即下载
    1/17
    AutoCAD VBA第1页
    AutoCAD VBA第2页
    AutoCAD VBA第3页
    AutoCAD VBA第4页
    AutoCAD VBA第5页
    AutoCAD VBA第6页

    试读已结束,剩余11页未读...

    50积分/C币 立即下载 >