利用Excel實現(xiàn)AutoCAD自動批量繪制地質(zhì)災(zāi)害點分布圖的方法嘗試

歐陽剛

(貴州省地礦局區(qū)域地質(zhì)調(diào)查研究院，貴州 貴陽 550081)

1 引言

人們在進(jìn)行區(qū)域性地質(zhì)災(zāi)害調(diào)查時，常常需調(diào)查數(shù)百、數(shù)千個地質(zhì)災(zāi)害點或風(fēng)險斜坡點，并需將其標(biāo)繪在地質(zhì)災(zāi)害分布圖中。這數(shù)百至數(shù)千個點，按常規(guī)手工方式標(biāo)繪，至少需要好幾天時間。而且這樣重復(fù)的工作，會導(dǎo)致繪圖人員枯燥無味，工作效率低下，并常常出現(xiàn)輸入錯誤。

筆者通過方法探索，利用Excel強(qiáng)大的數(shù)據(jù)處理功能(許東平，2018)，基于AutoCAD制圖平臺，成功實現(xiàn)自動繪制災(zāi)害點分布圖，替代了繁瑣的手動工作，大大提高了工作效率。該方法可廣泛應(yīng)用于自動批量繪制巖土工程勘察中的鉆孔平面布置圖、鉆孔柱狀圖以及剖面圖、公路里程及坐標(biāo)圖、征地范圍拐點及坐標(biāo)繪等方面。希望通過本文的方法介紹，對地質(zhì)災(zāi)害調(diào)查人員工作有所幫助，并舉一反三，解決技術(shù)工作中類似的技術(shù)問題。

2 方法概述

在AutoCAD制圖時，傳統(tǒng)繪制方法是通過鼠標(biāo)點擊命令，結(jié)合鍵盤輸入?yún)?shù)在繪圖窗口中繪制。這種方法最為簡單，也最為常用，但在精準(zhǔn)繪制指定坐標(biāo)點的繪制內(nèi)容時往往需要輸入大量參數(shù)值，消耗人們大量時間。

為解決上述傳統(tǒng)方法的弊端，提高工作效率，筆者采用命令窗口批量輸入命令及相應(yīng)參數(shù)值的方法進(jìn)行繪制。由若干行批量輸入命令及相應(yīng)參數(shù)值構(gòu)成的文本稱為“繪制程序”。具體操作思路是：首先在Excel平臺中處理繪制流程，完成單點的繪制程序，接著通過復(fù)制公式完成無數(shù)點的繪制程序，然后將無數(shù)點的繪制程序命令在AutoCAD命令窗口中粘貼進(jìn)去，便自動批量繪制出地質(zhì)災(zāi)害點、斜坡點及其名稱注記，從而實現(xiàn)數(shù)百、數(shù)千個點在幾秒鐘內(nèi)完成，大大提高圖件繪制效率及準(zhǔn)確率。該方法操作流程化較為嚴(yán)格，要求制圖人員都AutoCAD的命令較為熟悉，并對自己需要繪制的圖形的各種值較為清晰。

本文以圖1《地質(zhì)災(zāi)害臺賬表》中地質(zhì)災(zāi)害點為例進(jìn)行說明闡述(中國地質(zhì)環(huán)境監(jiān)測院，2010)。

圖1 地質(zhì)災(zāi)害臺賬

3 操作過程

3.1 繪制單個地質(zhì)災(zāi)害點

我們在通過AutoCAD的命令窗口繪制單點地質(zhì)災(zāi)害之前，先設(shè)定各類圖素的符號形狀及大小。例如，設(shè)定地質(zhì)災(zāi)害符號為圓，崩塌為等邊三角形，地面塌陷為正方形，泥石流為等邊五邊型，小型規(guī)模的直徑為100 mm，中型為200 mm，大型為300 mm，特大型為400 mm。

3.1.1 單點繪制操作流程

以繪制單個小型滑坡點為例，其具體操作步驟為：(1)繪制災(zāi)害點符號：在AutoCAD的命令窗口依次輸入圓命令circle，再輸入災(zāi)害點坐標(biāo)即圓心坐標(biāo)(x，y)(顧孝烈 等，2003)，選擇繪制圓的方式為d(直徑)，輸入直徑數(shù)值；(2)繪制災(zāi)害點標(biāo)注：在AutoCAD的命令窗口依次輸入編輯單行文字的命令dtexted，dtexted的新值為1，需注意的是，這里允許輸入1、2或3，但本次繪制只能輸入1，再輸入單行文字命令text，以及災(zāi)害點標(biāo)注坐標(biāo)(x+△x，y+△y)，△x和△y為平移距離，然后輸入文字高度以及災(zāi)害點編號及名稱。這樣，單點災(zāi)害點就繪制在圖上了。

3.1.2 設(shè)計Excel表格

如圖1《地質(zhì)災(zāi)害臺賬》所示，在Excel表A3至N3中，分別設(shè)置為災(zāi)害點編號、隱患點名稱、災(zāi)種、規(guī)模、平面坐標(biāo)X、平面坐標(biāo)Y、文字X方向平移距離、文字Y方向平移距離、繪制命令、繪圖子命令、符號大小、文字高度、文字角度及繪制程序共14列，并根據(jù)災(zāi)害點數(shù)量將橫向完善表格內(nèi)容，其中，本次以18個災(zāi)害點為例進(jìn)行說明。

3.1.3 Excel中編輯子項公式

編輯子項公式是為了獲得在單點繪制系列命令中自定出現(xiàn)我們需要的繪制程序。由于我們每個災(zāi)害點的符號、大小等參數(shù)都不一樣，我們需要自動計算出不同的繪制程序，故通過IF命令進(jìn)行計算，根據(jù)臺賬中的不同災(zāi)種、不同規(guī)模、不同名稱等，從而自動計算出我們需要的繪制程序。

