利用AutoCAD LISP實(shí)現(xiàn)地形圖中高程注記的自動(dòng)移動(dòng)

鄭州宏圖信息技術(shù)咨詢(xún)有限公司 王青松 李京衛(wèi)

利用AutoCAD LISP實(shí)現(xiàn)地形圖中高程注記的自動(dòng)移動(dòng)

鄭州宏圖信息技術(shù)咨詢(xún)有限公司 王青松 李京衛(wèi)

目前，在我國(guó)的測(cè)繪軟件市場(chǎng)中，南方測(cè)繪公司的CASS地形地籍成圖軟件是應(yīng)用比較廣泛的一款軟件。然而，在利用CASS展繪高程點(diǎn)時(shí)，高程注記總是顯示在相對(duì)該高程點(diǎn)的固定位置上，這樣做難免會(huì)出現(xiàn)高程注記遮蓋其他地物的情況。為了保證圖面的美觀，通常的做法是在編輯地形圖時(shí)對(duì)遮蓋其他地物的高程注記進(jìn)行手工移動(dòng)。這樣不僅費(fèi)時(shí)費(fèi)力，而且容易出現(xiàn)錯(cuò)誤。如果利用計(jì)算機(jī)編程實(shí)現(xiàn)高程注記的自動(dòng)移動(dòng)，就可以極大地提高地形圖編輯的工作效率。

一、AutoCAD LISP編程語(yǔ)言

AutoCAD LISP編程語(yǔ)言是Autodesk公司在發(fā)行AutoCAD時(shí)自帶的開(kāi)發(fā)工具之一，也是一種具有智能特點(diǎn)的編程語(yǔ)言。隨著計(jì)算機(jī)繪圖技術(shù)在各類(lèi)領(lǐng)域的不斷發(fā)展，大量重復(fù)性的繪圖工作已逐漸由計(jì)算機(jī)來(lái)完成。AutoCAD LISP編理語(yǔ)言不僅可以快速地解決大量重復(fù)性的工作，而且具有語(yǔ)法簡(jiǎn)單、功能強(qiáng)大和操作平臺(tái)多的優(yōu)點(diǎn)。

二、利用CASS展繪的基本思路與算法實(shí)現(xiàn)

1.高程點(diǎn)與高程注記之間的距離。在利用南方測(cè)繪公司的CASS地形地籍成圖軟件繪制地形圖時(shí)，由于比例尺的不同，所展繪的高程點(diǎn)和注記的距離也有所不同。以繪圖比例尺1:1 000為例，高程點(diǎn)與注記的距離為1.2 cm，在繪圖比例尺為1:500時(shí)，兩者之間的距離縮短了一半；繪圖比例尺為1:2 000時(shí)，兩者之間的距離增加了一倍。根據(jù)不同的比例尺，可以獲取比例尺變量“user1”以求得高程點(diǎn)與高程注記之間的實(shí)際距離。程序如下所示：

2.獲得高程注記外圍的坐標(biāo)。在CASS繪制的地形圖中，高程點(diǎn)與注記是一個(gè)整體，所以可以利用如下程序來(lái)完成：

圖1是一個(gè)矩形框圖。將圖1中矩形框的左下角與右上角坐標(biāo)分別保存到變量minx和maxx中?？梢缘玫骄匦慰蜃笙陆桥c右上角的坐標(biāo)，這時(shí)需要的是注記外圍的坐標(biāo)，所以需要把矩形的長(zhǎng)度減去高程點(diǎn)到高程注記的距離。

3.高程注記遮蓋地物的判斷。根據(jù)獲得的高程注記文字外坐標(biāo)，就可以進(jìn)行高程注記遮蓋地物判斷了?？紤]到高程點(diǎn)會(huì)遮蓋其他高程點(diǎn)的情況，程序如下所示：

如果q2為空，則表示沒(méi)有遮蓋其他地物，反之，就有遮蓋其他地物。

4.高程注記移動(dòng)路徑。在地形圖中，高程點(diǎn)與注記之間的距離不能太遠(yuǎn)，也不能太近，所以高程注記移動(dòng)路徑的選擇就要有相關(guān)依據(jù)。如圖2所示，以高程點(diǎn)為圓心，點(diǎn)到高程注記的距離為半徑畫(huà)圓，將圓周上每隔45°做為1個(gè)移動(dòng)點(diǎn)，分別將高程注記文字100.22外的實(shí)線(xiàn)矩形框移動(dòng)到虛線(xiàn)框的位置。根據(jù)圓的半徑和矩形框的長(zhǎng)和寬，就能夠很容易地求出各個(gè)移動(dòng)點(diǎn)的坐標(biāo)，那么移動(dòng)路徑也就得出來(lái)了。

5.移動(dòng)高程注記。根據(jù)建立的移動(dòng)路徑列表，可以移動(dòng)高程注記。高程注記文字100.22外的實(shí)線(xiàn)矩形框，以矩形框的左下角為移動(dòng)基點(diǎn)，依次移動(dòng)到虛線(xiàn)框的位置。每移動(dòng)1次，進(jìn)行高程注記遮蓋地物的判斷1次，如果沒(méi)有高程注記遮蓋地物，就把高程注記移動(dòng)到該位置，本點(diǎn)移動(dòng)結(jié)束后，接著處理下1點(diǎn)；否則，繼續(xù)移動(dòng)判斷。如果虛線(xiàn)框移動(dòng)結(jié)束后仍沒(méi)有符合條件，那么就把該高程注記標(biāo)注出來(lái)，說(shuō)明該注記無(wú)論怎么移動(dòng)都要遮蓋地物，則需要人工來(lái)處理。

在CASS繪制的地形圖中，高程點(diǎn)與注記是一個(gè)整體，如何只選擇高程注記，并移動(dòng)高程注記，而使高程點(diǎn)的位置不動(dòng)?？梢杂萌缦碌某绦騺?lái)實(shí)現(xiàn)：

在只選擇高程注記之后，移動(dòng)高程注記就比較容易了。程序如下所示：

根據(jù)上述原理，本文，筆者利用AutoCAD LISP語(yǔ)言編制了自動(dòng)移動(dòng)高程注記程序。該程序運(yùn)行后，遮蓋地物的高程注記移動(dòng)迅速，標(biāo)注位置合理，圖面美觀大方。