薛衛(wèi)沖

(1．南京大學(xué)地球科學(xué)與工程學(xué)院，江蘇 南京 210093;2．江蘇省有色金屬華東地質(zhì)勘查局，江蘇南京210007)

Excel與CAD結(jié)合在地質(zhì)制圖工作中的應(yīng)用

薛衛(wèi)沖1，2

(1．南京大學(xué)地球科學(xué)與工程學(xué)院，江蘇 南京 210093;2．江蘇省有色金屬華東地質(zhì)勘查局，江蘇南京210007)

采用CAD軟件繪制地質(zhì)圖件時，常遇到不斷重復(fù)簡單的繪制命令，從而使得制圖工作沉悶、低效、多錯。介紹了利用Excel的編制函數(shù)功能與CAD命令窗口相結(jié)合的原理、方法及常用手段，通過實例來說明如何實現(xiàn)地質(zhì)制圖過程的快速、準確與高效。

Excel;CAD;地質(zhì);制圖

0 引言

CAD與Excel的信息互相導(dǎo)入，在工作中起到意想不到的效果。可以開發(fā)AutoCAD信息自動導(dǎo)入Excel程序并在工程中得到應(yīng)用(劉百來等，2010);CAD具有強大的制圖功能，但涉及到用命令來制作表格及線就相當(dāng)繁瑣，如果能將Excel的制表功能應(yīng)用到CAD中，將大大提高制作效率及效果(李峰博等，2010)。

較多同行已經(jīng)對CAD、Excel等軟件結(jié)合運用作了探索，并運用到地質(zhì)制圖領(lǐng)域中，包括水文工作(范長玉等，2010)、鉆孔柱狀圖繪制(馬江平等，2005)等。

Excel輔助CAD，可利用數(shù)據(jù)共享制作勘查圖件，可實現(xiàn)真正意義上的計算機輔助設(shè)計(孫淑賢等，2007)。

1 基本思路

Excel與CAD結(jié)合能夠為工作提供便利，減少重復(fù)勞動，提高準確率。其原理是讓Excel編制函數(shù)，并將函數(shù)的計算結(jié)果顯示成能讓CAD識別且可執(zhí)行的命令。由于Excel具有復(fù)制公式的功能，因此可以用Excel來做那些重復(fù)又簡單的工作。

2 Excel編程與CAD命令的幾種常見“聯(lián)姻”方式

2．1 平面坐標(biāo)批量輸入

在CAD中輸入坐標(biāo)的命令是用逗號分隔的2個數(shù)值實現(xiàn)的，用Excel的Concatenate命令就很容易實現(xiàn)這一鏈接。

用GPS記錄測區(qū)內(nèi)公路的1 883個坐標(biāo)點的航跡，需先將公路繪制到地質(zhì)平面圖上。如表1所示，將輸入多段線命令(pl)、坐標(biāo)值(X、Y)采用“concatenate()”命令編制函數(shù)(D列)。

編制的Excel函數(shù)。

IF(ISTEXT(A1)，CONCATENATE("pl"，C2，"，"，B2)，IF(A3=""，CONCATENATE(C2，"，"，B2，"")，CONCATENATE(C2，"，"，B2)))，該函數(shù)返回的值為：pl 428255，2807249……。這個值CAD能識別并可執(zhí)行。

將D列復(fù)制并粘貼到CAD命令行中就可繪制GPS航跡了。

執(zhí)行過程解釋：輸入命令pl—空格(相當(dāng)于回車)—輸入坐標(biāo)(428255，3807249)—輸入下一坐標(biāo)(428245，2807269)……。

“IF”函數(shù)的作用是讓第一個點號輸入并執(zhí)行“pl”命令和輸完最后一個坐標(biāo)后，CAD以空格鍵形式結(jié)束繪制多段線命令。這是一個一步到位的命令，如果簡化一些，在D列編制公式：“concatenate(C2，"，"，B2)”即可，復(fù)制 D 列，在 CAD 命令行中輸入“pl”命令，然后粘貼D列函數(shù)(畫航跡函數(shù))，最后空格鍵結(jié)束即可。

