河道断面测量数据处理的小程序.docx

doi: 10． 3969 / j． issn． 1001 － 3 doi: 10． 3969 / j． issn． 1001 － 358X． 2014． 04． 20 河道断面测量数据处理的小程序 王少文1 ，李 鸿2 ( 1. 台州市经纬测绘有限公司，浙江 台州 318000; 2. 临海市测绘院，浙江 台州 318000) 摘要: 文中通过编写 Lisp 小程序和 excel VBA 程序，实现了移动高程点至断面线上; 提取高程点三维 坐标至断面测量坐标成果表的自动处理，方法简便，省时省力，提高了工作效率，对于测量内业人员 有很好的借鉴作用。 关键词: Lisp 小程序; Excel VBA 程序; 河道断面测量数据 中图分类号: P209 文献标识码: B 文章编号: 1001 － 358X( 2014) 04 － 0060 － 03 河道断面测量的方法通常是用 ＲTK 在 河 两 岸 分别测量，河中间用全站仪配合棱镜或 ＲTK 配合测 深仪进行测深。实际测量的断面点并不严格在测线 上，会存在较小的偏移距离，成图时通常采用人工方 法把高程点移动至测线上，工作量较大; 提交成果包 括平面图，断面 图，断面测量坐标成 果 表，断 面 测 量 坐标成果表需要用到断面线上各高程点三维 坐 标， 人工方法获取坐标，工作量巨大。 本文件。 ( 3) 断面测量坐标成果表( excel 文件格式) 调用 文本文件，实现自动计算起点距，坐标分列等功能。 3 程序内容 3． 1 程序 － 移动高程点至断面线上 程序较小，附源码，有注释。 ( defun c: mgc ( / pt sl pd) ; 垂直移动高程点到 断面线上的程序， ; appload 加 载 后，运 行 mgc 命 令 即 可，The pro- gram written by wang shaowen ( setq sl ( entsel \ n 选 择 断 面 线，为 一 直 线: ) ) ( if ( null vlax － dump － object) ( vl － load － com) ) ; 加载 vlax 扩展函数 ( setq sl ( vlax － ename － ＞ vla － object ( car sl) ) ) ; 转换直线为 vla 对象 ( setq en t) ; 对象为 T 值，t 为常量，非 NiL 值 ( while en ; 循环语句 ( while( not( setq en ( entsel \ n 选择高 1 断面测量常规内业处理方法 河道断面测 量的方法通常是用 ＲTK 在 河 两 岸 分别测量，河中间用全站仪配合棱镜或 ＲTK 配合测 深仪进行测 深。技 术 路 线 为: 数 字 化采集断面点三 维坐标，内业整理成图。提取三维坐标，生成断面测 量坐标成果 表。这种测量方法的 内业处理量较大， 主要表现在: ( 1) 移动断面线附近高程点至 断 面 线 上。点 捕 捉不能打开，打开时移动至断面线上的高程点的 Z 值会变成 0 值。 ( 2) 提取断面线上各高程点三维坐标，填写断面 测量成果表。框选高程点获取坐标 效 果 不 佳，因 为 获取的坐标点顺序跟断面测量坐标成果表要求顺序 不一致，框选后的坐标顺序为原坐标文件顺序 或 测 量顺序。 程点 ＜ Esc 退出 ＞ : ) ) ) ) ; 循环选择，过滤空选 ( setq en_data ( entget ( car en) ) ) 元体资料列表 ( setq pt ( cdr ( assoc 10 en_data) ) ) 高程点坐标 pt ; 取得 ; 求得 2 编程思路 ( 1) 实现通过鼠标点击，即可自动移动高程点至 断面线上。点至断面线的最短距离，即 垂 直 点 的 获 取与移动。 ( 2) 获取各断面线上各高程点三维数据，生成文 60 ( setq pd ( vlax － curve － getclosestpointto sl ; 求出直线上距选择点最近的点 ( setq pd1 ( list ( car pd ) ( cadr pd ) ( caddr ; 改变 Z 值，避免 0 值 pt) ) pt) ) ) 图 1 程序主界面图 2 子程序 1 运行界面 第 4 期 王少文等: 河道断面测量数 图 1 程序主界面 图 2 子程序 1 运行界面 第 4 期 王少文等: 河道断面测量数据处理的小程序 2014 年 8 月 ( command move en pt pd1) ( if( and ( = y1 y2) ( = x1 x2)