張　吉

(鐵道第三勘察設(shè)計院集團(tuán)有限公司，天津　300142)

The Application of AutoLISP in Railway Engineering Geophysical Exploration Results Map Drawing

ZHANG Ji

AutoLISP語言在鐵路工程物探成果圖繪制中的應(yīng)用

張吉

(鐵道第三勘察設(shè)計院集團(tuán)有限公司，天津300142)

The Application of AutoLISP in Railway Engineering Geophysical Exploration Results Map Drawing

ZHANG Ji

摘要采用AutoLISP語言開發(fā)出具有鐵路工程物探勘察特點(diǎn)的物探成果圖自動繪制程序，實(shí)現(xiàn)鐵路物探成果斷面圖框自動繪制。本程序具有使用方便、輸出標(biāo)準(zhǔn)的特點(diǎn)，可有效提高繪圖效率，同時實(shí)現(xiàn)鐵路工程物探勘察成果圖式、圖例及符號標(biāo)準(zhǔn)化。

關(guān)鍵詞物探成果圖AutoLISP

鐵路工程物探成果圖一般包含物探斷面、地形及地質(zhì)、高程標(biāo)尺等信息，正式的成果圖還應(yīng)包含圖框、圖名、圖例、說明、責(zé)任欄等組成部分。目前，物探斷面圖一般由物探數(shù)據(jù)處理軟件自動生成，圖框、圖例、責(zé)任欄及高程標(biāo)尺等諸多信息都需要手工繪制。按照標(biāo)準(zhǔn)化成圖要求，不同組成部分的字體、字號、線形、線寬等要求不同，同時又要求將不同內(nèi)容置于對應(yīng)圖層，上述繪制過程繁瑣復(fù)雜。為提高繪圖效率，適應(yīng)鐵路標(biāo)準(zhǔn)化成圖需要，采用AutoLISP語言編制物探成果自動成圖系統(tǒng)，實(shí)現(xiàn)圖框、責(zé)任欄等部件自動生成。

1開發(fā)環(huán)境簡介

AutoLISP是由Autodesk公司開發(fā)的一種LISP程序語言，既具有一般高級語言的基本結(jié)構(gòu)和功能，又具有一般高級語言所沒有的強(qiáng)大圖形處理功能及表處理功能，是AutoCAD二次開發(fā)的一種重要工具。

2程序設(shè)計

2.1　系統(tǒng)模塊

依據(jù)不同功能，將程序劃分成不同的模塊，模塊設(shè)置及其功能如下。

(1)數(shù)據(jù)讀取模塊：讀取含有里程及高程信息的地形文件，文件為明碼格式，共含兩列，第一列為里程，第二列為對應(yīng)點(diǎn)的高程，兩列之間用逗號或空格隔開。

(2)繪圖信息輸入模塊：在CAD命令框中依據(jù)提示輸入比例尺、繪圖深度等信息。

(3)地形信息及圖框尺寸計算模塊：依據(jù)斷面各地形點(diǎn)高程、繪圖比例尺等，計算圖幅尺寸、地形點(diǎn)、圖框、責(zé)任表等要素的圖上坐標(biāo)。

(4)圖層管理模塊：依據(jù)物探標(biāo)準(zhǔn)化成圖要求，建立各圖層，并分別設(shè)置默認(rèn)線形、線寬、字體等參數(shù)。

(5)繪圖模塊：依次繪制地面線、圖名、圖例、說明、圖框、責(zé)任欄等圖件要素。

2.2　程序運(yùn)行過程

本程序的運(yùn)行過程依據(jù)上述系統(tǒng)模塊分步進(jìn)行，首先在AutoCAD程序中加載編譯好的程序文件“MarkHight.fas”；其次在AutoCAD的命令行中輸入程序命令“mh”，在彈出的文件選擇對話框中選擇需要繪圖的高程文件；依據(jù)程序提示輸入橫向比例尺、縱向比例尺、斷面繪圖深度、斷面圖底部類型、高程標(biāo)注間隔以及整公里前綴字符等信息，程序?qū)⒁罁?jù)上述繪圖信息自動繪制物探成果斷面圖。

圖1為程序命令交互界面，顯示程序調(diào)用及繪圖參數(shù)輸入過程；圖2為本程序繪制的完整物探斷面成果圖，包含圖框、圖名、圖例、說明、責(zé)任欄及物探斷面框等要素。在實(shí)際使用過程中，只需將專業(yè)物探軟件生成的對應(yīng)比例尺物探斷面成果插入到本程序生成的物探斷面框中即可，在各自位置寫入說明及物探解釋文字內(nèi)容，必要時亦可手工修改圖名、圖號等信息。本程序已經(jīng)自動設(shè)置好字體、字號、圖層等信息，在改動過程中只需關(guān)注文字內(nèi)容。

圖1　程序運(yùn)行命令交互界面

