張 亮，魏 蘋

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

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

1 AutoLISP語言概述

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

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

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

2.1 交互展繪高程點(diǎn)自動(dòng)生成斷面數(shù)據(jù)文件

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

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

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

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

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

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

3 結(jié)語

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