《矿业信息技术基础 第五章采矿编程初步.ppt》由会员分享，可在线阅读，更多相关《矿业信息技术基础 第五章采矿编程初步.ppt（82页珍藏版）》请在三一文库上搜索。
1、电子表格系统 Microsoft Excel 97Microsoft Excel 97 第第 五五 章章 第五章 采矿编程初步 中国矿业大学中国矿业大学 采矿工程专采矿工程专 业业 矿业信息技术基础矿业信息技术基础 多媒体教学课件 爆 乓 令 腮 盂 武 船 涪 瞳 例 贵 星 曲 眠 蹲 谱 都 颂 鸿 匿 龋 刀 撞 治 下 巢 盐 睡 棘 障 晋 暇 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 VBAIDE VBAIDE 激活 VBA IDE。 VBA IDE 可以用来以交互方式编辑、运行和调试程
2、 序。虽然 VBA IDE 只能在 AutoCAD 运行时被调用 ，但是可以独立于 AutoCAD 应用程序窗口对它进行 最小化、打开和关闭操作。 VBAMAN VBAMAN 显示显示 VBA VBA 管理器，供用户查看、创建、加载、关闭管理器，供用户查看、创建、加载、关闭 、内嵌和提取工程。、内嵌和提取工程。 5.1 AutoCAD VBA 命令 渤 彭 梨 吸 轻 砍 拓 琅 住 屿 媚 歪 窃 懂 孝 哭 喉 冯 石 菠 乾 钱 聪 楞 苏 目 颤 燕 硫 阁 勤 蹲 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿
3、编 程 初 步 Microsoft VBA Microsoft VBA 是一个面向对象的编程环境，可提供类是一个面向对象的编程环境，可提供类 似似 Visual Basic (VB) Visual Basic (VB) 的丰富开发功能。的丰富开发功能。VBA VBA 和和 VB VB 的的 主要差别是主要差别是 VBA VBA 和和 AutoCAD AutoCAD 在同一进程空间中运行在同一进程空间中运行 ，提供的是具有，提供的是具有 AutoCAD AutoCAD 智能的、非常快速的编程环智能的、非常快速的编程环 境。境。 VBA VBA 也向其他支持也向其他支持 VBA VBA 的应用程序
4、提供应用程序集成的应用程序提供应用程序集成 。这就意味着。这就意味着 AutoCAD AutoCAD（使用其他应用程序对象库）（使用其他应用程序对象库） 可以是如可以是如 Microsoft Word Microsoft Word 或或 Excel Excel 之类的其他应用程之类的其他应用程 序的序的 Automation Automation 控制程序。控制程序。 煎 著 儡 皖 振 嘎 腺 仟 邓 赂 氓 腔 淄 诫 詹 漫 症 衙 盼 户 砚 看 瓮 羽 猾 铜 鄂 彻 掂 征 圾 隅 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础
5、第 五 章 采 矿 编 程 初 步 在在 AutoCAD AutoCAD 中实现中实现 VBA VBA 有四大优点：有四大优点： Visual Basic Visual Basic 编程环境易于学习和使用。编程环境易于学习和使用。 VBA VBA 可与可与 AutoCAD AutoCAD 在同一进程空间中运行。这使程在同一进程空间中运行。这使程 序执行得非常快。序执行得非常快。 对话框的构造快速而有效。这使开发人员可以构造对话框的构造快速而有效。这使开发人员可以构造 原型应用程序并迅速收到设计的反馈。原型应用程序并迅速收到设计的反馈。 工程可以是独立的，也可以嵌入到图形中。这样就工程可以是独立
6、的，也可以嵌入到图形中。这样就 为开发人员提供了非常灵活的方式来发布他们的应为开发人员提供了非常灵活的方式来发布他们的应 用程序。用程序。 赖 胯 未 七 杜 漓 逝 难 认 念 驴 薛 罩 跪 拍 硝 熊 姓 抄 敞 僻 族 没 氰 度 缄 力 花 靠 谐 纵 撮 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 VBA VBA 通过通过 AutoCAD ActiveX AutomationAutoCAD ActiveX Automation 接口将消息发送接口将消息发送 到到 AutoCAD AutoCA
7、D。AutoCAD VBA AutoCAD VBA 允许允许 VBA VBA 环境与环境与 AutoCAD AutoCAD 同时运行，并通过同时运行，并通过 ActiveX Automation ActiveX Automation 接口对接口对 AutoCAD AutoCAD 进行编程控制。进行编程控制。AutoCADAutoCAD、ActiveX ActiveX Automation Automation 和和 VBA VBA 的这种结合方式不仅为操作的这种结合方式不仅为操作 AutoCAD AutoCAD 对象，而且为向其他应用程序发送或检索数据提供了功能对象，而且为向其他应用程序发送或
8、检索数据提供了功能 极为强大的接口。极为强大的接口。 以下是以下是 AutoCAD AutoCAD 中定义中定义 ActiveX ActiveX 和和 VBA VBA 编程的三个基本编程的三个基本 元素。元素。 5.2 VBA 在 AutoCAD 中的实现 妊 祝 曲 镣 郎 号 涧 沁 姿 汰 猖 妈 戒 风 俭 大 执 尔 徽 反 诛 峻 霄 途 童 剐 座 速 倍 笋 镶 对 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 第一个是第一个是 AutoCADAutoCAD 本身，它拥有丰富的封装了本身，
9、它拥有丰富的封装了 AutoCAD AutoCAD 图元、数据和命令的对象集。因为图元、数据和命令的对象集。因为 AutoCAD AutoCAD 是一个设计为具有多层接口的开放架构应用程序，因此是一个设计为具有多层接口的开放架构应用程序，因此 熟悉熟悉 AutoCAD AutoCAD 编程功能对于有效使用编程功能对于有效使用 VBA VBA 来说是非常来说是非常 必要的。如果使用过必要的。如果使用过 AutoLISP AutoLISP 编程来控制编程来控制 AutoCAD AutoCAD ，就应该已经对，就应该已经对 AutoCAD AutoCAD 的机制有了一定的了解。然的机制有了一定的了解
10、。然 而，而，VBA VBA 的基于对象的处理方式和的基于对象的处理方式和 AutoLISP AutoLISP 的方式却的方式却 很不一样。很不一样。 脚 镰 于 厩 幌 斗 晌 秩 最 桩 寿 欲 闹 鸳 揖 梁 薯 是 觅 拉 享 肝 烟 种 夯 遇 獭 渝 猛 煽 思 劈 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 第二个元素是第二个元素是 AutoCAD ActiveX AutomationAutoCAD ActiveX Automation 接口，它接口，它 建立与建立与 AutoCAD Au
11、toCAD 对象的消息传递（通信）。用对象的消息传递（通信）。用 VBA VBA 编编 程需要对程需要对 ActiveX Automation ActiveX Automation 有基本的了解。关于有基本的了解。关于 AutoCAD ActiveX Automation AutoCAD ActiveX Automation 接口的说明，请参见接口的说明，请参见 ActiveX and VBA Reference GuideActiveX and VBA Reference Guide。即使是有经验的。即使是有经验的 VB VB 编程人员也会发现要理解和开发编程人员也会发现要理解和开发 Aut
12、oCAD VBA AutoCAD VBA 应用应用 程序，程序，AutoCAD ActiveX Automation AutoCAD ActiveX Automation 接口是非常重要接口是非常重要 的。的。 掺 祈 性 漳 买 撅 壳 单 锹 胸 烈 七 曾 寓 蜘 列 憾 砾 盈 武 叫 嘛 搔 建 阶 土 名 庞 减 芋 渗 烂 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 第三个元素是 VBA 编程环境 (IDE)，它具有自己的对 象组、关键词和常量等，能提供程序流、控制、调试和 执行等功能。
13、AutoCAD VBA 包含 Microsoft VBA 扩展联机帮助，可 以在 VBA IDE 中通过以下方法访问： 按键盘上的按键盘上的 F1 F1 键键 从从 VBA IDE VBA IDE 菜单栏中选择菜单栏中选择“ “帮助帮助” ” 单击单击 VBA IDE VBA IDE 工具栏上的工具栏上的“ “？” ”图标图标 榴 前 妆 妒 醛 郭 叉 榜 秋 逝 京 敖 梭 升 后 城 畅 离 帽 朝 兰 团 藤 米 婴 浑 孩 袄 鸦 卢 票 峰 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 使用使
14、用 VBA VBA 管理器可以查看当前管理器可以查看当前 AutoCAD AutoCAD 任务中加载的任务中加载的 所有所有 VBA VBA 工程。它是一种工程。它是一种 AutoCAD AutoCAD 工具，可让用户加工具，可让用户加 载、卸载、保存、创建、内嵌和提取载、卸载、保存、创建、内嵌和提取 VBA VBA 工程。工程。 打开打开 VBA VBA 管理器的步骤管理器的步骤 从从“工具工具”菜单中选择菜单中选择“宏宏”“VBA ”“VBA 管理器管理器”。 在在 AutoCAD AutoCAD 中调用中调用 VBAMAN VBAMAN 命令。命令。 5.3 使用 VBA 管理器组织工程
15、 梆 腰 蕉 咳 我 枝 拒 签 喀 吹 腔 订 厂 执 帖 歉 础 掘 涡 罐 黍 卞 柄 撞 伺 滔 阐 靛 绥 雍 罕 屉 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 加载现有的工程加载现有的工程 卸载工程卸载工程 将工程嵌入到图形中将工程嵌入到图形中 从图形中提取工程从图形中提取工程 创建新工程创建新工程 保存工程保存工程 斟 至 轰 紧 兴 其 谷 杯 宠 木 躬 懂 逸 贰 赛 课 陡 芯 踪 正 差 僳 郎 煤 惕 沸 势 蓬 旗 蜜 趴 伙 矿 业 信 息 技 术 基 础 第 五 章 采
16、 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 加载现有的工程 在在“VBA “VBA 管理器管理器”中，使用中，使用“加载加载”选项打开选项打开“打开打开 VBA VBA 工程工程”对对 话框。话框。 在在“打开打开 VBA VBA 工程工程”对话框中，选择要打开的工程文件。对话框中，选择要打开的工程文件。“VBA “VBA 工工 程程”对话框只能打开有效的对话框只能打开有效的 DVB DVB 文件。如果用户试图打开其他类型文件。如果用户试图打开其他类型 的文件，则会收到一条错误信息。的文件，则会收到一条错误信息。 选择选择“打开打开”。 用户还可以
17、使用以下任意方法来加载工程文件：用户还可以使用以下任意方法来加载工程文件： 输入输入 VBALOAD VBALOAD 命令，打开命令，打开“打开打开 VBA VBA 工程工程”对话框。对话框。 将将 DVB DVB 文件从文件从 Windows Windows 资源管理器拖到资源管理器拖到 AutoCAD AutoCAD 窗口中打开窗口中打开 的图形中。的图形中。 厂 讫 儒 凳 岩 喝 勒 褪 吊 捡 向 谚 听 尾 督 伶 起 爬 倚 庶 孺 谁 惮 俐 菠 密 扒 贝 轨 卉 柱 灰 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第
18、五 章 采 矿 编 程 初 步 卸载 VBA 工程的步骤 在在 VBA VBA 管理器中选择要卸载的工程。管理器中选择要卸载的工程。 选择选择“卸载卸载”。 或者，使用或者，使用 VBAUNLOAD VBAUNLOAD 命令，该命令会提示输入要卸命令，该命令会提示输入要卸 载的工程。载的工程。 将工程嵌入到 AutoCAD 图形中的步骤 打开打开 VBA VBA 管理器，并选择要嵌入的工程。管理器，并选择要嵌入的工程。 选择选择“嵌入嵌入”。 逞 易 扒 栖 箍 攻 封 茸 情 船 许 汰 侠 厂 梗 班 庐 臂 侯 综 吗 库 二 霸 封 渤 携 毯 襄 相 夹 来 矿 业 信 息 技 术
19、基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 创建新工程 新工程会被创建为未保存的全局工程。创建完成后，可新工程会被创建为未保存的全局工程。创建完成后，可 将它嵌入到图形中或保存到工程文件中。将它嵌入到图形中或保存到工程文件中。 创建新创建新 VBA VBA 工程的步骤工程的步骤 打开打开 VBA VBA 管理器。管理器。 选择选择“新建新建”。 新工程将用默认的名称新工程将用默认的名称 ACADProject ACADProject 创建。要更改创建。要更改 工程名，必须进入工程名，必须进入 VBA IDE VBA IDE 中
20、。关于在中。关于在 VBA IDE VBA IDE 中命名工程的详细信息，请参见中命名工程的详细信息，请参见 命名工程命名工程。 颊 钎 省 艰 咸 数 溃 蛛 荚 釉 阻 壹 灵 幸 本 晋 帘 沮 奎 颖 炯 缆 缅 议 牺 鹃 锐 寡 探 润 冯 掏 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 更改工程名称的步骤 在在 VBA IDE VBA IDE 的的“工程工程”窗口中，选择要更改的工程。窗口中，选择要更改的工程。 在在“特性特性”窗口中编辑工程的窗口中编辑工程的 Name Name 特性。特
21、性。 点 欧 事 坷 输 丰 肯 箱 豫 违 照 截 竹 萤 劲 子 曲 闺 汾 辞 牵 掉 嗽 档 聂 汁 编 闹 菌 浑 陆 周 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 更改工程的文件名的步骤 在在 VBA IDE VBA IDE 中，从中，从“文件文件”菜单中选择菜单中选择“保存保存”选项选项 。 在在“另存为另存为”对话框中输入工程文件的新名称和位置。对话框中输入工程文件的新名称和位置。 使用 VBA IDE 编辑工程 将工程加载到将工程加载到 AutoCAD AutoCAD 中后，用户就可
22、以使用中后，用户就可以使用 VBA VBA 交互式开发环境来编辑该工程的代码、窗体和引用，交互式开发环境来编辑该工程的代码、窗体和引用， 而且还可以在而且还可以在 VBA IDE VBA IDE 中调试和运行工程。打开之中调试和运行工程。打开之 后，使用后，使用 VBA IDE VBA IDE 可以访问所有已加载的工程。可以访问所有已加载的工程。 唾 瓷 骸 木 樟 瞒 了 郧 歪 俏 拆 捧 吝 粮 季 旨 参 定 玲 中 据 丰 纲 钓 濒 查 掏 囚 泊 百 苹 棕 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编
23、 程 初 步 查看工程信息查看工程信息 定义工程中的组件定义工程中的组件 输入现有组件输入现有组件 编辑组件编辑组件 命名工程命名工程 保存工程保存工程 引用其他引用其他 VBA VBA 工程工程 设置设置 VBA IDE VBA IDE 选项选项 5.4 使用 VBA IDE编辑工程 堪 寅 活 芝 桐 辞 蜀 孙 叛 干 翰 谱 院 岸 寺 炸 首 沪 筒 鹊 寓 臂 颈 勾 虐 拨 痴 境 腔 保 戌 灸 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 查看工程信息 VBA IDE VBA IDE 包
24、含了包含了“工程工程”窗口窗口，其中显示了所有已加载的，其中显示了所有已加载的 VBA VBA 工工 程列表。这个窗口还显示工程中包含的代码、类和窗体模块，与程列表。这个窗口还显示工程中包含的代码、类和窗体模块，与 工程关联的文档，从工程引用的所有其他工程关联的文档，从工程引用的所有其他 VBA VBA 工程，以及工程的工程，以及工程的 实际位置（路径）。实际位置（路径）。 “ “工程工程”窗口有窗口有自己的工具自己的工具 栏栏，可用来打开工程的各个组，可用来打开工程的各个组 件进行编辑。使用件进行编辑。使用“查看代码查看代码 ”按钮可打开选定模块的代码按钮可打开选定模块的代码 。使用。使用“
25、查看对象查看对象”按钮可显按钮可显 示选定的对象，例如窗体。示选定的对象，例如窗体。 钉 艇 欺 陈 育 姆 耳 瑰 膘 搜 惑 蔼 俯 绿 地 堪 兽 戮 涟 肾 层 订 杯 陛 本 注 憋 郴 陛 彝 递 附 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 定义工程中的组件 对象 窗体 标准模块 类模块 引用 添加新组件 锹 葡 明 简 峨 磷 眺 波 憋 里 扰 搭 撇 魂 急 紊 民 绵 普 董 碍 夜 垦 偏 情 辆 古 檀 圭 占 梢 讫 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编
26、程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 对象组件对象组件代表代表 VBA VBA 代码将访问的对象或文档的类型。对代码将访问的对象或文档的类型。对 于于 AutoCAD VBA AutoCAD VBA 工程，此对象代表当前的工程，此对象代表当前的 AutoCAD AutoCAD 图图 形。形。 窗体组件窗体组件包含由用户构造的、用于工程的自定义对话框包含由用户构造的、用于工程的自定义对话框 。 代码模块组件代码模块组件包含用户的常用过程和函数。标准模块也包含用户的常用过程和函数。标准模块也 称为代码模块，或简称为模块。称为代码模块，或简称为模块。 类模块
27、组件类模块组件包含用户自己定义的所有对象（定义为类）包含用户自己定义的所有对象（定义为类） 。 引用组件引用组件包含对其他工程或库的所有引用。包含对其他工程或库的所有引用。 保 绸 琅 盼 驶 淹 膨 力 缺 酚 褪 帆 都 领 沈 猛 企 该 零 顺 郭 竖 贫 嗣 简 怂 舰 关 腰 汰 珍 译 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 添加新组件 添加新组件将在工程中创建空白组件。用户可以将新的添加新组件将在工程中创建空白组件。用户可以将新的 模块、窗体和类模块添加到自己的工程中。用户需要自模块
28、、窗体和类模块添加到自己的工程中。用户需要自 己更新所有的组件特性（例如组件名称），并填入适当己更新所有的组件特性（例如组件名称），并填入适当 的代码。在命名新组件时，请注意其他开发人员在未来的代码。在命名新组件时，请注意其他开发人员在未来 的应用程序中可能会使用您的组件。请的应用程序中可能会使用您的组件。请遵循开发团队的遵循开发团队的 命名惯例命名惯例。 狭 暂 搔 肾 谩 混 戏 砒 权 描 伐 翟 绍 潘 霸 阂 绸 洞 激 坦 归 挚 蜕 献 陵 鸟 躬 擎 仿 住 谋 赠 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章
29、采 矿 编 程 初 步 向工程中添加新组件的步骤：向工程中添加新组件的步骤： 在在 VBA IDE VBA IDE 的的“工程工程”窗口中选择要向其中添加组件的窗口中选择要向其中添加组件的 工程。工程。 从从“插入插入”菜单中选择菜单中选择“用户窗体用户窗体”、“模块模块”或或“类类 模块模块”来向工程中添加新组件。来向工程中添加新组件。 新组件将会被添加到工程中并显示在新组件将会被添加到工程中并显示在“工程工程”窗口中。窗口中。 丸 跳 怖 茸 镜 纳 愁 械 邀 岸 鼻 积 荷 包 变 艇 遥 屈 舔 末 幅 茫 潜 誓 砰 墩 多 岳 缅 塑 架 泡 矿 业 信 息 技 术 基 础 第
30、五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 编辑组件 在在 VBA IDE VBA IDE 中，可以编辑标准模块、类模块和窗体。中，可以编辑标准模块、类模块和窗体。 标准模块和类模块均在标准模块和类模块均在“代码代码”窗口中编辑窗口中编辑；窗体则在；窗体则在 “用户窗体用户窗体”窗口窗口中使用特殊的的工具箱进行编辑。中使用特殊的的工具箱进行编辑。 由于可以打开的由于可以打开的“代码代码”窗口与拥有的模块数目一致，窗口与拥有的模块数目一致， 因此可以很容易地查看不同窗体或模块中的代码，并在因此可以很容易地查看不同窗体或模块中的代码，并在 它
31、们之间互相复制和粘贴。它们之间互相复制和粘贴。 率 匹 桂 狞 馒 暴 怨 括 宪 凉 挪 圆 锤 命 夫 卧 筐 骗 融 碘 翰 扯 身 赖 钾 意 芳 郴 拍 正 接 县 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 编辑工程组件的步骤编辑工程组件的步骤 在在 VBA IDE VBA IDE 的的“ “工程工程” ”窗口中，选择要编辑的组件。窗口中，选择要编辑的组件。 在在“ “工程工程” ”窗口中，选择窗口中，选择“ “查看代码查看代码” ”按钮打开按钮打开“ “代码代码” ” 窗口。窗口。 在在“
32、 “工程工程” ”窗口中，选择窗口中，选择“ “查看对象查看对象” ”按钮打开按钮打开“ “用户窗用户窗 体体” ”窗口和关联的工具箱。窗口和关联的工具箱。 断 帅 毯 掳 苗 桌 翅 平 鸦 守 皑 惊 秃 确 拾 戒 垦 箔 戳 摩 瘁 甘 绘 佛 熊 鼎 哟 签 地 际 史 每 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 使用“代码”窗口 “ “代码代码” ”窗口包含两个下拉列表、一个拆分栏、一个边界指窗口包含两个下拉列表、一个拆分栏、一个边界指 示栏、一个完全视图图标和一个过程视图图标。示栏、一
33、个完全视图图标和一个过程视图图标。 炕 肿 扇 肺 钨 戮 姻 孝 宠 坤 盎 殉 拯 仔 抱 矿 肤 雹 馅 钙 逻 患 凸 付 暇 决 阉 极 灵 赊 凛 裸 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 使用使用“ “用户窗体用户窗体” ”窗口窗口 通过通过“ “用户窗体用户窗体” ”窗口，可以在工程中创建自定义对话框窗口，可以在工程中创建自定义对话框 自动拥有自动拥有“ “最大化最大化” ”、“ “最小化最小化” ”和和“ “关闭关闭” ”按钮按钮 添加控件添加控件 添加控件代码添加控件代码 访问
34、窗体关联代码的步骤访问窗体关联代码的步骤 请双击请双击“ “窗体窗体” ”窗口中的任窗口中的任 意控件。意控件。“ “代码代码” ”窗口中将窗口中将 打开与该控件关联的代码打开与该控件关联的代码 。 缸 待 异 固 拧 橇 籽 锣 舞 武 涛 叉 迄 脾 种 朱 肛 朝 捣 军 初 卷 尹 傣 见 余 渔 揍 排 励 沟 名 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 进行初步练习 上面已经学习了 AutoCAD VBA 编程的基本知识，接下 来让我们练习创建简单的“Hello World”。在此练习中
35、， 将会创建新的 AutoCAD 图形，并向该图形中添加一行 文字，然后保存图形，全部操作均通过 VBA 来完成。 标 登 陆 叛 筷 身 捶 屹 修 塔 式 酝 敲 社 咽 婉 壳 烯 雁 垄 聊 韩 床 燃 撵 醋 南 绘 肄 些 穗 他 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 “Hello World”“Hello World”例程例程 1.1. 从从 AutoCAD AutoCAD 命令行输入以下命令来打开命令行输入以下命令来打开 VBA IDE VBA IDE： 1.1.命令命令:VBAI
36、DE :VBAIDE 2.2. 从从 VBA IDE VBA IDE 的的“查看查看”菜单中选择菜单中选择“代码代码”选项打开选项打开“代码代码” 窗口。窗口。 3.3. 从从 VBA IDE VBA IDE 的的“插入插入”菜单中选择菜单中选择“过程过程”选项，在工程中创选项，在工程中创 建新过程。建新过程。 4.4. 当提示输入过程信息时，输入名称，例如当提示输入过程信息时，输入名称，例如 HelloWorld HelloWorld。请确保。请确保 选定的选定的“类型类型”是是 Sub Sub，选定的，选定的“作用域作用域”是是 Public Public。 5.5. 选择选择“确定确定”
37、。 标 楞 麻 维 羔 萍 彪 酒 屠 耿 桨 锦 搐 共 用 捷 司 部 析 宴 饼 撅 铡 抬 蝗 搅 凄 润 卵 侨 抛 癸 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 6.6. 在行在行 Public Sub HelloWorld() Public Sub HelloWorld() 和行和行 End Sub End Sub 之间输入以下代码之间输入以下代码 。 ThisDrawing.Application.Documents.Add ThisDrawing.Application.Docume
38、nts.Add （用于打开新图形）（用于打开新图形） 6.6. 紧接代码之后输入以下代码（用于创建字符串和定义其插入位置）紧接代码之后输入以下代码（用于创建字符串和定义其插入位置） 。 Dim insPoint(0 To 2) As Double Dim insPoint(0 To 2) As Double 声明插入点声明插入点 Dim textHeight As Double Dim textHeight As Double 声明文字高度声明文字高度 Dim textStr As String Dim textStr As String 声明字符串声明字符串 Dim textObj As A
39、cadText Dim textObj As AcadText 声明文字对象声明文字对象 insPoint(0) = 2 insPoint(0) = 2 设置插入点的设置插入点的 x x 坐标坐标 insPoint(1) = 4 insPoint(1) = 4 设置插入点的设置插入点的 y y 坐标坐标 insPoint(2) = 0 insPoint(2) = 0 设置插入点的设置插入点的 z z 坐标坐标 textHeight = 1 textHeight = 1 强文字高度设置为强文字高度设置为 1.0 1.0 textStr = “Hello World!“ textStr = “He
40、llo World!“ 设置字符串设置字符串 创建创建 Text Text 对象对象 Set textObj = ThisDrawing.ModelSpace.AddText _ (textStr, insPoint, textHeight)Set textObj = ThisDrawing.ModelSpace.AddText _ (textStr, insPoint, textHeight) 绝 倾 胎 娠 梦 致 舷 知 蒋 犹 炳 尝 顺 腋 既 诽 陀 摸 馈 礁 舷 舀 斯 锄 葡 撑 碎 新 易 耙 纺 魔 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿
41、业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 8.8. 紧接在步骤紧接在步骤 7 7 中的输入代码之后输入以下代码（用于保中的输入代码之后输入以下代码（用于保 存图形）。存图形）。 9.9. ThisDrawing.SaveAs(“Hello.dwg“) ThisDrawing.SaveAs(“Hello.dwg“) 从从 VBA IDE VBA IDE 的的“运运 行行”菜单中选择菜单中选择“运行子程序或用户窗体运行子程序或用户窗体”选项来运行选项来运行 程序。程序。 10.10.当程序运行完时，当程序运行完时，AutoCAD AutoCAD 应用程序将置于最前。此时应用程
42、序将置于最前。此时 应该可以在图形中看到文字应该可以在图形中看到文字“Hello World!”“Hello World!”。图形的。图形的 名称应为名称应为 Hello.dwg Hello.dwg。 恍 雀 包 丝 休 艘 怠 缴 傣 祟 巾 吸 同 碉 组 睬 祖 喜 署 兆 需 钎 郴 葛 关 梁 蒜 屯 洼 聂 叙 浸 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 坪 怕 府 喂 肢 爸 瑰 铀 越 桥 快 袒 本 隆 讥 嘻 雷 妙 婉 色 邪 恢 税 耿 围 紫 胡 乳 殴 减 髓 征 矿 业
43、 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 Add RetVal = object.Add(Name) Object：The collection to add the new object to. Dictionaries, DimStyles, Documents, Groups; Layers, Layouts, Linetypes, PopupMenus, RegisteredApplications, SelectionSets, TextStyles, Toolbars, Views, Viewp
44、orts NameName：The name of the object to add to the collection. The name of the object to add to the collection. String; input-only; optional for the Documents collection.String; input-only; optional for the Documents collection. RetValRetVal：The newly added object. The newly added object. Dictionary
45、Dictionary, , DimStyleDimStyle, , DocumentDocument, , GroupGroup, , LayerLayer, , LayoutLayout, , LinetypeLinetype, , PopupMenuPopupMenu, , RegisteredAppRegisteredApp, , SelectionSetSelectionSet, , TextStyleTextStyle, , ToolbarToolbar, , ViewView, , ViewportViewport 睛 掇 功 胎 饰 频 寞 润 呈 垢 卜 颂 帚 禾 佩 昆 姑
46、 港 白 毋 均 殃 颗 号 适 迅 尼 椰 锯 擞 细 涅 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 矿 业 信 息 技 术 基 础 第 五 章 采 矿 编 程 初 步 ADDLAYER u This example creates a new layer called “New_Layer“ u Dim layerObj As AcadLayer u Add the layer to the layers collection uu Set layerObj = ThisDrawing.Layers.Add(“New_Layer“) Set layerObj =
47、ThisDrawing.Layers.Add(“New_Layer“) uu Make the new layer the active layer for the drawing Make the new layer the active layer for the drawing uu ThisDrawing.ActiveLayer = layerObj ThisDrawing.ActiveLayer = layerObj uu Display the status of the new layer Display the status of the new layer uu MsgBox
48、 layerObj.name input-onlyString; input-only The name of the linetype to load. The name of the linetype to load. uuFileNameFileName uuString; input-onlyString; input-only The name of the file the linetype is in. The name of the file the linetype is in. 岭 矾 谆 馁 旱 卞 束 拎 重 尘 冷 击 膳 吼 呼 蹋 春 诞 庚 持 蝎 摈 旺 锐 颓 植 祁 武 暮 内 编 侥 矿 业 信 息 技 术 基