圖2　程序繪圖成果

3關(guān)鍵代碼實(shí)現(xiàn)

3.1　圖層管理及字體設(shè)置

圖層的生成及字體分別采用AutoCAD自帶的“l(fā)ayer”及“style”命令設(shè)置，在AutoLISP環(huán)境下采用“command”命令調(diào)用并傳遞相關(guān)參數(shù)，生成的圖層如圖3所示，程序代碼如下：

(command "layer" "m" "物探解釋" "c" "red" "" "l" "DASHED" ""

"m" "修改意見" "c" "blue" "" "m" "物探底圖" "m" "繪圖邊框" "")

(command "style" "宋體" "宋體" "" "0.8" "0" "n" "n" "n" "")

圖3　自動生成的圖層及其特性

3.2　各地形點(diǎn)圖上坐標(biāo)計算

本程序?qū)⑼膺吙蜃笙陆亲鳛樵c(diǎn)，水平向右為橫坐標(biāo)正向，豎直向上為縱坐標(biāo)正向。依據(jù)標(biāo)準(zhǔn)化成圖要求，各地形測量點(diǎn)的橫坐標(biāo)主要由以下幾部分決定：裝訂線(15 mm)、頁邊距(5或10 mm)、繪圖偏移量(一般為45 mm)、依據(jù)比例尺計算的橫坐標(biāo)增量?？v坐標(biāo)在計算過程中不必設(shè)置裝訂線，但要考慮因繪圖深度引起的縱坐標(biāo)變化。

3.3　圖幅寬度的判斷

根據(jù)鐵路工程物探標(biāo)準(zhǔn)化出圖要求，物探成果圖的標(biāo)準(zhǔn)圖幅寬度有297 mm、420 mm、594 mm、841 mm這四種，本程序可自動依據(jù)地形高程及繪圖深度綜合判斷適合的圖幅寬度，程序語句如下：

(cond; 計算圖幅

((<=h1 205); 297 mm圖框

(setq rt1 (list length2 297)); 設(shè)置圖框坐標(biāo)

((and (> h1 205) (<=h1 325)); 420 mm圖框

(setq rt1 (list length2 420)); 設(shè)置圖框坐標(biāo)

((and (> h1 325) (<=h1 500)); 594 mm圖框

(setq rt1 (list length2 594)); 設(shè)置圖框坐標(biāo)

((and (> h1 500) (<=h1 839)); 841 mm圖框

(setq rt (list length2 841)); 設(shè)置圖框坐標(biāo)

(t nil))

其中“rt1”變量為圖框右上角坐標(biāo)，“l(fā)ength2”變量為依據(jù)斷面長度及繪圖比例尺計算的圖幅長度，“h1”變量為依據(jù)繪圖比例尺、繪圖深度及最大高程等信息綜合計算的地形點(diǎn)圖上坐標(biāo)最大值。

4結(jié)論

本程序?qū)崿F(xiàn)了鐵路工程物探成果斷面圖中圖框、圖名、圖例、責(zé)任欄等諸多元素的自動生成，同時可自動繪制帶地形信息的物探斷面圖框，在實(shí)際應(yīng)用過程中只需將由專業(yè)物探軟件生成的對應(yīng)比例尺的物探成果斷面圖插入即可。程序使用方便，內(nèi)置字體、線寬等標(biāo)準(zhǔn)化成圖信息，方便實(shí)現(xiàn)標(biāo)準(zhǔn)化繪圖。

參考文獻(xiàn)

[1]DZ/T 0069—1993地球物理勘查圖圖式圖例及用色標(biāo)準(zhǔn)[S]

[2]程效軍，顧孝烈，顧振雄.測量工程LISP程序設(shè)計[M].上海：同濟(jì)大學(xué)出版社，2012

[3]于全通，范小鷗，郭秀娟.AutoLISP語言程序設(shè)計[M].北京：化學(xué)工業(yè)出版社，2008

[4]曹天歡.應(yīng)用Visual LISP 編制輔助繪圖程序[J].鍋爐技術(shù)，2001(8):20-26

[5]郝明，董晨.牡綏線初測綜合物探[J].鐵道勘察，2008(6):67-71

[6]楊遠(yuǎn)超.一種圖幅坐標(biāo)的批量獲取方法[J].鐵道勘察，2011(4):8-10

[7]郝明，李志華.物探技術(shù)在越嶺隧道選線中所發(fā)揮的作用[J].鐵道工程學(xué)報，2011(8):13-17

中圖分類號：P285.1

文獻(xiàn)標(biāo)識碼：B

文章編號：1672-7479(2015)03-0011-02

作者簡介：張吉(1983—)，男，2010年畢業(yè)于中國地質(zhì)大學(xué)(武漢)地球探測與信息技術(shù)專業(yè)，工學(xué)碩士，工程師。

收稿日期：2015-03-02