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

第4期 矿 山 测 量 NO．4 2014年 8月 MINE SURVEYING Aug．2014 doi：10．3969／j．issn．1001—358X．2014．04．20 河道断面测量数据处理的小程序 王少文 ，李 鸿 (1．台州市经纬测绘有限公司，浙江 台州 318000；2．临海市测绘院，浙江 台州 318000) 摘要：文中通过编写 Lisp小程序和 excelVBA程序 ，实现 了移动高程点至断面线上 ；提取高程点三维 坐标至断面测量坐标成果表的 自动处理 ，方法简便 ，省 时省力，提 高 了工作效率，对于测量 内业人 员 有很好的借鉴作用。 关键词 ：Lisp小程序 ；ExcelVBA程序 ；河道断面测量数据 中图分类号 ：P209 文献标识码 ：B 文章编号 ：1001—358X(2014)04—0060—03 河道断面测量的方法通 常是用 RTK在河两岸 本文件 。 分别测量 ，河 中问用全站仪配合棱镜或 RTK配合测 (3)断面测量坐标成果表 (excel文件格式)调用 深仪进行测深。实际测量的断面点并不严格在测线 文本文件 ，实现 自动计算起点距 ，坐标分列等功能。 上 ，会存在较小的偏移距离 ，成 图时通常采用人工方 3 程序 内容 法把高程点移动至测线上 ，工作量较大 ；提交成果包 括平面图，断面图，断面测量坐标成果表，断面测量 3．1 程序 一移动高程点至断面线上 坐标成果表需要用到断面线上各高程点三维坐标 ， 程序较小 ，附源码 ，有注释。 人工方法获取坐标 ，工作量巨大。 (defune：mgc(／ptslpd)；垂直移动高程点到 断面线上的程序 ， 1 断面测量常规 内业处理方法 ；appload加载后 ，运行 mgc命令 即可 ，Thepro． 河道断面测量 的方法 通常是用 RTK在河 两岸 gram writtenbywangshaowen 分别测量 ，河中间用全站仪配合棱镜或 RTK配合测 (setqsl(entsel”＼n选择 断面线 ，为一 直 深仪进行测深。技术路线为 ：数字化采集 断面点三 线 ：”)) 维坐标 ，内业整理成图。提取三维坐标 ，生成断面测 (if(nullvlax—dump—objeet)(vl—load— 量坐标成果表。这种测量方法 的内业处理量较大 ， eom))；加载 vlax扩展函数 主要表现在 ： (setqsl(vlax—ename一 vla—object(car (1)移动断面线 附近高程点至断面线上 。点捕 s1)))；转换直线为vla对象 捉不能打开，打开时移动至断面线上 的高程 点的 z (setqent)；对象为T值 ，t为常量 ，非 NiL值 值会变成0值。 (whileen；循环语句 (2)提取断面线上各高程点三维坐标 ，填写断面 (while(not(setqen(entsel”＼n选择高 测量成果表。框选高程点获取坐标 效果不佳 ，因为 程点 Esc退出 ：”))) 获取的坐标点顺序跟断面测量坐标成果表要求顺序 )；循环选择 ，过滤