1、1Autocad VBA初级教程 (第一课:入门)作者：网友 普天同庆 | 阅读次数：2315 转自：CAD 世界网-论坛 时间：2005 年 4月 25日 16:38第一课：入门1.为什么要写这个教程市面上 ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。2.什么是 Autocad VBA？VBA是 Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好 VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用 ACAD命令不可能完成的，只要学
2、好 VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。3、VBA 有多难？相信大家都知道 Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。4、怎样学习 VBA？介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。本教程将陆续发布在 CAD世界论坛上，您不需要付费就可以学习。本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。5、现在我们开始
3、编写第一个程序：画一百个同心圆第一步：复制下面的红色代码第二步：在模型空间按快捷键 Alt+F8，出现宏窗口第三步：在宏名称中填写 C100，点“创建”、“确定”第四步：在 Sub c100()和 End Sub之间粘贴代码第五步：回到模型空间，再次按 Alt+F8，点击“运行”Sub c100()Dim cc(0 To 2) As Double 声明坐标变量cc(0) = 1000 定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
4、 画圆Next iEnd Sub也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。第二课 编程基础本课主要任务是对上一课的例程进行详细分析2下面是源码：Sub c100()Dim cc(0 To 2) As Double 声明坐标变量cc(0) = 1000 定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) 画圆Next iEnd Sub先看第一行和最后一行：Sub C100()End SubC100是宏的
5、名称，也叫过程名称，当用户执行 C100时程序将运行 sub 和 end sub之间的所有指令。第二行：Dim cc(0 To 2) As Double 声明坐标变量后半段“声明坐标变量”自动变为绿色字体，它是代码语句的注释，它不会影响程序运行，它的作用是告诉阅读者程序员的想法。对于简单的程序，一般不需要写注释，如果要编写非常复杂的程序，最好要多加注释，越详细越好，对于程序员来说，这是一个好习惯。电脑真正编译执行的是这条语句：Dim cc(0 To 2) As Double它的作用就是声明变量。Dim是一条语句，可以理解为计算机指令。它的语法：Dim 变量名 As 数据类型本例中变量名为 CC
6、，而括号中的 0 to 2声明这个 CC是一个数组，这个数组有三个元素：CC(0)、CC(1)、CC(2)，如果改为 CC(1 to 3)，则三个元素是 CC(1)、CC(2)、CC(3)，有了这个数组，就可以把坐标数值放到这个变量之中。Double是数据类型中的一种。ACAD 中一般需要定义坐标时就用这个数据类型。在 ACAD中数据类型的有很多，下面两个是比较常用的数据类型，初学者要有所理解。Long（长整型），其范围从 -2,147,483,648 到 2,147,483,647。Variant 它是那些没被显式声明为其他类型变量的数据类型，可以理解为一种通用的数据类型，这是最常用的。下面
7、三条语句cc(0) = 1000 定义圆心座标cc(1) = 1000cc(2) = 0它们的作用是给 CC变量的每一个元素赋,值其顺序是 X、Y、Z 坐标。For i = 1 To 1000 Step 10 开始循环Next i 结束循环这两条语句的作用是循环运行指令，每循环一次，i 值要增加 10，当 i加到 1000 时，结束循环。i也是一个变量，虽然没有声明 i变量，程序还是认可的，VB 不是 C语言，每用一个变量都要声明，不声明就会报错。简单是简单了，这样做也有坏处，如果不小心打错了一个字母，程序不会报错，如果程序很长，那就会出现一些意想不到的错误。step后面的数值就是每次循环时增
8、加的数值，step 后也可以用负值。例如：For i =1000 To 1 Step -10 3很多情况下，后面可以不加 step 10如：For i=1 to 100，它的作用是每循环一次 i值就增加 1Next i语句必须出现在需要结束循环的位置，不然程序没法运行。下面看画圆命令：Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)Call语句的作用是调用其他过程或者方法。ThisDrawing.ModelSpace是指当前 CAD文档的模型空间AddCircle是画圆方法Addcicle方法需要两个参数：圆心和半径CC就是圆心坐标，i*10
9、就是圆的半径，本例中，这些圆的半径分别是 10、110、210、310本课到此结束，下面请完成一道思考题：1.以(4,2)为圆心，画 5个同心圆，其半径为 1-5本章将为你介绍 AutoCAD VBA 工程及 VBA 交互开发环境(VBA IDE)。尽管大部分 VBA 环境在行为上都是相似的，但AutoCAD VBA IDE 还是有些独有的特性。在 AutoCAD 中还有些相关的命令可以用于装载工程、运行工程，或打开 VBA IDE 环境。本章将概要介绍 VBA 工程、VBA 命令和 VBA IDE 的使用。本章具体内容如下：了解嵌入和全局 VBA 工程 用 VBA 管理器组织工程 处理宏 用
10、 VBA IDE 编辑工程 更多的信息 回顾 AutoCAD VBA 工程术语 回顾 AutoCAD VBA 命令 了解嵌入和全局 VBA 工程 返回目录来源： 明经通道 作(译)者： 郑立楷 上传者： mccad 上传时间：2002 年 8 月 29 日 AutoCAD VBA 工程是代码模块、类模块和窗体的集合，它们组合起来以执行给予的功能。工程可保存在 AutoCAD 图形中，或作为独立的文件保存。嵌入工程是保存在 AutoCAD 图形中。当包含有这些工程的图形中 AutoCAD 打开时，他们可以自动地装载，这种方法可以很方便地分发工程给用户。嵌入工程也有它的极限，它不能打开或关闭 Au
11、toCAD 图形，那是由于他们的函数只存在于工程所在的文档中。使用嵌入工程不需要在运行程序之前查找并装载工程文件。举个含有嵌入工程的图形的例子，当图形打开时，一个时间日志被触发。通过这样一个宏的应用可以登记并记录用户在该图形上所花费的时间。这时用户不必去记住在打开图形之前装载工程，这就是自动操作的一个很好的例子。全局工程保存在独立的文件中，它更加通用，因为他们能在 AutoCAD 图形中运行，也能打开、关闭 AutoCAD 图形，但它在图形打开时不能自动装载。用户必须知道他们所需要的宏包含在哪个工程文件中。然而，全局工程非常容易与其它使用者共享，它可以将通用的宏做为很好的库而存在。举个例子，你
12、保存在一个工程文件中的宏是有关多个图形的材料清单。这个宏可以在工作周期的末期由管理员运行，这样就可以收集到所有图形的信息。在特定的时间，用户可以在同个 AutoCAD 进程中同时装载嵌入工程和全局工程。AutoCAD VBA 工程与 Visual Basic 工程在二进制结构上是不兼容的。然而，其中的窗体、模块和类可以通过在 VBA IDE 环境中使用输入和输出 VBA 命令来在工程之间进行转换。关于 VBA IDE 的更多信息，可以查看“ 用 VBA IDE 编辑工程”用 VBA 管理器组织工程 返回目录4你可以使用 VBA 管理器查看装载在当前 AutoCAD 进程的所有 VBA 工程。V
13、BA 管理器一个 AutoCAD 工具，它允许你装载、卸载、保存、创建、嵌入和分离 VBA 工程。打开 VBA 管理器的步骤：1.在工具菜单中选择宏-VBA 管理器。 2.或者，在 AutoCAD 中调用 VBAMAN 命令。 本节的内容：装载现存的工程卸载工程嵌入工程到图形中从图形中分离工程创建新的工程保存嵌入工程装载现存的工程当你装载工程到 AutoCAD 中，所有的公用的子程序(也称为宏) 都可以使用。 嵌入于图形中的工程在图形打开时就被装载。保存在 DVB 文件中的工程必须单独装载。装载现存的 VBA 工程文件1.在 VBA 管理器中，使用装载项可弹出打开 VBA 工程对话框。 2.在
14、打开 VBA 工程对话框中，选择打开的工程文件。该 VBA 工程对话框允许你打开有效的 DVB 文件。如果你尝试打开不同类型的文件，你将会得到出错信息。 3.选择打开。 你也可以使用 VBALOAD 命令直接出现打开 VBA 工程对话框以装载工程文件。另外，当工程装载后，该工程所引用的其它工程将会自动地装载。还有，AutoCAD 在启动时将自动装载名称为 acad.dvb 的工程文件。 相关主题：病毒警告 每次当你装载工程时，你会看到启用或禁用工程中的代码以阻止宏病毒的警告框。如果你选用启用代码，如果工程中含有宏病毒时病毒可能会发作。如果你禁用代码，工程同样会装载，但工程中的所有代码将不能运行
15、。想查看更多关于病毒保护的信息，请参考“设置工程选项” 。 卸载工程 卸载工程以释放内存并保持装载的工程列表的长度以方便管理。你不能卸载嵌入工程或由其它已装载工程所引用的工程。卸载 VBA 工程的操作 1.在 VBA 管理器中，选择要卸载的工程。 2.选择卸载。 或者，使用 VBAUNLOAD 命令，它将提示你所要卸载的工程。 嵌入工程到图形中 当你嵌入一个工程时，你是将工程的一个副本置于图形数据库中。无论何时，当所包含工程的图形打开或关闭时，工程会同时被装载和被卸载。5一个图形只有在同一时间包含一个嵌入工程。如果图形已经包含有一个嵌入工程，你必须在同样地入其它工程之前将该嵌入工程分离出。嵌入
16、工程到 AutoCAD 图形中的操作 1.打开 VBA 管理器并选择你所要嵌入的工程。 2.选择嵌入。 从图形中分离工程 当你分离工程时，其实是将工程从图形数据库中删除，同时会提示你将工程保存为外部的工程文件。如果你没有将其保存为外部工程文件，该工程的数据将会删除。从 AutoCAD 图形中分离工程的操作 1.打开 VBA 管理器并选择要从图形中分离的工程。 2.选择分离。 3.如果你想保存工程信息为外部工程文件，可以在“你是否想在删除 VBA 工程前将其输出？”的提示下选择“是”，此时会显示另存为对话框，允许你保存文件。 如果你不想保存该工程信息到外部文件，可以在“你是否想在删除 VBA 工
17、程前将其输出？”的提示下选择“否”，此时工程信息将在没有保存的情况下从图形中删除。 创建新的工程 新的工程将作为未保存的全局工程被创建。当工程创建时，你可以将工程嵌入图形中，或将其保存为工程文件。创建新的 VBA 工程的操作 1.打开 VBA 管理器。 2.选择新建。 新创建的工程将使用默认的工程名称 ACADproject。你必须到 VBA IDE 中才可以更改工程名称。查看更多关于命名工程的信息，请参考“命名工程 ”。 保存嵌入工程 嵌入工程是在图形保存时同时保存的。全局工程必须使用 VBA 管理器或 VBA IDE 进行保存。使用 VBA 管理器保存工程的操作 1.打开 VBA 管理器并
18、选择要保存的工程。 2.选择另存为，此时另存为对话框打开。 3.选择用于保存工程的文件。 4.选择保存 处理宏 返回目录与设置 VBA 工程选项一样，宏对话框允许你运行、编辑、删除和创建宏。宏是公用( 可执行)的子程序。每一工程通常至少一个宏。打开宏对话框的操作1.从工具菜单中选择宏-宏。 2.或在 AutoCAD 中调用 VBARUN 命令。 在对话框中显示的是所有在有效范围内的宏名称。你可通过下拉列表来改变有效范围。该列表指定所要显示的宏所在的工程或图形。你可在以下列表内容选择所要显示宏范围6所有图形和工程所有图形所有工程在当前所打开的单独图形在当前所装载的单独工程通过限制有效范围你可控制
19、显示在列表中的宏名称的数量。它可帮助你注意到当前有多少宏装载到图形中或指定工程中有多少宏。本节内容：运行宏编辑宏逐语句运行宏创建新的宏删除宏设置工程选项运行宏运行宏就是在当前 AutoCAD 进程中执行宏代码。当前活动图形指的是当宏执行开始时处于打开并处理激活状态。所有在全局工程的宏中所涉及的 ThisDrawing 对象将指向当前活动图形。在嵌入工程中，ThisDrawing 对象通常指向嵌入该宏的图形。运行宏的操作1.打开宏对话框并选择要运行的宏。 2.选择运行。 编辑宏编辑宏将打开 VBA IDE 并打开所选定宏的代码窗口。详细的介绍请参考“用 VBA IDE 编辑工程”。编辑宏的操作1
20、.打开宏对话框并选择要编辑的宏。 2.选择编辑。 逐语句运行宏逐语句运行宏指的是开始运行宏并在第一行代码时暂停。VBA IDE 也随之打开所选定的宏的代码窗口并高亮显示所执行宏所在的行。逐语句运行宏的操作1.在宏对话框中，选择要逐语句运行的宏。 2.选择逐语句。 创建新的宏你可以创建一个空的新宏。创建新宏的操作1.打开宏对话框并输入新宏的名称。 2.在宏位置下拉列表中选择所创建宏所要存在的位置。 3.选择创建。 如果所指定宏的名称已经存在，系统将提示你是否替换现在的宏。如果你在提示下选择“是” ，则现在的宏代码将被删除，而一个新的而没有内容的宏也会以指定名称而创建。如果你在提示下选择“否” ，
21、这时会返回宏对话框以输入另外的宏名称。如果你在提示下选择“取消” ，宏对话框将消失，宏也没有创建。7删除宏你可以从工程中删除宏删除宏的操作1.打开宏对话框并选择要删除的宏 2.选择删除。系统会提示你是否确认删除。 3.在提示下，选择“是” 而删除宏，或者选择 “否”以取消删除的操作。 设置工程选项在 AutoCAD VBA 工程中可以设置三个选项：启用自动嵌入出错时允许中断启用宏病毒保护设置 AutoCAD VBA 工程选项的操作1.从工具菜单中选择宏-宏以打开 VBA 宏对话框。 2.从 VBA 宏对话框中，选择选项以打开选项对话框。 3.从选项对话框中，选择你所要设置的选项。 4.选择确定
22、。 本节内容：启用自动嵌入出错时允许中断启用宏病毒保护启用自动嵌入自动嵌入特性将在打开图形时自动为所有图形创建嵌入的 VBA 工程。出错时允许中断在遇到错误时允许 VBA 进入中断模式。中断模式是在交互开发环境中暂时挂起程序的执行。在中断模式中，你可以检查、调试、复位、跳过或继续程序的执行。当该选项启用时，在执行 VBA 宏的过程中如发现的未处理的错误，将会挂起执行的宏并在 VBA IDE 中显示宏的出错点。当该选项禁用时，当执行 VBA 宏的过程中如发现出错时，将出现错误警告提示框，然后结束宏的执行。启用宏病毒保护病毒防护机制将在你打开可能含有宏病毒的图形时显示内建的警告信息。当工程装载到
23、AutoCAD 后，你可以使用 VBA 交互开发环境编辑其代码、窗体及进行引用。你也可以在 VBA IDE 中调试和运行工程。本节内容：打开 VBA IDE查看工程信息定义工程的部件输入现存的部件编辑部件运行宏8命名工程保存工程引用其它 VBA 工程设置 VBA IDE 选项打开 VBA IDE当打开 VBA IDE 时，它就可以访问所有已装载的工程。按需要打开 VBA IDE 的操作:你可以从命令行或从菜单栏中打开 VBA IDE 从命令行，可输入 VBAIDE。或从工具菜单，使用宏-Visual Basic 编辑器。在 AutoCAD 启动时自动打开 VBA IDE 的操作：如果你想在每次
24、开始 AutoCAD 时自动打开 VBA IDE，你必须在 acad.rx 文件中包含以下行：acadvba.arx查看工程信息VBA IDE 包含名称为工程窗口的窗口，其中显示了所有已装载 VBA 工程的列表。它也显示包含在工程中的代码、类和窗体模块，还有关联到该工程的文档，在该工程所引用的 VBA 工程，以及工程的物理位置( 也称路径)。工程窗口有它自己的工具栏，使用其工具栏可打开不同的工程部件进行编辑。使用查看代码按钮可打开选定模块的代码。使用查看对象按钮可显示如窗体之类的选定对象。VBA IDE 工程窗口工程窗口默认为可见。如果不可见，可从查看菜单中选择工程窗口，或按 CTRL+R。定
25、义工程的部件每个工程可包含多个不同的部件。在工程中包含的不同部件可以是对象、窗体、标准模块、类模块和引用。对象对象部件声称了 VBA 代码可访问的对象或文档的类型。在 AutoCAD VBA 工程，该对象声称为当前 AutoCAD 图形。窗体窗体部件包含了当前你在工程中为了使用而建立的自定义对话框。标准模块该代码部件包含了普通程序和函数。标准模块也归类为代码模块或简单的模块。类模块类模块部件包含你所有定义为类的自己的对象。引用引用部件包含所有引用其它的工程和库。增加新部件增加新的部件是在工程中创建一空白的部件。你可在工程中增加新的模块、窗体和类模块。你有责任更新所有部件的属性(如部件的名称)
26、并在其中写入适当的代码。当命名一个新的部件，请记住可能其它开发都会在以后的应用程序中用到你的部件。在你的开发项目中应该跟随适当的名称约定。9增加新的部件到工程的操作1. 在 VBA IDE 的工程窗口中，选择你要增加部件的工程。 2. 从插入菜单中，选择用户窗体、模块或类模块以增加新的部件到你的工程中。 新的模块将被增加到你的工程中并出现在工程窗口中。输入现存的部件输入功能允许你增加现存的部件到工程中。你可以输入窗体、模块或类模块。输入的窗体文件为 FRM 文件，输入的模块文件为 BAS 文件，输入的类模块文件为 CLS 文件。当你输入一个部件文件，文件 的一个副本将输入并增加到工程中。而原来
27、的文件也会保持不变。在输入部件中所做的 不会影响到原来的部件文件。如果你用现存的同样的名称输入部件，该文件将添加到工程中相应的部件上。从工程中输入现存的部件的操作1. 在 VBA IDE 的工程窗口中，选择你要增加部件的工程。 2. 从文件菜单中，选择输入文件以打开输入文件对话框。 3. 从输入文件对话框中，选择所要输入的文件，然后按打开。 该输入部件将增加到你的工程中并在工程窗口中出现。编辑部件的属性，可选择工程窗口的该部件。所选部件的属性将在属性窗口中列出并可编辑。编辑部件在工程中编辑工程的操作1. 在 VBA IDE 的工程窗口中，选择你要编辑的部件。 2. 选择工程窗口中的查看代码按钮
28、以打开代码窗口。 3. 选择工程窗口中的查看对象按钮以打开用户窗体窗口和关联的工具箱。 你可同时打开你所有模块中的代码窗口，所以你可很容易地 不同窗体或模块中的代码，并在它们之间进行复制和粘贴。访问关联在窗体中的代码的操作在窗体窗口中双击任何控件。关联在该控件中的代码将会在代码窗口中打开。使用代码窗口代码窗口包含两个下拉列表、一个分隔条、一个边界标识条栏和全模块视图和过程模块视图的图标。在代码窗口的顶部有两个下拉列表，它们显示当前对象和过程。你可通过更改在此下拉列有中的对象或过程来在工程中移动。在代码窗口的右侧在一分隔条，它允许你在垂直方向分隔窗口。单独拖动该分隔条呆创建另外的窗口窗格。该特性
29、允许你同时查看相同模块中的两部分代码。关闭窗格时，可将分隔条拖回其原先的位置。边界标识条栏是在代码窗口的左侧。它用于显示在代码编辑和调试期间的边界标识条。全模块视图和过程模块视图图标位于代码窗口的左下角，它可在单过程模块视图和全模块视图之间切换。使用用户窗体窗口用户窗体窗口允许你在工程中创建自定义对话框。增加控件可简单地从工具箱中拖动想要控件并摆放在窗体中。你可从选项对话框中的常规选项卡中设置控件的对齐栅格。你可查看窗体栅格并可从选项对话框的常规选项卡中设定栅格线的大小。(参考“设置 VBA IDE 选项”以得到更多的信息。)你设计的每一窗体都有最大化、最小化和关闭按钮。这些按钮已经为你准备好
30、。10将代码增加到控件中，可简单地双击摆放在窗体中的控件。此时将打开相应控件的代码窗口。运行宏和在宏对话框中运行宏一样，你也可以在 VBA IDE 中运行宏。从 VBA IDE 中运行宏的操作从菜单中，使用运行宏菜单选项。如果当前没有宏或窗体，将显示一对话框允许你选择所要运行的宏。如果当前已经提供了宏(即光标已经在一过程中 )，此时将直接执行宏。命名工程工程名称和保存工程的.dvb 文件名称是两个不同的值。当你保存工程时你所设定的为保存工程的.dvb 文件名称。而工程名称是在 VBA IDE 的属性窗口中设置的。如果你没有设定工程名称和文件名称，AutoCAD 将自动地以以下默认的名称进行分配
31、：工程名称：ACADProject文件名称：Project.dvb更改工程名称的操作1. 在 VBA IDE 的工程窗口中，选择要更改的工程。 2. 在属性窗口中，编辑工程的名称属性。 更改工程的文件名称操作1. 在 VBA IDE 中，从文件菜单中选择保存项。 2. 在另存为对话框中，输入工程文件新的名称和路径。 保存工程在 AutoCAD 的 VBA 工程中，没有直接的保存命令。取而代之，保存命令被置于 VBA IDE 的文件菜单中和 VBA 管理器中。当发生以下事件时，VBA 工程中所进行的更改将访问一标准的保存 VBA 工程对话框：你在 VBA IDE 中拾取了保存命令你在 VBA 管
32、理器中选择了另存为项在 VBA 工程没有保存的情况下结束或退出 AutoCAD 进程注意：当你保存工程时，它将分配一默认的文件名称 project.dvb。尤其重要的是在你保存工程时你应该为工程文件分配一新的名称。如果你使用默认的文件名称 project.dvb 保存工程，你将不能再创建新的空工程了。每一次你创建新的工程，你将得到的是装入已经存为 project.dvb 文件名称的工程。引用其它 VBA 工程从其它工程中引用 VBA 工程可开发者容易分享代码。开发者可使用宏来创建公用的库，然后在需要时引用库中的内容。这样可将共享代码公开并让众多的开发利用该代码。引用其它 VBA 工程的操作1. 在 VBA IDE 的工程窗口中，选择你要增加引用的工程。 2. 从工具菜单中，选择引用项以打开引用对话框。 3. 从引用对话框中，按浏览按钮打开添加引用对话框。 4. 从添加引用对话框中，选择你要引用的工程文件，然后按打开按钮。 5. 从添加引用对话框中，选择确定按钮完成引用的添加。
