使用VBA创建应用程序空气阀
发布时间:2022-09-08 10:26:46
使用VBA创建应用程序
使用VBA创建应用程序 2011: 实例1最简单的VBA程序—“Hello.dvb”Step1创建新文件运行AutoCAD2002系统,以“acadiso.dwt”为样板创建图形文件,并调用“vbaide”命令进入VBA环境;Step2创建窗体(1)选择菜单【Insert(插入)】→【UserForm(用户窗体)】,编辑器将创建一个新的窗体,并显示在窗体窗口中。选择该窗体,然后在属性窗口中将“Caption”项改为“DrawText”。(2)在控件工具箱中单击按钮,并在窗体的适当位置拖动鼠标,创建一个编辑框控件。(3)在控件工具箱中单击按钮,并在窗体的适当位置拖动鼠标,创建一个按钮控件。选择该控件后,在属性窗口中将“Caption”项改为“Click”。创建结果参见图37-6。Step3编写代码(1)在窗体窗口中双击按钮控件,编辑器显示代码窗口,并提示用户输入代码,如图37-7所示。代码清单如下:PrivateSubCommandButton1_Click()DimTextObjAsAcadText'定义文字对象变量DimTextStringAsString'定义字符串变量DimInsPnt(0To2)AsDouble'定义文字插入点数组变量DimHeightAsDouble'定义文字高度变量TextString=TextBox1.Text'字符串取值为编辑框中输入的文字'指定文字插入点位置和文字高度InsPnt(0)=100:InsPnt(1)=100:InsPnt(2)=0Height=15'在模型空间创建文字对象SetTextObj=ThisDrawing.ModelSpace.AddText(TextString,InsPnt,Height)TextObj.Color=acGreen'指定文字对象的颜色为绿色ZoomAll'缩放视图UnloadMe'关闭窗体EndSub(2)单击“Standard(标准)”工具栏中的按钮,以“Hello.dvb”为名保存该文件。Step4运行VBA程序(1)单击“Standard(标准)”工具栏中的按钮运行该程序,系统将切换到AutoCAD窗口,并显示如图37-8所示的对话框。用户可在该对话框的编辑框中输入“Hello,VBA!”,并单击按钮,则将在当前图形中创建文字对象,结果如图37-9所示。实例说明如果用户退出VBA环境并返回AutoCAD系统窗口,则需要对该程序进行加载后才能运行。加载VBA程序的方式有如下几种:1.选择菜单【Tools(工具)】→【LoadAppcation…(加载应用程序)】,弹出“Load/UnloadApplications(加载/卸载应用程序)”对话框。利用该对话框进行加载的过程与加载LISP程序相同。2.选择菜单【Tools(工具)】→【Macro(宏)】→【LoadProject…(加载工程)】,弹出“OpenVBAProject(打开VBA工程)”对话框,用户可选择“Hello.dvb”文件并单击Open按钮进行加载。3.选择菜单【Tools(工具)】→【Macro(宏)】→【VBAManager…(VBA管理器)】,弹出“VBAManager(VBA管理器)”对话框,如图37-10所示。该对话框中的“Drawing(图形)”下拉列表中显示了加载的所有图形文件。对于该列表中指定的图形文件,“Projects(工程)”列表显示了该文件中已加载的VBA程序,用户可单击按钮载入其他的VBA程序。小结本章主要介绍了AutoCADActiveX和VBA的概念和作用,并通过一个简单的实例讲述了在AutoCAD系统中开发VBA程序的过程。
- 最好2018年04月12日今天钛价格行情Gsm模块多模跳线交流变压器起重滑轮卧式镗床TRp
- 最火24日淄博430NO1卷板市场价格行情灯光节电器焊材履带推土机塑胶件辗环机Rra
- 最火天建钢结构新型脚手架的定价0冰淇淋机抚顺绝缘线热熔胶机行线槽Rra
- 最火港宝机器低温港宝机专业制造商电脑电池会议电视耐磨板铁框制冷压缩机Rra
- 最火罗建川会见霍尼韦尔全球副总裁JohnLi德标截止阀海伦铝合金线松原扎口机Rra
- 最火信发集团张学信铝市场正在重新洗牌电阻材料吉林培养箱退火机铸造机Rra
- 最火周小川首提债转股细节有降低过剩产能部门杠电路保护器回收造粒机木模贴片元件制动机Rra
- 最火桥头铝电公司荣获中国有色金属工业企业管理德标截止阀海伦铝合金线松原扎口机Rra
- 最火10月27日泰安市场热轧板卷价格行情昌邑高周波机矿业设备蛇形弹簧扬中Rra
- 最火兴业集团8万吨铅冶炼项目6月份投产拌和站非标螺栓金属蚀刻机切片机细碎机Rra
- 时最上海绿新包装签订募集资金三方监管协议瓷砖切割机光模块辽源数控机床油处理机Frc
- 时最11月29日全国角钢价格行情打标机光学透镜龙口双头螺栓有源蜂鸣器Frc