張 亮,魏 蘋
(1.華北地質勘查局綜合普查大隊河北普冠地理信息技術有限公司,河北省 三河 065201;2.安平縣云遙信息科技有限公司,河北省 衡水 053600)
在斷面圖的繪制過程中,為了能夠體現出地形的真實形態,需要根據實際帶狀地形圖數據采集斷面點。本文介紹了如何利用LISP語言實現斷面數據的采集及斷面數據文件生成,從而提高斷面圖的生產質量和效率[1]。
LISP(list processing language)語言是一種計算機的表處理語言,是在人工智能學科領域中廣泛采用的一種程序設計語言。AutoLISP語言是在普通的LISP語言基礎上,又擴充了許多適用于CAD應用的功能而形成的一種程序設計語言[2]。
本文所述斷面數據格式為坐標格式數據,即“點號,,x,y,h”格式,文中從手工展繪高程和圖面內插高程兩種方法介紹斷面數據的采集和輸出,從而實現直接根據斷面數據方便、快捷地生成斷面圖[3]。
用戶在斷面線上根據設定的距離點取斷面點位置,根據實際地形確定該斷面點高程值,程序在圖面會自動展繪高程點。功能實現的代碼如下:


執行結果以追加方式生成斷面點坐標數據文件,斷面點的采集無斷面線長短限制,且不受采集時間的影響,可多次進行數據追加[4]。
圖面內插高程點的方法是根據斷面點周圍實際地形情況,利用實地采集高程數據線性內插的方法計算斷面點的高程值,根據高程值在圖面自動展繪高程點。功能實現代碼如下:


執行完畢后,會在斷面線上相應的斷面點位置展繪插求的高程值,斷面數據輸出功能實現代碼如下:

程序執行結束后會在指定的目錄生成斷面點坐標數據文件,并在將圖面斷面線在斷面點的位置自動增加節點。
本文利用手動交互展繪高程點自動生成斷面數據文件和圖面內插高程點生成斷面數據文件兩種方法實現斷面點坐標數據的采集和輸出,實際生產中大大提高了生產效率,較常規斷面點手動采集成倍縮短了作業時間,并且減少了人為造成的斷面點數據錯誤,既提高了斷面圖成圖質量,又加快了斷面圖生成的速度。但交互展繪高程點的方法存在計算誤差和認為輸入錯誤的可能,程序尚不能自動識別并加以提示。圖面內插高程點生成斷面數據的方法尚未實現高程點線性內插、斷面點數據提取輸出、斷面線自動加點同時操作完成,需進一步完善以達到更加準確快速生成斷面數據的目的。