张 亮,魏 苹
(1.华北地质勘查局综合普查大队河北普冠地理信息技术有限公司,河北省 三河 065201;2.安平县云遥信息科技有限公司,河北省 衡水 053600)
在断面图的绘制过程中,为了能够体现出地形的真实形态,需要根据实际带状地形图数据采集断面点。本文介绍了如何利用LISP语言实现断面数据的采集及断面数据文件生成,从而提高断面图的生产质量和效率[1]。
LISP(list processing language)语言是一种计算机的表处理语言,是在人工智能学科领域中广泛采用的一种程序设计语言。AutoLISP语言是在普通的LISP语言基础上,又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言[2]。
本文所述断面数据格式为坐标格式数据,即“点号,,x,y,h”格式,文中从手工展绘高程和图面内插高程两种方法介绍断面数据的采集和输出,从而实现直接根据断面数据方便、快捷地生成断面图[3]。
用户在断面线上根据设定的距离点取断面点位置,根据实际地形确定该断面点高程值,程序在图面会自动展绘高程点。功能实现的代码如下:
执行结果以追加方式生成断面点坐标数据文件,断面点的采集无断面线长短限制,且不受采集时间的影响,可多次进行数据追加[4]。
图面内插高程点的方法是根据断面点周围实际地形情况,利用实地采集高程数据线性内插的方法计算断面点的高程值,根据高程值在图面自动展绘高程点。功能实现代码如下:
执行完毕后,会在断面线上相应的断面点位置展绘插求的高程值,断面数据输出功能实现代码如下:
程序执行结束后会在指定的目录生成断面点坐标数据文件,并在将图面断面线在断面点的位置自动增加节点。
本文利用手动交互展绘高程点自动生成断面数据文件和图面内插高程点生成断面数据文件两种方法实现断面点坐标数据的采集和输出,实际生产中大大提高了生产效率,较常规断面点手动采集成倍缩短了作业时间,并且减少了人为造成的断面点数据错误,既提高了断面图成图质量,又加快了断面图生成的速度。但交互展绘高程点的方法存在计算误差和认为输入错误的可能,程序尚不能自动识别并加以提示。图面内插高程点生成断面数据的方法尚未实现高程点线性内插、断面点数据提取输出、断面线自动加点同时操作完成,需进一步完善以达到更加准确快速生成断面数据的目的。