1.Excel中自動生成災(zāi)害點命令操作如下(藤井直彌，2019)：在“繪制命令”I3中輸入IF公式“=IF(C3="滑坡"，"circle"，IF(C3="崩塌"，"polygon 3"，IF(C3="地面塌陷"，"polygon 4"，IF(C3="泥石流"，"polygon 5"))))”。這樣，如果災(zāi)害點為滑坡，這里自動顯示為circle，若為崩塌則顯示為“polygon 3”、地面塌陷顯示為“polygon 4”、泥石流顯示為“polygon 5”同時應(yīng)注意中間包含有空格鍵。

2.Excel中自動生成生成小型、中型、大型及特大型等不同規(guī)模的災(zāi)害點符號大小值：本次設(shè)置小型為100，中型為200，大型為300，特大型為400，具體操作為：在符號大小列K3中輸入“=IF(D3="小型"，100，IF(D3="中型"，200，IF(D3="大型"，300，IF(D3="特大型"，400))))”，則該點的符號大小則根據(jù)災(zāi)害點規(guī)模的規(guī)模反算處K3中的值。

3.同理，在Excel中用IF命令計算出圓形circle和等邊多邊形polygon的子項命令即circle命令后應(yīng)輸入“d”，而"polygon 3"、"polygon 4"、"polygon 5"等命令后需輸入“c”，在圖形參數(shù)J列的J3中需要輸入IF公式“=IF(I3="circle"，"d"，"c")”。這樣就會自動識別出“c”和“d”了。

3.1.4 設(shè)置單點繪制命令程序

前面基礎(chǔ)數(shù)據(jù)做好之后，需要完成單點繪制命令程序，從完成單點自動繪制。以ZHD001地面塌陷1為例，進(jìn)行闡述。

在N3中輸入公式“=I3&" "&E3&"，"&F3&" "&J3&" "&K3&" "&"dtexted 1 text "&(E3+G3)&"，"&(F3+H3)&" "&L3&" "&M3&" "&A3&""&B3&CHAR(13)”(馮德平，2009)，Excel中則自動顯示值為“polygon 4 601935，2951391 c 300 dtexted 1 text 602085，2951501 350 0 ZHD001地面塌陷1”，N3顯示的值即為ZHD001地面塌陷1的繪制命令程序，該點的符號、符號大小、災(zāi)害點名稱及標(biāo)注等通過命令輸入的形式，將所有命令集中在一起了。

3.1.5 繪制單個地質(zhì)災(zāi)害點

復(fù)制Excel中N3中的內(nèi)容，粘貼至記事本后再復(fù)制一次，確保復(fù)制的內(nèi)容是具體顯示的值，即為“polygon 4 601935，2951391 c 300 dtexted 1 text 602085，2951501 350 0 ZHD001地面塌陷1”。然后打開AutoCAD，在輸入命令欄中將復(fù)制好的單點繪制命令進(jìn)行粘貼，AutoCAD繪圖界面中單點的圖并繪制好了。

另外須將單點命令最后加上“CHAR(13)”，這樣一個點的繪制命令才算完整。否則不能將各個命令對應(yīng)到AutoCAD的各項命令。

3.2 批量繪制多個地質(zhì)災(zāi)害點

在Excel中將N3中的單點繪制命令公式進(jìn)行復(fù)制，在N列將所有點粘貼該公式，再將所有點N列公式進(jìn)行復(fù)制并粘貼至記事本稍作處理，把多余的引號等刪除，再全部復(fù)制，然后打開AutoCAD，在輸入命令欄中將復(fù)制好的多點繪制的系列命令進(jìn)行粘貼，粘貼命令如下：

polygon 4 601935，2951391 c 300 dtexted 1 text 602085，2951501 350 0 ZHD001地面塌陷1

circle 599742，2955117 d 200 dtexted 1 text 599892，2955227 350 0 ZHD002滑坡5

polygon 4 614041，2954547 c 200 dtexted 1 text 614191，2954657 350 0 ZHD003地面塌陷2

polygon 3 615927，2950471 c 300 dtexted 1 text 616077，2950581 350 0 ZHD004崩塌1

……

至此，在AutoCAD繪圖界面中的所有地質(zhì)災(zāi)害點分布圖便自動繪制好了，如圖2《某縣地質(zhì)災(zāi)害點分布圖》所示。

圖2 某縣地質(zhì)災(zāi)害點分布圖(局部示意圖)Fig.2 Distribution of geological hazard in a county(partly)1—滑坡；2—崩塌；3—地面塌陷；4—泥石流

4 結(jié)語

本文闡述的方法，是基于AutoCAD制圖軟件，利用過Excel強(qiáng)大的數(shù)據(jù)功能，將繁瑣的人工標(biāo)繪方式轉(zhuǎn)變?yōu)橥ㄟ^Excel處理，自動生成AutoCAD中需要鍵入的命令，從而達(dá)到批量繪圖的目的。該方法相對于傳統(tǒng)人工制圖方法，大大減少了制圖人員勞動強(qiáng)度，提高了工作效益，并大大降低了差錯率。

該方法可以舉一反三地應(yīng)用到其他制圖工作中，諸如自動批量繪制巖土工程勘察中的鉆孔平面布置圖、鉆孔柱狀圖以及剖面圖、公路里程及坐標(biāo)圖、征地范圍拐點及坐標(biāo)繪，等等。因此，該方法的推廣應(yīng)用價值較大。