張 亮，魏 蘋

（1.華北地質(zhì)勘查局綜合普查大隊河北普冠地理信息技術(shù)有限公司，河北省 三河 065201；2.安平縣云遙信息科技有限公司，河北省 衡水 053600）

在斷面圖的繪制過程中，為了能夠體現(xiàn)出地形的真實形態(tài),需要根據(jù)實際帶狀地形圖數(shù)據(jù)采集斷面點。本文介紹了如何利用LISP語言實現(xiàn)斷面數(shù)據(jù)的采集及斷面數(shù)據(jù)文件生成，從而提高斷面圖的生產(chǎn)質(zhì)量和效率[1]。

1 AutoLISP語言概述

LISP(list processing language)語言是一種計算機的表處理語言，是在人工智能學科領(lǐng)域中廣泛采用的一種程序設(shè)計語言。AutoLISP語言是在普通的LISP語言基礎(chǔ)上，又擴充了許多適用于CAD應(yīng)用的功能而形成的一種程序設(shè)計語言[2]。

2 斷面數(shù)據(jù)采集的程序化實現(xiàn)

本文所述斷面數(shù)據(jù)格式為坐標格式數(shù)據(jù)，即“點號,,x,y,h”格式，文中從手工展繪高程和圖面內(nèi)插高程兩種方法介紹斷面數(shù)據(jù)的采集和輸出，從而實現(xiàn)直接根據(jù)斷面數(shù)據(jù)方便、快捷地生成斷面圖[3]。

2.1 交互展繪高程點自動生成斷面數(shù)據(jù)文件

用戶在斷面線上根據(jù)設(shè)定的距離點取斷面點位置，根據(jù)實際地形確定該斷面點高程值，程序在圖面會自動展繪高程點。功能實現(xiàn)的代碼如下：

執(zhí)行結(jié)果以追加方式生成斷面點坐標數(shù)據(jù)文件，斷面點的采集無斷面線長短限制，且不受采集時間的影響，可多次進行數(shù)據(jù)追加[4]。

2.2 圖面內(nèi)插高程點生成斷面數(shù)據(jù)文件

圖面內(nèi)插高程點的方法是根據(jù)斷面點周圍實際地形情況，利用實地采集高程數(shù)據(jù)線性內(nèi)插的方法計算斷面點的高程值，根據(jù)高程值在圖面自動展繪高程點。功能實現(xiàn)代碼如下：

執(zhí)行完畢后，會在斷面線上相應(yīng)的斷面點位置展繪插求的高程值，斷面數(shù)據(jù)輸出功能實現(xiàn)代碼如下：

程序執(zhí)行結(jié)束后會在指定的目錄生成斷面點坐標數(shù)據(jù)文件，并在將圖面斷面線在斷面點的位置自動增加節(jié)點。

3 結(jié)語

本文利用手動交互展繪高程點自動生成斷面數(shù)據(jù)文件和圖面內(nèi)插高程點生成斷面數(shù)據(jù)文件兩種方法實現(xiàn)斷面點坐標數(shù)據(jù)的采集和輸出，實際生產(chǎn)中大大提高了生產(chǎn)效率，較常規(guī)斷面點手動采集成倍縮短了作業(yè)時間，并且減少了人為造成的斷面點數(shù)據(jù)錯誤，既提高了斷面圖成圖質(zhì)量，又加快了斷面圖生成的速度。但交互展繪高程點的方法存在計算誤差和認為輸入錯誤的可能，程序尚不能自動識別并加以提示。圖面內(nèi)插高程點生成斷面數(shù)據(jù)的方法尚未實現(xiàn)高程點線性內(nèi)插、斷面點數(shù)據(jù)提取輸出、斷面線自動加點同時操作完成，需進一步完善以達到更加準確快速生成斷面數(shù)據(jù)的目的。