賈玉琴

摘要：本文主要介紹如何利用Visual LISP編程語言快速、準(zhǔn)確的查找出地形圖編輯整飾過程中的植被符號壓蓋并自動處理，從而提高工作效率，節(jié)約人工成本。

關(guān)鍵詞：Visual LISP；地形圖整飾；

隨著我國國民經(jīng)濟的飛速發(fā)展和城鎮(zhèn)化建設(shè)規(guī)模的日益擴大，近年來，城市測量工作在城市發(fā)展中的作用越來越突出，而地形圖的應(yīng)用也越來越廣泛，地形圖可以精確反映待建區(qū)域的地形地貌，為城市規(guī)劃、工程建設(shè)、政府決策提供詳盡的基礎(chǔ)數(shù)據(jù)。

在日常工作中我們用到的地形圖編輯軟件主要是在AutoCAD 軟件進行二次開發(fā)的軟件，目前行業(yè)使用廣泛、知名度很高的數(shù)字測圖軟件包括南方cass測圖系統(tǒng)，廣州開思測圖系統(tǒng)都是在AutoCAD上面進行二次開發(fā)的，這些軟件滿足了測繪行業(yè)數(shù)字測繪的需要。但在實際生產(chǎn)中，還需要開發(fā)一些有針對性的功能，以提高工作效率，滿足工作需求。比如說在地形圖實際作業(yè)中，地形圖編輯整飾的過程中，植被符號壓蓋一直是一個頭疼的問題，傳統(tǒng)的做法一直是通過人工干預(yù)，逐一找出植被符號壓蓋點，然后在繪圖軟件里面人工手動修改，這樣不僅費時、費力，而且還容易遺漏和重復(fù)工作。故筆者利用Visual LISP編程語言實現(xiàn)了對地形圖編輯過程中植被符號壓蓋問題的自動分析、自動處理，極大的提高了工作效率。

1.Visual LISP程序語言的介紹

Visual LISP是AutoCAD自帶的一個集成的可視化Autolisp開發(fā)環(huán)境，最早的Autolisp程序需要用文本編輯工具編輯，然后在AutoCAD加載調(diào)試，很不方便。從AutoCAD2000開始，有了集成的開發(fā)環(huán)境：Visual LISP。作為開發(fā)工具，Visual LISP提供一個完整的開發(fā)環(huán)境（ide），包括編輯器、調(diào)試器，可以實時調(diào)試Autolisp命令，定義AutoCAD的效率，使用lisp+Open DCL

能夠輕松實現(xiàn)基于CAD平臺的交互輸入與輸出，功能強大，通俗易懂。

2.程序設(shè)計思路

如圖1所示，首先我們定義植被符號的輸入符號最小矩形框加常數(shù)值，通常把它設(shè)置成0.2米，成立個選擇集，選擇植被符號，然后獲取每個植被符號的坐標(biāo)點，根據(jù)坐標(biāo)值分析符號東、東南、南、西南、西、西北、北、東北八個方向的地物，自動實現(xiàn)植被符號移動修改處理，統(tǒng)計修改的壓蓋地物的植被符號個數(shù)。

程序代碼如下：

本文利用簡單易學(xué)的Visual LISP開發(fā)語言直接實現(xiàn)了在地形圖編輯整飾過程中符號壓蓋的問題，極大的提高了地形圖整飾的工作效率，節(jié)約人工成本。

（作者單位：天水三和數(shù)碼測繪院）