1 883個坐標(biāo)點的多段線，在彈指一揮間繪成，無需檢查，效率可見一斑。

圖1 GPS航跡繪制函數(shù)編制示意圖

2．2 文本值輸入

平面圖上鉆孔孔號、地質(zhì)點號，剖面圖上的地質(zhì)點號、采樣樣號等，通常的方法是根據(jù)坐標(biāo)復(fù)制，然后再逐個修改，同樣具有重復(fù)、低效、易出錯的缺陷。

采用“－t”命令，結(jié)合其坐標(biāo)，可以將所需要的文字輸入到恰當(dāng)?shù)奈恢谩?/p>

圖2是實測剖面地質(zhì)點的坐標(biāo)，現(xiàn)將點標(biāo)記、點號作到平面圖上，編制Excel函數(shù)：CONCATENATE(CHAR(10)，" － t"，C2 － 12，"，"，B2+1，"H 3 J BL r 62 W 0"，A2，CHAR(10)，CHAR(10))，該函數(shù)返回的值是：－t 329941，4686918 H 3 J BL r 62 W 0 PA53……。

圖2 平面圖上文本標(biāo)注函數(shù)編制示意圖

將F列復(fù)制并粘貼到CAD命令行中，即可完成點號繪制。

執(zhí)行過程解釋：輸入多行文本命令“－t”—輸入CAD要求的文本位置坐標(biāo)(329941，4686918)(在點號的左上方)—輸入文本字高3—對正方式BL(左下)—旋轉(zhuǎn)角度62°—字寬0—輸入文本內(nèi)容PA53(引用單元格A3)—回車(CHAR(10))以便確認輸入的文本PA53(確認文本輸入須用回車鍵(CHAR(10)來應(yīng)答，不可用空格鍵應(yīng)答)—回車(CHAR(10))結(jié)束命令。

由于結(jié)束命令的那個回車(CHAR(10))，在Excel單元格中隱藏了制表符""，當(dāng)將其粘貼到CAD命令行中，就會顯現(xiàn)出來，其前半個“"”將所需要“－t 329941，4686918 H 3 J BL r 62 W 0 PA53”命令變成了“"－t 329941，4686918 H 3 J BL r 62 W 0 PA53”命令，這是CAD無法識別的命令。為此，在“－t”命令前增加CHAR(10)命令，其效果是對前半個“"”加了1個回車，變成一個CAD的未知命令，以便CAD能繼續(xù)執(zhí)行其后續(xù)的“－t”命令。而后半個“"”與換行符(相當(dāng)于回車)結(jié)合亦構(gòu)成一個CAD未知命令，CAD繼續(xù)執(zhí)行其下一行的命令。

2．3 相對坐標(biāo)輸入

在作直線時，CAD可執(zhí)行“@3＜60”的命令，即在已知點上作一長為3、角度為60°的直線。這一命令與用戶坐標(biāo)系結(jié)合，在制圖時相當(dāng)有用。

圖3是某一鉆孔部分采樣數(shù)據(jù)，要將其采樣位置畫到剖面圖上，可編制Excel函數(shù)：CONCATENATE("l"，B3，"，"，0，"@1 ＜90")，該函數(shù)返回的值為：L 0，0@1＜90……。將E列復(fù)制并粘貼到CAD命令行中即可繪制樣軌(還需要將鉆孔線偏移1個單位)。

圖3 繪制采樣位置函數(shù)編制示意圖

執(zhí)行過程解釋：輸入畫線命令“L”—空格—輸入起點坐標(biāo)(0，0)—輸入線長為1、角度90°的直線—空格—執(zhí)行下一行命令……。

該函數(shù)須與用戶坐標(biāo)結(jié)合，在復(fù)制E列函數(shù)到CAD命令行之前，先建立用戶自定義坐標(biāo)系：以鉆孔彎曲度測量區(qū)間上端點為坐標(biāo)原點，以鉆孔軌跡為X軸，方向向下。然后粘貼上述函數(shù)到CAD命令行讓其執(zhí)行即可。

2．4 圖案填充

筆者畫鉆孔、坑道采樣位置時，常需要畫樣軌并間隔充填黑色，“－bhatch”是CAD以命令行形式執(zhí)行填充命令。

圖4 樣軌填充函數(shù)編制示意圖

編制如下函數(shù)。

IF(ISTEXT(B2)，CONCATENATE(" －bhatch p s"，(B3+C3)/2，"，"，0.5，""，"")，IF(MOD(ROW()，2)=0，""，CONCATENATE(""，(B3+C3)/2，"，"，0.5，""，"")))。

該函數(shù)返回CAD能識別的值為：－bhatch p s 0．815，0．5……。執(zhí)行過程解釋：根據(jù)“－ bhatch”執(zhí)行特點，需要輸入的參數(shù)為特性p，填充類型s(solid)，輸入拾取點坐標(biāo)，確認填充范圍，執(zhí)行填充，重復(fù)“－bhatch”，輸入拾取點坐標(biāo)……。由于填充是相間進行的，所以需要增加IF(MOD(ROW()，2)=0，""，……的判別函數(shù)，以便相間填充。

3 實例

當(dāng)掌握了上述的基本技能后，可以舉一反三，觸類旁通，應(yīng)用到諸多的地質(zhì)圖件制作過程中。

以制作實測地質(zhì)剖面圖為例。從繪制地形線、地質(zhì)界線、測點點號標(biāo)注、巖性花紋填充等幾方面，分別說明Excel與CAD結(jié)合，在曲線繪制(平面坐標(biāo)批量輸入)、相對坐標(biāo)輸入、文本輸入以及圖案填充的應(yīng)用。

在戈壁灘地區(qū)，由于接收衛(wèi)星信號好，地質(zhì)剖面測量可采用手持式GPS進行定位實測地質(zhì)剖面數(shù)據(jù)。

對表1中數(shù)據(jù)進行計算處理，算出導(dǎo)線總方位角(213．5°)、接觸面視傾角、巖層視傾角、各段導(dǎo)線在剖面方向投影長度。

3．1 作剖面地形線

參見圖5。

Excel函數(shù)：IF(ISTEXT(K1)，CONCATENATE("pl"，K2，"，"，L2)，IF(K3=""，CONCATENATE(K2，"，"，L2，"")，CONCATENATE(K2，"，"，L2)))。

表1 實測地質(zhì)剖面原始數(shù)據(jù)

圖5 剖面地形線繪制函數(shù)編制示意圖

將地形線圖層置為當(dāng)前圖層，并將圖5中M列(作剖面地形線列)粘貼到CAD命令行，即可繪制出剖面地形線。

3．2 地質(zhì)界線繪制

參見圖6。

圖6 地質(zhì)界線繪制函數(shù)編制示意圖

Excel函數(shù)。

IF(G2=""，CHAR(10)，IF(F1 ＜ ＞F2，CONCATENATE("l"，K2，"，"，L2，"@25 ＜"，IF(ABS(G2 －213．38) ＜90，H2*( －1)，H2+180)，"")))。

將地質(zhì)界線圖層置為當(dāng)前圖層，并將圖6中N列(作分層線)粘貼到CAD命令行中即可。

3．3 測點號標(biāo)注

參見圖7。Excel函數(shù)。

CONCATENATE(CHAR(10)，"l"，K2，"，"，L2+10，"@20 ＜90"，""，" －t"，K2，"，"，L2+35，"h 3 j bl w 0"，"No．"，A2，CHAR(10)，CHAR(10))。

將地質(zhì)點號圖層置為當(dāng)前圖層，并將圖7中O列(測點點號標(biāo)注)粘貼到CAD命令行中即可。

3．4 巖性花紋填充

參見圖8。

圖7 地質(zhì)點編號標(biāo)注函數(shù)編制示意圖

圖8 巖性花紋填充函數(shù)編制示意圖

Excel函數(shù)。

IF(ISTEXT(D2)，CONCATENATE(" －bhatch p"，D2，""，E2，""，IF(I2=""，0，IF(ABS(I2 －213．48) ＜90，－ J2，J2+180))，""，(K2+K3)/2，"，"，(L2+L3)/2 －5，"")，"")。

所需巖性花紋文件(后輟名為“．pat”)應(yīng)在填充前復(fù)制至CAD安裝目錄下的Suport文件夾內(nèi)，并將對應(yīng)的巖性花紋代號填入圖8的D列中。圖案的比例尺、巖層視傾角等參數(shù)也應(yīng)預(yù)先填入相應(yīng)欄目內(nèi)。同時，需要將地形線往下偏移(偏移值視剖面比例尺而定)，并將上下地形線端點連接，以便以“拾取點”的方式填充。

將巖性花紋圖層置為當(dāng)前圖層，將所要填充的范圍置于可見視域內(nèi)，并將圖8中P(巖性花紋填充)列粘貼到CAD命令行中即可。填充完成后，將先前偏移的地形線及兩端的連接線刪除，最終成圖如圖9。

4 結(jié)語

雖然Excel是最常用的工具，且有強大的編制函數(shù)與計算功能，CAD也是世界上最成熟的功能強大的制圖軟件，但大部分同行還不能熟練地將兩者結(jié)合起來，在日常制圖中花費了較多的時間與精力。筆者介紹了最常見的圖件制作技巧，希望能起到拋磚引玉的作用，并得到同行的發(fā)揚光大。

圖9 局部實測地質(zhì)剖面圖(未修飾)

范長玉，徐菲．2010．利用Excel在AutoCAD中繪制橫斷面的實踐應(yīng)用［J］．吉林水利，(5)：57－72．

李峰博，張朝暉．2010．Excel軟件在AutoCAD繪圖中的輔助應(yīng)用［J］．楊凌職業(yè)技術(shù)學(xué)院學(xué)報，9(4)：62－64．

劉百來，涂圣武．2010．工程中AutoCAD信息自動導(dǎo)入Excel的程序開發(fā)與應(yīng)用［J］．科技創(chuàng)新導(dǎo)報，(28)：17．

馬江平，王志宏．2005．基于AutoCAD的預(yù)想鉆孔生成及其柱狀圖繪制［J］．露天采礦技術(shù)，(6)：17－20．

孫淑賢，李光明，張貴麗．2007．AutoCAD制作勘查線剖面圖中的數(shù)據(jù)共享及圖形格式交換［J］．山東國土資源，(9)：18 －20．

Application of combination of Excel and CAD in geological cartography

XUE Wei-chong1，2

(1．School of Earth Sciences and Engineering，Nanjing University，Nanjing 210093，China;2．East China Geological Exploration Bureau of Nonferrous Metals，Jiangsu Province，Nanjing 210007，China)

When CAD software was applied in plotting geological charts，simple repeated plotting commands were often confronted with which made a lower working efficiency and inaccuracy．The author introduced programming by Excel and how to draw formula curves and curved faces accurately in geology by utilizing CAD and Excel soft wares，which helped to improve the working efficiency．

Excel;CAD;Geology;Chart plotting

P283．7

A

1674－3636(2011)03－0275－05

10．3969/j．issn．1674-3636．2011．03．275

2011－06－02;編輯：陸李萍

薛衛(wèi)沖(1964—)，男，高級工程師，長期從事地質(zhì)勘查工作，E-mail：xue805@126．com