利用VBA生成线路断面的方法探讨

Байду номын сангаас科
张京海
科 技论 坛 Ｉ Ｊ Ｉ
利用 Ｖ Ａ 生成 线路 断 面的方法探讨 Ｂ
贾 自甜
（ 新疆 电力设 计院， 疆 鸟鲁木齐 ８ ００ ） 新 ３ ０ ２
摘 要： 本文介绍 了纵横断面测量工作 的一种新 方法， 通过适 当加密地形特征点 ， 利用 Ｖ Ａ编程方法在数字化地形图上 生成纵横断面及其文 Ｂ 本文件 ， 高效而灵活地完成纵横 断面测量工 作。 ＝ 关键词 ： 纵横断面； Ａ： ＶＢ 方法 称。可 以算是 Ｖ ｕｌ ａｉ Ｖ ） 的子集 ， ｓ ｅ ｉ ａ Ｂ ｓ （ Ｂ 语言 这 ｖａｏｄｒａｈ ｍ） （ ｒ － “ ｖａ ｍ” ｂ ａ ”ｏｄｄ ； ｅ － ｄ －ｂ ｎ ｌ ｏ ｍ￣ 随着科学技术 的不 断发展 ， 仪器新 设备 里就介 绍一下 Ｖ Ａ编制横断面生成程序 的思 ｒ ａ ｈ ｍ” 新 Ｂ ｏｄ ｄ ） ； 不断涌现。 测绘行业从普通水 准仪 、 经纬仪到电 路。 … … ： 子水准仪 、全站仪 、 Ｔ Ｒ Ｋ等新设备大大提 高了 ２ ． 编制 “ ．１ １ 生成 横断 面线的子程序 ” 有 （ 并将文件另存为 Ｍ Ａ Ａ ．Ｎ 。 Ｙ Ｃ ＤＭ Ｕ 我们的工作效率。 根据多年的实践 ， 本文通过 自 Ｃ Ｓ 的用 户可 以直接使用 Ｃ Ｓ ＡＳ Ａ Ｓ中的程序 生 ｂ ．打 开 Ａ ｔ Ａ ２０ ， 命 令 行 输 入 ： ｕ Ｃ Ｄ ００ 在 ｏ 己多年 的实 践和摸索提 出了一种 新的方法 ． 极 成 ）主要绘 出横 断面线并标 出里程桩号 ， 为 ｍ ｎ 。 ， 作 ｅｕ 并加载 Ｍ Ａ Ａ ． Ｎ Ｙ Ｃ ＤＭ Ｕ菜单文件。 此时 ， 大提高 了纵横断面测量的效率 。我们的新方法 下一 阶段 选 取特 征点 的基础 ：选取 线路 中心 Ａ ｔＣ Ｄ ０ ０中菜单 已增加了一个菜单 （ｏｄ ｕｏ Ａ ２ ０ ｒａ — 就是在带状数字化地形测量 时，在线路纵横断 线一 读取中心线 的信息一 生成横断面线一 标注 ｈ ｍ） ｄ 。我们点击 此菜单下任一下拉菜单 项 。 即 面测量范围内 ，适 当地加密一部分地形特征 点 横断面里程桩号 。 可运行相应的程序 。由于这里应用的程序只有 形成数字化地形 图 ，再利用 自编的程序在数 字 ２１ 编制“ ．２ ． 判断任意点在线路上 的桩 号与 个 ， 可以在 Ａ Ａ ． Ｎ 也 Ｃ ＤＭ Ｕ中原有菜单上增加 化地形 图上生成纵横 断面 。 中心线距离 的子程序” 主要输出点的桩号 及点 行 ： ， １测量作业 过程及注意事项 距中心线的距离 ：选取点一判断并计 算点 在线 Ｉ ｏｄ ｄ 【 Ｄ ｒ ｈｍ 横断面生成 程序（ ａｈ ｍ］ ａ ｒ ｄｄ ） ｏ 作业过 程实 际上就是 线路带状 地形测 量 路上的桩号—计算此桩号 中桩的坐标一计算 点 ｃ （ｏ ｍａｄ“ｂｕｌａ ” ｒａｈ ｍ”；￣ｍ ＾ ｃｍ ｎ ｖ ａｎｏｄ “ｏｄ ｄ ）（ｏ ｍ￣ａ ｃ 的过程 ， 一般包括以下几个步骤 ： 到中心线 的距离 。 ｖａｏｄ ｒａｈ ｍ）（０ Ⅲ叽ｄ “ｖ ａｕ …‘ａ — ｂｌａ ” ｄ ｄ ；ｃｍ ｏ － ｂｒｎ ｒ ｄ ｏ １１接受任务 ． ２１ 编制“ ．３ ． 计算任意点在一个或 多个高程 ｈ ｍ” ｄ ） １ ． ２收集测 区资料 点下高程 的子程序”选取点—选取一个或 多个 ： 最后 ， 保存在 原文件下 ， 下次打 开直接调 １ 现场踏勘 、确定测量方案并埋设控 制 高程点一生成多个高程点 的三角网或三角形一 用 ， － ３ 即可运行相应的程序 。 当我们编制的程序较 点 判断点在三角 网哪个三角形 中或在单个三 角形 多时 ， 我们不可能将所有的应用程序全部安排 １４测区控 制测量 ． 中、 、 上 外一计算点的高程 。 在主菜单上 ， 为此我们还应该定制子菜单 。 具体 １５外业地形测量 ． ２１ 编制主程序 ： ．４ ． ①选取线路 中心线—② 操作大 家参照 Ａ Ａ ．ｎ 菜单文件就可 以完成 Ｃ Ｄｍ ｕ １ 内业带 状数字化地形图成图 ． ６ 调用 “ 生成横断面线的子程序” —③新建并打开 了 。 ｌ 内业生成纵横 断面 Ｉ ７ 文本文 件—④输入桩号并写入文件中—⑤在横 ２． ．２在工具栏中加人 自定义命令按钮执 ２ １ 检查 、 收并交付最终测绘成果 。 ． ８ 验 断面上按要求选取特征点—⑥调用 “ 判断任意 行 ｖＢ Ａ程序 其中 ５ ７ 、 步骤需要重点说明一下 ， 线路带 点在线路上的桩号与 中心线距离 的子程 序” 一 打开 Ｃ Ｄ， Ａ 在工具栏上右键 点击 ， 击 出 点 状地形测量时 ， 我们惟一需要注意的是 ， 在纵横 ⑦ 根据需要 选取 一个或 多个 高程点 一⑧ 调用 现的菜单 里最底的“ 自定义（ ）按钮 ， ｃ” 出现“ 自 断面钡 量 范围内 。 于坡 、 沟 、 、 ４ 对 坎、 塘 土包等地 “ 算任意点在一个或 多个高程点下 高程的子 定义 ” 计 对话框 ， 点击“ 命令” 栏下“ 用户 自定义” 按 形变化处适当的加密高程点 。例如坡要测 出坡 程序” —⑨将点 到中心线 的距离与 点的高程写 钮 ， 将右侧出现 的“ 用户定义 的按钮 ” 拖至你常 顶及 坡脚 的位 置并沿 着坡顶 和坡脚 每 隔 ２ ｍ 人文件 中一 ⑩在 ⑤ 一 上循 环直 至本桩 号结 用的工具栏里。这 时工具栏里将 出现一个空 白 ０ ⑨ 左右测 一些 高程点 ， 、 坎 沟也是 如此 ， 土包要测 束一 ｌ 在④ 一 上循环直至 完成所有横 断面 按钮 ， ｌ ④ 右键点击空 白按钮 ， 在出现的菜单下 ， 点 出土包的范围 ， 测出土包上和土包下 的高程 ， 结束一 ｌ 关闭文本文件一１ 结束程序 。 并 ２ ３ 击 最底下 的“ 特性 （ ” 钮 。在 出现的 “ ０） 按 自定 塘必须测出塘底的高程 ，其他地形变化处可根 ２２调 用执行 Ｖ Ａ程序 生成横 断面文件 义” ． Ｂ 对话框中编辑按钮图像并保存图像 ， “ 在 如 据情况适当加密一些 高程 。其他方面以及纵横 Ｖ Ａ程序编制完成后 ，以 Ａ Ａ ２ ０ Ｂ Ｃ Ｄ ００为例 ， 首 此按钮关联 的宏 （ ：下的空 白 加入如下代 Ｍ）” 处 面测量 范围外按照正常地形测量要求 即可 ， 如 先将其存 人 “ Ｗｒｇａ Ｆｌｓ Ｃ Ｄ ０ ０” ， 码 ： Ｃ： ｏｒ ｍ ｉ Ｘ Ａ ２ ０ ＼下 ｅＡ 果大家严格按照地形测量规范来测的话 ，加 密 然后菜单或工具栏按钮 即可调用。 （ ｍ ｎ “ｂ ｕｌａ ｒａｈ ｍ” ｃ ｍａｄ ｖａｎｏｄ ｏｄ ｄ ）； ｏ 的工程量微乎其微 ， 基本可 以不加考虑 。 ２２１编译 生成 Ｃ ．． ＡＤ菜单 调用执行 Ｖ Ａ Ｂ （ｏ ￣ｄ “ｂ ｏｄ ｏｄ ｄ ； ｃｍ ａ ｄ ｃｍｍ ｖａ ａ ”ｒａｈ ｍ】“ｏ ｍ ｎ ” ｌ （ ｕ Ｃ Ｄ中菜单文件 的定制有两种方法 。 ｖ ＆ Ｌ ” ｏｄ ｄ ｏ ｂ ｒｎ ｒａ ｈ ｍ“） ｌ ； 根据‘ 工程测量规范》 相关规定 ， 数字化 地 程序 Ａ ｔ Ａ 形 图的高程精度要求低 于纵横 断面高程精度 ， 种是在 Ａｔ Ａ ｕ Ｃ Ｄ的标 准 菜单 文 件 （ Ｃ Ｄ ｏ ＡＡ ． 修改 “ 名称 ” “ 明” 完成后 ， 和 说 ， 点击“ 应用 但这可以由先进的仪器设备来解决。 我们知道 ， ＭＮ Ｕ或 Ａ Ａ ． Ｓ Ｃ ＤＭＮ ）中增加用 户定制 的新 内 （ ”关 闭对话框。这时 ， Ａ） ， 你就可以使用你新加 在高 程控制 点覆盖 的区域 内 ， Ｔ Ｒ Ｋ通过 拟合 ， 容， 一种是建立 自己的菜单文件。 考虑到实 际的 入的按钮来执行 Ｖ Ａ程序 了。 Ｂ ２． ．３利用横断面文本文件编制纵断面文 ２ 测量 出的高程误差 一般可 以控制在 ２ｍ左右 ， 情况 和操作 的方便 ， ｅ 使用第一种方法 。假设 ： 线 甚至可 以达到 四等水准测量 的精度 。 Ｒ Ｋ测 路横 断面 程 序 的程 序 文 件名 与 模 块 名均 为 件 由 Ｔ 横断面文件的格式如下 ： 出的高程完全满足纵横 断面测 量规范要求 ， 当 ｒ ｄ ｄ 其菜单定制的具体方法如下 ： ｏ ｈ ｍ， ａ