相关分类
MAYA教程
3DSMAX教程
AutoCAD教程
VRay教程
MentalRay教程
Zbrush教程
SoftimageXSI教程
Cinema 4D教程
三维理论
Rhino教程
飞特网 顶部通栏广告

使用VBA创建应用程序

没良心的发布于:2012-3-10 02:11 |原作者: 飞特信息采编-张薇| |来自:互联网
简介: 本教程向FEVTE的朋友们介绍CAD中使用VBA创建应用程序,教程主要介绍创建思路,喜欢的朋友可以学习一下!
实例1 最简单的VBA程序—"Hello.dvb"Step 1 创建新文件运行AutoCAD 2002系统,以"acadiso.dwt"为样板创建图形文件,并调用"vbaide"命令进入VBA环境;Step 2 创建窗体(1) 选择菜单【Insert(插入)】→【UserForm(用户窗体)】,编辑器将创建一个新的窗体,并显示在窗体窗口中。选择该窗体,然后在属性窗口中将"Caption"项改为"Draw Text"。(2) 在控件工具箱中单击 按钮,并在窗体的适当位置拖动鼠标,创建一个编辑框控件。(3) 在控件工具箱中单击 按钮,并在窗体的适当位置拖动鼠标,创建一个按钮控件。选择该控件后,在属性窗口中将"Caption"项改为"Click"。创建结果参见图37-6。使用VBA创建应用程序 飞特网 AutoCAD教程 使用VBA创建应用程序 飞特网 AutoCAD教程 Step 3 编写代码(1) 在窗体窗口中双击按钮控件,编辑器显示代码窗口,并提示用户输入代码,如图37-7所示。代码清单如下:Private Sub CommandButton1_Click()Dim TextObj As AcadText '定义文字对象变量Dim TextString As String '定义字符串变量Dim InsPnt(0 To 2) As Double '定义文字插入点数组变量Dim Height As Double '定义文字高度变量TextString = TextBox1.Text '字符串取值为编辑框中输入的文字'指定文字插入点位置和文字高度InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0Height = 15'在模型空间创建文字对象Set TextObj = ThisDrawing.ModelSpace.AddText(TextString, InsPnt, Height)TextObj.Color = acGreen '指定文字对象的颜色为绿色ZoomAll '缩放视图Unload Me '关闭窗体End Sub使用VBA创建应用程序 飞特网 AutoCAD教程 (2) 单击"Standard(标准)"工具栏中的 使用VBA创建应用程序 飞特网 AutoCAD教程 按钮,以"Hello.dvb"为名保存该文件。Step 4 运行VBA程序(1) 单击"Standard(标准)"工具栏中的 使用VBA创建应用程序 飞特网 AutoCAD教程 按钮运行该程序,系统将切换到AutoCAD窗口,并显示如图37-8所示的对话框。用户可在该对话框的编辑框中输入"Hello, VBA!",并单击按钮,则将在当前图形中创建文字对象,结果如图37-9所示。使用VBA创建应用程序 飞特网 AutoCAD教程 实例说明如果用户退出VBA环境并返回AutoCAD系统窗口,则需要对该程序进行加载后才能运行。加载VBA程序的方式有如下几种:1. 选择菜单【Tools(工具)】→【Load Appcation…(加载应用程序)】,弹出"Load/Unload Applications(加载/卸载应用程序)"对话框。利用该对话框进行加载的过程与加载LISP程序相同。2. 选择菜单【Tools(工具)】→【Macro(宏)】→【Load Project…(加载工程)】,弹出"Open VBA Project(打开VBA工程)"对话框,用户可选择"Hello.dvb"文件并单击Open按钮进行加载。3. 选择菜单【Tools(工具)】→【Macro(宏)】→【VBA Manager…(VBA管理器)】,弹出"VBA Manager(VBA管理器)"对话框,如图37-10所示。使用VBA创建应用程序 飞特网 AutoCAD教程 该对话框中的"Drawing(图形)"下拉列表中显示了加载的所有图形文件。对于该列表中指定的图形文件,"Projects(工程)"列表显示了该文件中已加载的VBA程序,用户可单击 按钮载入其他的VBA程序。小 结本章主要介绍了AutoCAD ActiveX和VBA的概念和作用,并通过一个简单的实例讲述了在AutoCAD系统中开发VBA程序的过程。

FEVTE编注:更多AUTOCAD教程讨论交流和作业提交请进入飞特论坛三维作业板块,地址:https://www.fevte.com/forum-54-1.html

11

好评
9

差评

刚表态过的朋友 (20 人)

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

  • 飞特游客

最新评论

您需要登录后才可以评论和提交作业 登录 | 立即注册
本周热点文章
2020 新飞特 从心开始
关于飞特| 广告服务| 付款方式| 版权申明| 网站地图| 联系我们| 加入我们| 举报| 帮助中心| 移动版| 手机版| 飞特网

委托设计