VBA编程实现批量对等高线赋值
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ａ ｓｇ ｓ ｉｎｍｅ ，ｉ ｎｔ ｍｐｒｖ ａ ｉ ｇ ｅｆｃ ｅ ｃ ． ｏ ｅ ｍ ｐｐ ｎ ｆ ｉ ｎ ｙ ｉ
Ｋｅ ｒ ｓ ｃ ｎ ｏ ｒ ｉ ｅ ａ ｃ ｓ ｉｎ ｎ ｙ ｗｏ ｄ ： ｏ ｔｕ ｎ ｓｂ ｔ ｈ ａ ｓｇ ｍｅ ｔ ｌ
１ 提 出问题
在实 际工作 中经 常对老 图纸进行矢 量化 ，从 而进行 描图 工作 。描 图描 图时 ，用多线段标 示等高 线。多线段 上有很 多 特性 值 ，其 中一 项重要 的特性 就是标高 ，这个标 高就是 等高 线 的高程值 。实际描 图工作 中，往往把所有等 高程描好之后 ， 多线 段的标高都 为零 ，再对 多线段 的标 高进行赋值 ，一 条条
Ｉ ｒ． ｆＥｒ Ｎｕｍｂｅ ｒ： － ４５ ０９ ２１ ３２ ２８ Ｔｈｅ ｒ ． ｅ ｒ ｎ Ｅｒ Ｃｌａ ｄ Ｓｔｒ０ ＝ ｄ Ｓｔｒ ｂｌ ａ ｔ ｂｌ ａ ｔ
多线段赋值很繁琐 ，效率低下且易出错 。
ｄｌｔ ｂＳｅ ｐ＝Ｔ ｉ ｒｗｉｇ ｔｉ ．ｅＲ ａ Ｃ 请输 入增 量 ｈｓ ａ ｎ ．ｉ ｔ Ｇ ｔｅｌ Ｄ Ｕ ｌｙ 高程值 （）：） １ ”
ｄ ｌｔｐ＝ Ｖａ Ｕｓｒ ｏｍ２ＴｘＤ．ｅ ｔ ｂＳｅ ｌ（ ｅＦ ｒ ． ｔ Ｔ ｘ）
Ｉ ｒ． ｆＥｒ Ｎｕｍｂｅ ｒ＝ － ４５ ０９ ２１ ３２ ２８ Ｔｈｅ Ｔ． ｅ ｒ ｎ ＥＩ Ｃｌａ Ｄｉ ｉ ｄ ｎｅ ｒ ｍ ｎ ｅｘ ＡｓＩ ｔｇｅ
ｌｏ ： ｏ ｐｌ
Ｖ Ａ 即 Ｍｉ ｏｏ ｆｃ 的 Ｖ ｓａ Ｂ ｓ ｒ ｐ ｌ ａ ｏｓ Ｂ ｃ ｓｆ Ｏ ｉ ｒ ｔ ｅ中 ｉ ｌ ａｉ ｆ ｐｉ ｔｎ ， ｕ ｃｏＡ ｃｉ
选择线段经过 的多段线 ，构成选择集
Ｏｎ Ｅｒ ｏ ｒ ｒＲｅ ｕｍｅ Ｎｅ ｓ ｘｔ
它被集成到 Ａ ｔＣ Ｄ ２ ０ ｕｏ Ａ ０ ０中。Ｖ Ａ为开发者提供 了一种新的 Ｂ 选择 ，也 为用户访 问 Ａ ｔＣ Ｄ ２０ ｕｏ Ａ ０ ０中丰富的技 术框架打开一 条新 的通道 。Ｖ Ａ和 Ａ ｔＣ Ｄ ２０ Ｂ ｕ Ａ ０ ０中强大 的 Ａ ｔ ｅ 自动化 ｏ ｃｉ Ｘ ｖ 对象模型的结合 ，代表 了一种新型 的定 制 Ａ ｔＣ Ｄ的模 式构 ｕｏ Ａ 架 。通 过 Ｖ Ａ，可 以操作 Ａ ｔＣ Ｄ，控 制 Ａ ｔ ｅ Ｂ ｕｏ Ａ ｃｉ Ｘ和其 他一 ｖ 些应用程序 ，使之相互 之间发生互易活动。 ＶＢ Ａ以简洁 、易俗易懂赢得了广大科技工作者 的喜爱 ，为 此 ，本人选择了 Ｃ Ｄ提供 的 Ｖ Ａ方法实现多条等高线赋值 。 Ａ Ｂ
Ｖ Ａ、Ｏ ｊｃ Ｘ和．Ｅ Ｐ 等 。其 中，Ｖ ｓａＬｓ Ｖ Ａ较 Ｂ ｂｅｔ ＡＲ Ｎ ＴＡ Ｉ ｉ ｌｉ ｕ ｐ与 Ｂ
为简 单 ，特别是 Ｖ Ａ，使用方 便且开发速度 较快 ，但其 功能 Ｂ
相 比 Ｏ ｊｃ Ｒ ｂｅｔ Ｘ有所 不足 ，尤 其是对 面向对象 的功能支 持不 Ａ 好。而 Ｏ ｊｃＡ Ｘ基 于 Ｖ ｂｅｔ Ｒ Ｃ平台 ，在 ｃ ＋ ＋ 的支持下 ，其功能非
Ａｂ ｔ ａ ｔ ｔ ｒ ｕ ｈ ｐ ｏ ｒ ｍｍｉｇ ｏ ｌ ｐ ｅ ｓ ｇ ｅ ｔｅｅ ａ ｉｎ ａ ｓｇ ｍｅ ｔ ｔ ｕ ｅ ｌ ｉ ｇ ｔ ｅ ｂ ｔｈ ｏ ｈ ｏ ｔ ｕ ｉｅ ｆ ｓｒ ｃ ： ｈｏ ｇ ｒｇａ ｎ ｎ ｍｕ ｔ ｌ ｅ ｍ ｎ ｌｖ ｔ ｓ ｉｎ ｎ ， ｈ ｓ ｒ ａｉ ｎ ｈ ａ ｃ ｎ ｔ ｅ ｃ ｎ ｏ ｒ ｌ ｓ ｏ ｉ ｏ ｚ ｎ
Ｕｓ ｒ ｒ２Ｔ ｔ．ｅ ｔ ｂＳａｔ ｌｆ ｅＦ ｒ ．ｘＳＴ ｘ）
ｄ ｌｔｒ ＝Ｔ ｉ ｒｗ ｎ ．ｔｉ ．ｅＲ ａ ｖ Ｃ Ｌ ｂＳａｔ ｈｓ ａ ｉｇＵ ｌｙＧ ｔ ｅｌ（ｂ ｒｆ＋ ”请 Ｄ ｉｔ 输入起始高程值 （）： ） ０ ”
２ 解 决方 法
通过编程办法 实现批量等高线赋值 。
２１ 编 程 软 件 选 择 ． 当 前 Ａ ｔＣ Ｄ 的 二 次 开 发 工 具 主 要 有 ： Ｖｓａ ｉ 、 ｕ Ａ ｏ ｉ ｌｓ ｕＬｐ
接受输入起止点
ｄｂ Ｓｔｒ ｌ ａ ｔ＝ ｄ ＳｔｒＯ ｂｌ ａｔ Ｏ ｎ ＥｒｏｒＧｏ ｉＬａ ｌ ｒ Ｔｏ Ｅｘ ｔ ｂｅ Ｄ ｉ ｔ ｒａ ．Ｐｎ ２ Ａ ｓＶａ ｉｎｔ ｍ Ｐｎ ｌ Ａｓ Ｖａ ｉｎｔ ｔ ｒａ
电脑 编 程 技 巧 与 维 护
Ｖ Ａ编程实现 批量对等 高线赋值 Ｂ
邓 世 学
（ 四川省西昌市重钢西 昌矿业公 司，四川 西 昌 ６ ５４ ） １０ １ 摘 要 ：通过 Ｖ Ａ编程对 多线段 的标 高进行赋值 ，从 而实现批量对等高线赋值 ，提 高作 图效率。 Ｂ
关 键 词 ：等 高线 批 量赋 值
ＶＢＡ ｏ ｒ ｍ ｍ ｉ ｇ Ｒｅ ｌｚｎｇ Ｂａ ｃ ｎ ｔ ｎ ｏ ｎｅ ｆＡｓ ｉ ｎｍ ｅ Ｐｒ ｇ ａ ｎ ａｉ ｉ ｔ ｈ ｏ ｈｅ Ｃｏ ｔ ｕｒ Ｌｉ ｓｏ ｓｇ ｎｔ
ＤＥＮＧ ｉ ｕｅ Ｓｈ ｘ
（ｉ ｕｎＸｃ ａｇｓ ｅ Ｘｉ ａｇｍｉｉｇｃ ｍ ａｙ， ｉ ｕｎＸｉ ａｇ６ ５ ４ ） Ｓｃ ａ ｉ ｎ ｔ ｌ ｃ ｎ ｎ ｏ ｐ ｎ Ｓｃ ａ ｃ ｎ １０ １ ｈ ｈ ｅ ｈ ｎ ｈ ｈ
点 ： ” ）
Ｐｔ ｎｌ＝Ｔ ｉ ａ ｉｇ ｉｔ． ｔｏｎ ， ｈｓ ｗｎ ． ｌｙ Ｐ ｉ Ｄｒ Ｕｔ Ｇｅ ｉ ｔ（ ”请 输 入 起 Ｐｔ ｎ ２＝Ｔ ｉ ｒｗｉｇ ｉｉ ．ｅＰ ｉｔ（ ｎｌ ”请 输入 ｈｓ ａ ｎ ． ｌｙ ｔｏｎ Ｐ ｔ， Ｄ Ｕｔ ｔ Ｇ
终 点 ：） ”
常强 大 ，可 以很 好地运用各 种面 向对象 技术 ，但 其缺点 是发 开速度 比较慢 ，同时对 开发人员 的能力要求较高 。
Ｋｅ ｒ ｓ ｃ ｎ ｏ ｒ ｉ ｅ ａ ｃ ｓ ｉｎ ｎ ｙ ｗｏ ｄ ： ｏ ｔｕ ｎ ｓｂ ｔ ｈ ａ ｓｇ ｍｅ ｔ ｌ
１ 提 出问题
在实 际工作 中经 常对老 图纸进行矢 量化 ，从 而进行 描图 工作 。描 图描 图时 ，用多线段标 示等高 线。多线段 上有很 多 特性 值 ，其 中一 项重要 的特性 就是标高 ，这个标 高就是 等高 线 的高程值 。实际描 图工作 中，往往把所有等 高程描好之后 ， 多线 段的标高都 为零 ，再对 多线段 的标 高进行赋值 ，一 条条
Ｉ ｒ． ｆＥｒ Ｎｕｍｂｅ ｒ： － ４５ ０９ ２１ ３２ ２８ Ｔｈｅ ｒ ． ｅ ｒ ｎ Ｅｒ Ｃｌａ ｄ Ｓｔｒ０ ＝ ｄ Ｓｔｒ ｂｌ ａ ｔ ｂｌ ａ ｔ
多线段赋值很繁琐 ，效率低下且易出错 。
ｄｌｔ ｂＳｅ ｐ＝Ｔ ｉ ｒｗｉｇ ｔｉ ．ｅＲ ａ Ｃ 请输 入增 量 ｈｓ ａ ｎ ．ｉ ｔ Ｇ ｔｅｌ Ｄ Ｕ ｌｙ 高程值 （）：） １ ”
ｄ ｌｔｐ＝ Ｖａ Ｕｓｒ ｏｍ２ＴｘＤ．ｅ ｔ ｂＳｅ ｌ（ ｅＦ ｒ ． ｔ Ｔ ｘ）
Ｉ ｒ． ｆＥｒ Ｎｕｍｂｅ ｒ＝ － ４５ ０９ ２１ ３２ ２８ Ｔｈｅ Ｔ． ｅ ｒ ｎ ＥＩ Ｃｌａ Ｄｉ ｉ ｄ ｎｅ ｒ ｍ ｎ ｅｘ ＡｓＩ ｔｇｅ
ｌｏ ： ｏ ｐｌ
Ｖ Ａ 即 Ｍｉ ｏｏ ｆｃ 的 Ｖ ｓａ Ｂ ｓ ｒ ｐ ｌ ａ ｏｓ Ｂ ｃ ｓｆ Ｏ ｉ ｒ ｔ ｅ中 ｉ ｌ ａｉ ｆ ｐｉ ｔｎ ， ｕ ｃｏＡ ｃｉ
选择线段经过 的多段线 ，构成选择集
Ｏｎ Ｅｒ ｏ ｒ ｒＲｅ ｕｍｅ Ｎｅ ｓ ｘｔ
它被集成到 Ａ ｔＣ Ｄ ２ ０ ｕｏ Ａ ０ ０中。Ｖ Ａ为开发者提供 了一种新的 Ｂ 选择 ，也 为用户访 问 Ａ ｔＣ Ｄ ２０ ｕｏ Ａ ０ ０中丰富的技 术框架打开一 条新 的通道 。Ｖ Ａ和 Ａ ｔＣ Ｄ ２０ Ｂ ｕ Ａ ０ ０中强大 的 Ａ ｔ ｅ 自动化 ｏ ｃｉ Ｘ ｖ 对象模型的结合 ，代表 了一种新型 的定 制 Ａ ｔＣ Ｄ的模 式构 ｕｏ Ａ 架 。通 过 Ｖ Ａ，可 以操作 Ａ ｔＣ Ｄ，控 制 Ａ ｔ ｅ Ｂ ｕｏ Ａ ｃｉ Ｘ和其 他一 ｖ 些应用程序 ，使之相互 之间发生互易活动。 ＶＢ Ａ以简洁 、易俗易懂赢得了广大科技工作者 的喜爱 ，为 此 ，本人选择了 Ｃ Ｄ提供 的 Ｖ Ａ方法实现多条等高线赋值 。 Ａ Ｂ
Ｖ Ａ、Ｏ ｊｃ Ｘ和．Ｅ Ｐ 等 。其 中，Ｖ ｓａＬｓ Ｖ Ａ较 Ｂ ｂｅｔ ＡＲ Ｎ ＴＡ Ｉ ｉ ｌｉ ｕ ｐ与 Ｂ
为简 单 ，特别是 Ｖ Ａ，使用方 便且开发速度 较快 ，但其 功能 Ｂ
相 比 Ｏ ｊｃ Ｒ ｂｅｔ Ｘ有所 不足 ，尤 其是对 面向对象 的功能支 持不 Ａ 好。而 Ｏ ｊｃＡ Ｘ基 于 Ｖ ｂｅｔ Ｒ Ｃ平台 ，在 ｃ ＋ ＋ 的支持下 ，其功能非
Ａｂ ｔ ａ ｔ ｔ ｒ ｕ ｈ ｐ ｏ ｒ ｍｍｉｇ ｏ ｌ ｐ ｅ ｓ ｇ ｅ ｔｅｅ ａ ｉｎ ａ ｓｇ ｍｅ ｔ ｔ ｕ ｅ ｌ ｉ ｇ ｔ ｅ ｂ ｔｈ ｏ ｈ ｏ ｔ ｕ ｉｅ ｆ ｓｒ ｃ ： ｈｏ ｇ ｒｇａ ｎ ｎ ｍｕ ｔ ｌ ｅ ｍ ｎ ｌｖ ｔ ｓ ｉｎ ｎ ， ｈ ｓ ｒ ａｉ ｎ ｈ ａ ｃ ｎ ｔ ｅ ｃ ｎ ｏ ｒ ｌ ｓ ｏ ｉ ｏ ｚ ｎ
Ｕｓ ｒ ｒ２Ｔ ｔ．ｅ ｔ ｂＳａｔ ｌｆ ｅＦ ｒ ．ｘＳＴ ｘ）
ｄ ｌｔｒ ＝Ｔ ｉ ｒｗ ｎ ．ｔｉ ．ｅＲ ａ ｖ Ｃ Ｌ ｂＳａｔ ｈｓ ａ ｉｇＵ ｌｙＧ ｔ ｅｌ（ｂ ｒｆ＋ ”请 Ｄ ｉｔ 输入起始高程值 （）： ） ０ ”
２ 解 决方 法
通过编程办法 实现批量等高线赋值 。
２１ 编 程 软 件 选 择 ． 当 前 Ａ ｔＣ Ｄ 的 二 次 开 发 工 具 主 要 有 ： Ｖｓａ ｉ 、 ｕ Ａ ｏ ｉ ｌｓ ｕＬｐ
接受输入起止点
ｄｂ Ｓｔｒ ｌ ａ ｔ＝ ｄ ＳｔｒＯ ｂｌ ａｔ Ｏ ｎ ＥｒｏｒＧｏ ｉＬａ ｌ ｒ Ｔｏ Ｅｘ ｔ ｂｅ Ｄ ｉ ｔ ｒａ ．Ｐｎ ２ Ａ ｓＶａ ｉｎｔ ｍ Ｐｎ ｌ Ａｓ Ｖａ ｉｎｔ ｔ ｒａ
电脑 编 程 技 巧 与 维 护
Ｖ Ａ编程实现 批量对等 高线赋值 Ｂ
邓 世 学
（ 四川省西昌市重钢西 昌矿业公 司，四川 西 昌 ６ ５４ ） １０ １ 摘 要 ：通过 Ｖ Ａ编程对 多线段 的标 高进行赋值 ，从 而实现批量对等高线赋值 ，提 高作 图效率。 Ｂ
关 键 词 ：等 高线 批 量赋 值
ＶＢＡ ｏ ｒ ｍ ｍ ｉ ｇ Ｒｅ ｌｚｎｇ Ｂａ ｃ ｎ ｔ ｎ ｏ ｎｅ ｆＡｓ ｉ ｎｍ ｅ Ｐｒ ｇ ａ ｎ ａｉ ｉ ｔ ｈ ｏ ｈｅ Ｃｏ ｔ ｕｒ Ｌｉ ｓｏ ｓｇ ｎｔ
ＤＥＮＧ ｉ ｕｅ Ｓｈ ｘ
（ｉ ｕｎＸｃ ａｇｓ ｅ Ｘｉ ａｇｍｉｉｇｃ ｍ ａｙ， ｉ ｕｎＸｉ ａｇ６ ５ ４ ） Ｓｃ ａ ｉ ｎ ｔ ｌ ｃ ｎ ｎ ｏ ｐ ｎ Ｓｃ ａ ｃ ｎ １０ １ ｈ ｈ ｅ ｈ ｎ ｈ ｈ
点 ： ” ）
Ｐｔ ｎｌ＝Ｔ ｉ ａ ｉｇ ｉｔ． ｔｏｎ ， ｈｓ ｗｎ ． ｌｙ Ｐ ｉ Ｄｒ Ｕｔ Ｇｅ ｉ ｔ（ ”请 输 入 起 Ｐｔ ｎ ２＝Ｔ ｉ ｒｗｉｇ ｉｉ ．ｅＰ ｉｔ（ ｎｌ ”请 输入 ｈｓ ａ ｎ ． ｌｙ ｔｏｎ Ｐ ｔ， Ｄ Ｕｔ ｔ Ｇ
终 点 ：） ”
常强 大 ，可 以很 好地运用各 种面 向对象 技术 ，但 其缺点 是发 开速度 比较慢 ，同时对 开发人员 的能力要求较高 。