《矿业信息技术基础第五章采矿编程初步.ppt》由会员分享，可在线阅读，更多相关《矿业信息技术基础第五章采矿编程初步.ppt（82页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、电子表格系统电子表格系统Microsoft Excel 97第第 五五 章章第五章第五章 采矿编程初步采矿编程初步中国矿业大学采矿工程专业矿业信息技术基础多媒体教学课件VBAIDE VBAIDE VBAIDE VBAIDE 激活激活激活激活 VBA IDEVBA IDEVBA IDEVBA IDE。VBA IDE VBA IDE VBA IDE VBA IDE 可以用来以交互方式编辑、运行和调试程可以用来以交互方式编辑、运行和调试程可以用来以交互方式编辑、运行和调试程可以用来以交互方式编辑、运行和调试程序。虽然序。虽然序。虽然序。虽然 VBA IDE VBA IDE VBA IDE VBA I
2、DE 只能在只能在只能在只能在 AutoCAD AutoCAD AutoCAD AutoCAD 运行时被调用，运行时被调用，运行时被调用，运行时被调用，但是可以独立于但是可以独立于但是可以独立于但是可以独立于 AutoCAD AutoCAD AutoCAD AutoCAD 应用程序窗口对它进行最应用程序窗口对它进行最应用程序窗口对它进行最应用程序窗口对它进行最小化、打开和关闭操作。小化、打开和关闭操作。小化、打开和关闭操作。小化、打开和关闭操作。VBAMAN VBAMAN VBAMAN VBAMAN 显示显示显示显示 VBA VBA VBA VBA 管理器，供用户查看、创建、加载、关闭、管理器
3、，供用户查看、创建、加载、关闭、管理器，供用户查看、创建、加载、关闭、管理器，供用户查看、创建、加载、关闭、内嵌和提取工程。内嵌和提取工程。内嵌和提取工程。内嵌和提取工程。5.1 AutoCAD VBA 命令命令Microsoft VBA Microsoft VBA 是一个面向对象的编程环境，可提供类是一个面向对象的编程环境，可提供类是一个面向对象的编程环境，可提供类是一个面向对象的编程环境，可提供类似似似似 Visual Basic(VB)Visual Basic(VB)的丰富开发功能。的丰富开发功能。的丰富开发功能。的丰富开发功能。VBA VBA 和和和和 VB VB 的的的的主要差别是主
4、要差别是主要差别是主要差别是 VBA VBA 和和和和 AutoCAD AutoCAD 在同一进程空间中运行，在同一进程空间中运行，在同一进程空间中运行，在同一进程空间中运行，提供的是具有提供的是具有提供的是具有提供的是具有 AutoCAD AutoCAD 智能的、非常快速的编程环境。智能的、非常快速的编程环境。智能的、非常快速的编程环境。智能的、非常快速的编程环境。VBA VBA 也向其他支持也向其他支持也向其他支持也向其他支持 VBA VBA 的应用程序提供应用程序集成。的应用程序提供应用程序集成。的应用程序提供应用程序集成。的应用程序提供应用程序集成。这就意味着这就意味着这就意味着这就意
5、味着 AutoCAD AutoCAD（使用其他应用程序对象库）可（使用其他应用程序对象库）可（使用其他应用程序对象库）可（使用其他应用程序对象库）可以是如以是如以是如以是如 Microsoft Word Microsoft Word 或或或或 Excel Excel 之类的其他应用程序的之类的其他应用程序的之类的其他应用程序的之类的其他应用程序的 Automation Automation 控制程序。控制程序。控制程序。控制程序。在在在在 AutoCAD AutoCAD AutoCAD AutoCAD 中实现中实现中实现中实现 VBA VBA VBA VBA 有四大优点：有四大优点：有四大优点
6、：有四大优点：Visual Basic Visual Basic Visual Basic Visual Basic 编程环境易于学习和使用。编程环境易于学习和使用。编程环境易于学习和使用。编程环境易于学习和使用。VBA VBA VBA VBA 可与可与可与可与 AutoCAD AutoCAD AutoCAD AutoCAD 在同一进程空间中运行。这使程在同一进程空间中运行。这使程在同一进程空间中运行。这使程在同一进程空间中运行。这使程序执行得非常快。序执行得非常快。序执行得非常快。序执行得非常快。对话框的构造快速而有效。这使开发人员可以构造对话框的构造快速而有效。这使开发人员可以构造对话框的
7、构造快速而有效。这使开发人员可以构造对话框的构造快速而有效。这使开发人员可以构造原型应用程序并迅速收到设计的反馈。原型应用程序并迅速收到设计的反馈。原型应用程序并迅速收到设计的反馈。原型应用程序并迅速收到设计的反馈。工程可以是独立的，也可以嵌入到图形中。这样就工程可以是独立的，也可以嵌入到图形中。这样就工程可以是独立的，也可以嵌入到图形中。这样就工程可以是独立的，也可以嵌入到图形中。这样就为开发人员提供了非常灵活的方式来发布他们的应为开发人员提供了非常灵活的方式来发布他们的应为开发人员提供了非常灵活的方式来发布他们的应为开发人员提供了非常灵活的方式来发布他们的应用程序。用程序。用程序。用程序。
8、VBA VBA 通过通过通过通过 AutoCAD ActiveX AutomationAutoCAD ActiveX Automation 接口将消息发送接口将消息发送接口将消息发送接口将消息发送到到到到 AutoCAD AutoCAD。AutoCAD VBA AutoCAD VBA 允许允许允许允许 VBA VBA 环境与环境与环境与环境与 AutoCAD AutoCAD 同时运行，并通过同时运行，并通过同时运行，并通过同时运行，并通过 ActiveX Automation ActiveX Automation 接口对接口对接口对接口对 AutoCAD AutoCAD 进行编程控制。进行编程
9、控制。进行编程控制。进行编程控制。AutoCADAutoCAD、ActiveX Automation ActiveX Automation 和和和和 VBA VBA 的这种结合方式不仅为操作的这种结合方式不仅为操作的这种结合方式不仅为操作的这种结合方式不仅为操作 AutoCAD AutoCAD 对象，而且为向其对象，而且为向其对象，而且为向其对象，而且为向其他应用程序发送或检索数据提供了功能极为强大的接口。他应用程序发送或检索数据提供了功能极为强大的接口。他应用程序发送或检索数据提供了功能极为强大的接口。他应用程序发送或检索数据提供了功能极为强大的接口。以下是以下是以下是以下是 AutoCAD
10、 AutoCAD 中定义中定义中定义中定义 ActiveX ActiveX 和和和和 VBA VBA 编程的三个基本编程的三个基本编程的三个基本编程的三个基本元素。元素。元素。元素。5.2 VBA 在在 AutoCAD 中的实现中的实现第一个是第一个是第一个是第一个是 AutoCADAutoCADAutoCADAutoCAD 本身，它拥有丰富的封装了本身，它拥有丰富的封装了本身，它拥有丰富的封装了本身，它拥有丰富的封装了 AutoCAD AutoCAD AutoCAD AutoCAD 图元、数据和命令的对象集。因为图元、数据和命令的对象集。因为图元、数据和命令的对象集。因为图元、数据和命令的对
11、象集。因为 AutoCAD AutoCAD AutoCAD AutoCAD 是一个设计为具有多层接口的开放架构应用程序，因此是一个设计为具有多层接口的开放架构应用程序，因此是一个设计为具有多层接口的开放架构应用程序，因此是一个设计为具有多层接口的开放架构应用程序，因此熟悉熟悉熟悉熟悉 AutoCAD AutoCAD AutoCAD AutoCAD 编程功能对于有效使用编程功能对于有效使用编程功能对于有效使用编程功能对于有效使用 VBA VBA VBA VBA 来说是非常来说是非常来说是非常来说是非常必要的。如果使用过必要的。如果使用过必要的。如果使用过必要的。如果使用过 AutoLISP Au
12、toLISP AutoLISP AutoLISP 编程来控制编程来控制编程来控制编程来控制 AutoCAD AutoCAD AutoCAD AutoCAD，就应该已经对，就应该已经对，就应该已经对，就应该已经对 AutoCAD AutoCAD AutoCAD AutoCAD 的机制有了一定的了解。然的机制有了一定的了解。然的机制有了一定的了解。然的机制有了一定的了解。然而，而，而，而，VBA VBA VBA VBA 的基于对象的处理方式和的基于对象的处理方式和的基于对象的处理方式和的基于对象的处理方式和 AutoLISP AutoLISP AutoLISP AutoLISP 的方式却的方式却的
13、方式却的方式却很不一样。很不一样。很不一样。很不一样。第二个元素是第二个元素是第二个元素是第二个元素是 AutoCAD ActiveX AutomationAutoCAD ActiveX AutomationAutoCAD ActiveX AutomationAutoCAD ActiveX Automation 接口，它接口，它接口，它接口，它建立与建立与建立与建立与 AutoCAD AutoCAD AutoCAD AutoCAD 对象的消息传递（通信）。用对象的消息传递（通信）。用对象的消息传递（通信）。用对象的消息传递（通信）。用 VBA VBA VBA VBA 编编编编程需要对程需要对程
14、需要对程需要对 ActiveX Automation ActiveX Automation ActiveX Automation ActiveX Automation 有基本的了解。关于有基本的了解。关于有基本的了解。关于有基本的了解。关于 AutoCAD ActiveX Automation AutoCAD ActiveX Automation AutoCAD ActiveX Automation AutoCAD ActiveX Automation 接口的说明，请参见接口的说明，请参见接口的说明，请参见接口的说明，请参见 ActiveX and VBA Reference GuideAct
15、iveX and VBA Reference GuideActiveX and VBA Reference GuideActiveX and VBA Reference Guide。即使是有经验的。即使是有经验的。即使是有经验的。即使是有经验的 VB VB VB VB 编程人员也会发现要理解和开发编程人员也会发现要理解和开发编程人员也会发现要理解和开发编程人员也会发现要理解和开发 AutoCAD VBA AutoCAD VBA AutoCAD VBA AutoCAD VBA 应用应用应用应用程序，程序，程序，程序，AutoCAD ActiveX Automation AutoCAD Activ
16、eX Automation AutoCAD ActiveX Automation AutoCAD ActiveX Automation 接口是非常重要接口是非常重要接口是非常重要接口是非常重要的。的。的。的。第三个元素是第三个元素是 VBAVBA编程环境编程环境(IDE)(IDE)，它具有自己的对，它具有自己的对象组、关键词和常量等，能提供程序流、控制、调试和象组、关键词和常量等，能提供程序流、控制、调试和执行等功能。执行等功能。AutoCADVBAAutoCADVBA包含包含MicrosoftVBAMicrosoftVBA扩展联机帮助，可扩展联机帮助，可以在以在VBAIDEVBAIDE中通过
17、以下方法访问：中通过以下方法访问：按键盘上的按键盘上的按键盘上的按键盘上的 F1 F1 键键键键从从从从 VBA IDE VBA IDE 菜单栏中选择菜单栏中选择菜单栏中选择菜单栏中选择“帮助帮助帮助帮助”单击单击单击单击 VBA IDE VBA IDE 工具栏上的工具栏上的工具栏上的工具栏上的“？”图标图标图标图标使用使用使用使用 VBA VBA VBA VBA 管理器可以查看当前管理器可以查看当前管理器可以查看当前管理器可以查看当前 AutoCAD AutoCAD AutoCAD AutoCAD 任务中加载的任务中加载的任务中加载的任务中加载的所有所有所有所有 VBA VBA VBA VB
18、A 工程。它是一种工程。它是一种工程。它是一种工程。它是一种 AutoCAD AutoCAD AutoCAD AutoCAD 工具，可让用户加工具，可让用户加工具，可让用户加工具，可让用户加载、卸载、保存、创建、内嵌和提取载、卸载、保存、创建、内嵌和提取载、卸载、保存、创建、内嵌和提取载、卸载、保存、创建、内嵌和提取 VBA VBA VBA VBA 工程。工程。工程。工程。打开打开打开打开 VBA VBA VBA VBA 管理器的步骤管理器的步骤管理器的步骤管理器的步骤 从从从从“工具工具工具工具”菜单中选择菜单中选择菜单中选择菜单中选择“宏宏宏宏”“VBA”“VBA”“VBA”“VBA 管理
19、器管理器管理器管理器”。在在在在 AutoCAD AutoCAD AutoCAD AutoCAD 中调用中调用中调用中调用 VBAMAN VBAMAN VBAMAN VBAMAN 命令。命令。命令。命令。5.3 使用使用 VBA 管理器组织工程管理器组织工程加载现有的工程加载现有的工程 卸载工程卸载工程 将工程嵌入到图形中将工程嵌入到图形中 从图形中提取工程从图形中提取工程 创建新工程创建新工程 保存工程保存工程 加载现有的工程加载现有的工程 在在在在“VBA“VBA“VBA“VBA 管理器管理器管理器管理器”中，使用中，使用中，使用中，使用“加载加载加载加载”选项打开选项打开选项打开选项打开
20、“打开打开打开打开 VBA VBA VBA VBA 工程工程工程工程”对对对对话框。话框。话框。话框。在在在在“打开打开打开打开 VBA VBA VBA VBA 工程工程工程工程”对话框中，选择要打开的工程文件。对话框中，选择要打开的工程文件。对话框中，选择要打开的工程文件。对话框中，选择要打开的工程文件。“VBA“VBA“VBA“VBA 工工工工程程程程”对话框只能打开有效的对话框只能打开有效的对话框只能打开有效的对话框只能打开有效的 DVB DVB DVB DVB 文件。如果用户试图打开其他类型文件。如果用户试图打开其他类型文件。如果用户试图打开其他类型文件。如果用户试图打开其他类型的文件
21、，则会收到一条错误信息。的文件，则会收到一条错误信息。的文件，则会收到一条错误信息。的文件，则会收到一条错误信息。选择选择选择选择“打开打开打开打开”。用户还可以使用以下任意方法来加载工程文件：用户还可以使用以下任意方法来加载工程文件：用户还可以使用以下任意方法来加载工程文件：用户还可以使用以下任意方法来加载工程文件：输入输入输入输入 VBALOAD VBALOAD VBALOAD VBALOAD 命令，打开命令，打开命令，打开命令，打开“打开打开打开打开 VBA VBA VBA VBA 工程工程工程工程”对话框。对话框。对话框。对话框。将将将将 DVB DVB DVB DVB 文件从文件从文
22、件从文件从 Windows Windows Windows Windows 资源管理器拖到资源管理器拖到资源管理器拖到资源管理器拖到 AutoCAD AutoCAD AutoCAD AutoCAD 窗口中打开窗口中打开窗口中打开窗口中打开的图形中。的图形中。的图形中。的图形中。卸载卸载 VBA VBA 工程的步骤工程的步骤在在在在 VBA VBA VBA VBA 管理器中选择要卸载的工程。管理器中选择要卸载的工程。管理器中选择要卸载的工程。管理器中选择要卸载的工程。选择选择选择选择“卸载卸载卸载卸载”。或者，使用或者，使用或者，使用或者，使用 VBAUNLOAD VBAUNLOAD VBAUN
23、LOAD VBAUNLOAD 命令，该命令会提示输入要卸命令，该命令会提示输入要卸命令，该命令会提示输入要卸命令，该命令会提示输入要卸载的工程。载的工程。载的工程。载的工程。将工程嵌入到将工程嵌入到 AutoCAD AutoCAD 图形中的步骤图形中的步骤打开打开打开打开 VBA VBA VBA VBA 管理器，并选择要嵌入的工程。管理器，并选择要嵌入的工程。管理器，并选择要嵌入的工程。管理器，并选择要嵌入的工程。选择选择选择选择“嵌入嵌入嵌入嵌入”。创建新工程创建新工程新工程会被创建为未保存的全局工程。创建完成后，可新工程会被创建为未保存的全局工程。创建完成后，可新工程会被创建为未保存的全局
24、工程。创建完成后，可新工程会被创建为未保存的全局工程。创建完成后，可将它嵌入到图形中或保存到工程文件中。将它嵌入到图形中或保存到工程文件中。将它嵌入到图形中或保存到工程文件中。将它嵌入到图形中或保存到工程文件中。创建新创建新创建新创建新 VBA VBA VBA VBA 工程的步骤工程的步骤工程的步骤工程的步骤 打开打开打开打开 VBA VBA VBA VBA 管理器。管理器。管理器。管理器。选择选择选择选择“新建新建新建新建”。新工程将用默认的名称新工程将用默认的名称新工程将用默认的名称新工程将用默认的名称 ACADProject ACADProject ACADProject ACADPro
25、ject 创建。要更改创建。要更改创建。要更改创建。要更改工程名，必须进入工程名，必须进入工程名，必须进入工程名，必须进入 VBA IDE VBA IDE VBA IDE VBA IDE 中。关于在中。关于在中。关于在中。关于在 VBA IDE VBA IDE VBA IDE VBA IDE 中命名工程的详细信息，请参见中命名工程的详细信息，请参见中命名工程的详细信息，请参见中命名工程的详细信息，请参见 命名工程命名工程命名工程命名工程。更改工程名称的步骤更改工程名称的步骤在在在在 VBA IDE VBA IDE VBA IDE VBA IDE 的的的的“工程工程工程工程”窗口中，选择要更改的
26、工程。窗口中，选择要更改的工程。窗口中，选择要更改的工程。窗口中，选择要更改的工程。在在在在“特性特性特性特性”窗口中编辑工程的窗口中编辑工程的窗口中编辑工程的窗口中编辑工程的 Name Name Name Name 特性。特性。特性。特性。更改工程的文件名的步骤更改工程的文件名的步骤在在在在 VBA IDE VBA IDE VBA IDE VBA IDE 中，从中，从中，从中，从“文件文件文件文件”菜单中选择菜单中选择菜单中选择菜单中选择“保存保存保存保存”选项。选项。选项。选项。在在在在“另存为另存为另存为另存为”对话框中输入工程文件的新名称和位置。对话框中输入工程文件的新名称和位置。对话
27、框中输入工程文件的新名称和位置。对话框中输入工程文件的新名称和位置。使用使用 VBA IDE VBA IDE 编辑工程编辑工程将工程加载到将工程加载到将工程加载到将工程加载到 AutoCAD AutoCAD AutoCAD AutoCAD 中后，用户就可以使用中后，用户就可以使用中后，用户就可以使用中后，用户就可以使用 VBA VBA VBA VBA 交互式开发环境来编辑该工程的代码、窗体和引用，交互式开发环境来编辑该工程的代码、窗体和引用，交互式开发环境来编辑该工程的代码、窗体和引用，交互式开发环境来编辑该工程的代码、窗体和引用，而且还可以在而且还可以在而且还可以在而且还可以在 VBA ID
28、E VBA IDE VBA IDE VBA IDE 中调试和运行工程。打开之中调试和运行工程。打开之中调试和运行工程。打开之中调试和运行工程。打开之后，使用后，使用后，使用后，使用 VBA IDE VBA IDE VBA IDE VBA IDE 可以访问所有已加载的工程。可以访问所有已加载的工程。可以访问所有已加载的工程。可以访问所有已加载的工程。查看工程信息查看工程信息查看工程信息查看工程信息 定义工程中的组件定义工程中的组件定义工程中的组件定义工程中的组件 输入现有组件输入现有组件输入现有组件输入现有组件 编辑组件编辑组件编辑组件编辑组件 命名工程命名工程命名工程命名工程 保存工程保存工程
29、保存工程保存工程 引用其他引用其他引用其他引用其他 VBA VBA VBA VBA 工程工程工程工程 设置设置设置设置 VBA IDE VBA IDE VBA IDE VBA IDE 选项选项选项选项 5.4 使用使用 VBA IDE编辑工程编辑工程查看工程信息查看工程信息 VBA IDE VBA IDE VBA IDE VBA IDE 包含了包含了包含了包含了“工程工程工程工程”窗口窗口窗口窗口，其中显示了所有已加载的，其中显示了所有已加载的，其中显示了所有已加载的，其中显示了所有已加载的 VBA VBA VBA VBA 工工工工程列表。这个窗口还显示工程中包含的代码、类和窗体模块，与程列表
30、。这个窗口还显示工程中包含的代码、类和窗体模块，与程列表。这个窗口还显示工程中包含的代码、类和窗体模块，与程列表。这个窗口还显示工程中包含的代码、类和窗体模块，与工程关联的文档，从工程引用的所有其他工程关联的文档，从工程引用的所有其他工程关联的文档，从工程引用的所有其他工程关联的文档，从工程引用的所有其他 VBA VBA VBA VBA 工程，以及工程的工程，以及工程的工程，以及工程的工程，以及工程的实际位置（路径）。实际位置（路径）。实际位置（路径）。实际位置（路径）。“工程工程工程工程”窗口有窗口有窗口有窗口有自己的工具自己的工具自己的工具自己的工具栏栏栏栏，可用来打开工程的各个组，可用来
31、打开工程的各个组，可用来打开工程的各个组，可用来打开工程的各个组件进行编辑。使用件进行编辑。使用件进行编辑。使用件进行编辑。使用“查看代码查看代码查看代码查看代码”按钮可打开选定模块的代码。按钮可打开选定模块的代码。按钮可打开选定模块的代码。按钮可打开选定模块的代码。使用使用使用使用“查看对象查看对象查看对象查看对象”按钮可显示按钮可显示按钮可显示按钮可显示选定的对象，例如窗体。选定的对象，例如窗体。选定的对象，例如窗体。选定的对象，例如窗体。定义工程中的组件定义工程中的组件对象对象 窗体窗体 标准模块标准模块 类模块类模块 引用引用 添加新组件添加新组件 对象组件对象组件对象组件对象组件代表
32、代表代表代表 VBA VBA VBA VBA 代码将访问的对象或文档的类型。对代码将访问的对象或文档的类型。对代码将访问的对象或文档的类型。对代码将访问的对象或文档的类型。对于于于于 AutoCAD VBA AutoCAD VBA AutoCAD VBA AutoCAD VBA 工程，此对象代表当前的工程，此对象代表当前的工程，此对象代表当前的工程，此对象代表当前的 AutoCAD AutoCAD AutoCAD AutoCAD 图图图图形。形。形。形。窗体组件窗体组件窗体组件窗体组件包含由用户构造的、用于工程的自定义对话框。包含由用户构造的、用于工程的自定义对话框。包含由用户构造的、用于工程
33、的自定义对话框。包含由用户构造的、用于工程的自定义对话框。代码模块组件代码模块组件代码模块组件代码模块组件包含用户的常用过程和函数。标准模块也包含用户的常用过程和函数。标准模块也包含用户的常用过程和函数。标准模块也包含用户的常用过程和函数。标准模块也称为代码模块，或简称为模块。称为代码模块，或简称为模块。称为代码模块，或简称为模块。称为代码模块，或简称为模块。类模块组件类模块组件类模块组件类模块组件包含用户自己定义的所有对象（定义为类）。包含用户自己定义的所有对象（定义为类）。包含用户自己定义的所有对象（定义为类）。包含用户自己定义的所有对象（定义为类）。引用组件引用组件引用组件引用组件包含对
34、其他工程或库的所有引用。包含对其他工程或库的所有引用。包含对其他工程或库的所有引用。包含对其他工程或库的所有引用。添加新组件添加新组件添加新组件将在工程中创建空白组件。用户可以将新的添加新组件将在工程中创建空白组件。用户可以将新的添加新组件将在工程中创建空白组件。用户可以将新的添加新组件将在工程中创建空白组件。用户可以将新的模块、窗体和类模块添加到自己的工程中。用户需要自模块、窗体和类模块添加到自己的工程中。用户需要自模块、窗体和类模块添加到自己的工程中。用户需要自模块、窗体和类模块添加到自己的工程中。用户需要自己更新所有的组件特性（例如组件名称），并填入适当己更新所有的组件特性（例如组件名称
35、），并填入适当己更新所有的组件特性（例如组件名称），并填入适当己更新所有的组件特性（例如组件名称），并填入适当的代码。在命名新组件时，请注意其他开发人员在未来的代码。在命名新组件时，请注意其他开发人员在未来的代码。在命名新组件时，请注意其他开发人员在未来的代码。在命名新组件时，请注意其他开发人员在未来的应用程序中可能会使用您的组件。请的应用程序中可能会使用您的组件。请的应用程序中可能会使用您的组件。请的应用程序中可能会使用您的组件。请遵循开发团队的遵循开发团队的遵循开发团队的遵循开发团队的命名惯例命名惯例命名惯例命名惯例。向工程中添加新组件的步骤：向工程中添加新组件的步骤：在在在在 VBA I
36、DE VBA IDE VBA IDE VBA IDE 的的的的“工程工程工程工程”窗口中选择要向其中添加组件窗口中选择要向其中添加组件窗口中选择要向其中添加组件窗口中选择要向其中添加组件的工程。的工程。的工程。的工程。从从从从“插入插入插入插入”菜单中选择菜单中选择菜单中选择菜单中选择“用户窗体用户窗体用户窗体用户窗体”、“模块模块模块模块”或或或或“类类类类模块模块模块模块”来向工程中添加新组件。来向工程中添加新组件。来向工程中添加新组件。来向工程中添加新组件。新组件将会被添加到工程中并显示在新组件将会被添加到工程中并显示在新组件将会被添加到工程中并显示在新组件将会被添加到工程中并显示在“工
37、程工程工程工程”窗口中。窗口中。窗口中。窗口中。编辑组件编辑组件在在在在 VBA IDE VBA IDE VBA IDE VBA IDE 中，可以编辑标准模块、类模块和窗体。中，可以编辑标准模块、类模块和窗体。中，可以编辑标准模块、类模块和窗体。中，可以编辑标准模块、类模块和窗体。标准模块和类模块均在标准模块和类模块均在标准模块和类模块均在标准模块和类模块均在“代码代码代码代码”窗口中编辑窗口中编辑窗口中编辑窗口中编辑；窗体则在；窗体则在；窗体则在；窗体则在“用户窗体用户窗体用户窗体用户窗体”窗口窗口窗口窗口中使用特殊的的工具箱进行编辑。中使用特殊的的工具箱进行编辑。中使用特殊的的工具箱进行编
38、辑。中使用特殊的的工具箱进行编辑。由于可以打开的由于可以打开的由于可以打开的由于可以打开的“代码代码代码代码”窗口与拥有的模块数目一致，窗口与拥有的模块数目一致，窗口与拥有的模块数目一致，窗口与拥有的模块数目一致，因此可以很容易地查看不同窗体或模块中的代码，并在因此可以很容易地查看不同窗体或模块中的代码，并在因此可以很容易地查看不同窗体或模块中的代码，并在因此可以很容易地查看不同窗体或模块中的代码，并在它们之间互相复制和粘贴。它们之间互相复制和粘贴。它们之间互相复制和粘贴。它们之间互相复制和粘贴。编辑工程组件的步骤编辑工程组件的步骤在在在在 VBA IDE VBA IDE 的的的的“工程工程工
39、程工程”窗口中，选择要编辑的组件。窗口中，选择要编辑的组件。窗口中，选择要编辑的组件。窗口中，选择要编辑的组件。在在在在“工程工程工程工程”窗口中，选择窗口中，选择窗口中，选择窗口中，选择“查看代码查看代码查看代码查看代码”按钮打开按钮打开按钮打开按钮打开“代码代码代码代码”窗口。窗口。窗口。窗口。在在在在“工程工程工程工程”窗口中，选择窗口中，选择窗口中，选择窗口中，选择“查看对象查看对象查看对象查看对象”按钮打开按钮打开按钮打开按钮打开“用户窗体用户窗体用户窗体用户窗体”窗口和关联的工具箱。窗口和关联的工具箱。窗口和关联的工具箱。窗口和关联的工具箱。使用“代码”窗口“代码代码代码代码”窗口
40、包含两个下拉列表、一个拆分栏、一个边界窗口包含两个下拉列表、一个拆分栏、一个边界窗口包含两个下拉列表、一个拆分栏、一个边界窗口包含两个下拉列表、一个拆分栏、一个边界指示栏、一个完全视图图标和一个过程视图图标。指示栏、一个完全视图图标和一个过程视图图标。指示栏、一个完全视图图标和一个过程视图图标。指示栏、一个完全视图图标和一个过程视图图标。使用使用“用户窗体用户窗体”窗口窗口通过通过通过通过“用户窗体用户窗体用户窗体用户窗体”窗口，可以在工程中创建自定义对话窗口，可以在工程中创建自定义对话窗口，可以在工程中创建自定义对话窗口，可以在工程中创建自定义对话框框框框 自动拥有自动拥有自动拥有自动拥有“
41、最大化最大化最大化最大化”、“最小化最小化最小化最小化”和和和和“关闭关闭关闭关闭”按钮按钮按钮按钮添加控件添加控件添加控件添加控件添加控件代码添加控件代码添加控件代码添加控件代码访问窗体关联代码的步骤访问窗体关联代码的步骤请双击请双击请双击请双击“窗体窗体窗体窗体”窗口中的窗口中的窗口中的窗口中的任意控件。任意控件。任意控件。任意控件。“代码代码代码代码”窗口窗口窗口窗口中将打开与该控件关联的中将打开与该控件关联的中将打开与该控件关联的中将打开与该控件关联的代码。代码。代码。代码。进行初步练习进行初步练习上面已经学习了上面已经学习了AutoCADVBAAutoCADVBA编程的基本知识，接下
42、编程的基本知识，接下来让我们练习创建简单的来让我们练习创建简单的“HelloWorld”“HelloWorld”。在此练习中，。在此练习中，将会创建新的将会创建新的AutoCADAutoCAD图形，并向该图形中添加一行图形，并向该图形中添加一行文字，然后保存图形，全部操作均通过文字，然后保存图形，全部操作均通过VBAVBA来完成。来完成。“Hello World”“Hello World”“Hello World”“Hello World”例程例程例程例程 1.1.1.1.从从从从 AutoCAD AutoCAD AutoCAD AutoCAD 命令行输入以下命令来打开命令行输入以下命令来打开
43、命令行输入以下命令来打开命令行输入以下命令来打开 VBA IDEVBA IDEVBA IDEVBA IDE：1.1.1.1.命令命令命令命令:VBAIDE:VBAIDE:VBAIDE:VBAIDE 2.2.2.2.从从从从 VBA IDE VBA IDE VBA IDE VBA IDE 的的的的“查看查看查看查看”菜单中选择菜单中选择菜单中选择菜单中选择“代码代码代码代码”选项打开选项打开选项打开选项打开“代码代码代码代码”窗口。窗口。窗口。窗口。3.3.3.3.从从从从 VBA IDE VBA IDE VBA IDE VBA IDE 的的的的“插入插入插入插入”菜单中选择菜单中选择菜单中选择
44、菜单中选择“过程过程过程过程”选项，在工程中创选项，在工程中创选项，在工程中创选项，在工程中创建新过程。建新过程。建新过程。建新过程。4.4.4.4.当提示输入过程信息时，输入名称，例如当提示输入过程信息时，输入名称，例如当提示输入过程信息时，输入名称，例如当提示输入过程信息时，输入名称，例如 HelloWorldHelloWorldHelloWorldHelloWorld。请确保。请确保。请确保。请确保选定的选定的选定的选定的“类型类型类型类型”是是是是 SubSubSubSub，选定的，选定的，选定的，选定的“作用域作用域作用域作用域”是是是是 PublicPublicPublicPubl
45、ic。5.5.5.5.选择选择选择选择“确定确定确定确定”。6.6.6.6.在行在行在行在行 Public Sub Public Sub Public Sub Public Sub HelloWorldHelloWorldHelloWorldHelloWorld()()()()和行和行和行和行 End Sub End Sub End Sub End Sub 之间输入以下代码。之间输入以下代码。之间输入以下代码。之间输入以下代码。（用于打开新图形）（用于打开新图形）7.7.7.7.紧接代码之后输入以下代码（用于创建字符串和定义其插入位置）。紧接代码之后输入以下代码（用于创建字符串和定义其插入位置
46、）。紧接代码之后输入以下代码（用于创建字符串和定义其插入位置）。紧接代码之后输入以下代码（用于创建字符串和定义其插入位置）。Dim insPoint(0 To 2)As Double Dim insPoint(0 To 2)As Double Dim insPoint(0 To 2)As Double Dim insPoint(0 To 2)As Double 声明插入点声明插入点声明插入点声明插入点Dim Dim Dim Dim textHeighttextHeighttextHeighttextHeight As Double As Double As Double As Double 声
47、明文字高度声明文字高度声明文字高度声明文字高度Dim Dim Dim Dim textStrtextStrtextStrtextStr As String As String As String As String 声明字符串声明字符串声明字符串声明字符串Dim Dim Dim Dim textObjtextObjtextObjtextObj As As As As AcadTextAcadTextAcadTextAcadText 声明文字对象声明文字对象声明文字对象声明文字对象insPoint(0)=2 insPoint(0)=2 insPoint(0)=2 insPoint(0)=2 设置
48、插入点的设置插入点的设置插入点的设置插入点的 x x x x 坐标坐标坐标坐标insPoint(1)=4 insPoint(1)=4 insPoint(1)=4 insPoint(1)=4 设置插入点的设置插入点的设置插入点的设置插入点的 y y y y 坐标坐标坐标坐标insPoint(2)=0 insPoint(2)=0 insPoint(2)=0 insPoint(2)=0 设置插入点的设置插入点的设置插入点的设置插入点的 z z z z 坐标坐标坐标坐标textHeighttextHeighttextHeighttextHeight=1 =1 =1 =1 强文字高度设置为强文字高度设置
49、为强文字高度设置为强文字高度设置为 1.01.01.01.0textStrtextStrtextStrtextStr=Hello World!=Hello World!=Hello World!=Hello World!设置字符串设置字符串设置字符串设置字符串 创建创建创建创建 Text Text Text Text 对象对象对象对象Set Set Set Set textObjtextObjtextObjtextObj=_(_(_(_(textStrtextStrtextStrtextStr,insPointinsPointinsPointinsPoint,textHeighttextHei
50、ghttextHeighttextHeight)8.8.紧接在步骤紧接在步骤紧接在步骤紧接在步骤 7 7 7 7 中的输入代码之后输入以下代码（用于中的输入代码之后输入以下代码（用于中的输入代码之后输入以下代码（用于中的输入代码之后输入以下代码（用于保存图形）。保存图形）。保存图形）。保存图形）。9.9.ThisDrawing.SaveAs(Hello.dwgThisDrawing.SaveAs(Hello.dwgThisDrawing.SaveAs(Hello.dwgThisDrawing.SaveAs(Hello.dwg)从从从从 VBA IDE VBA IDE VBA IDE VBA I