AutoLISP語言在鐵路工程物探成果圖繪制中的應用

張　吉

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

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

ZHANG Ji

AutoLISP語言在鐵路工程物探成果圖繪制中的應用

張吉

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

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

ZHANG Ji

摘要采用AutoLISP語言開發出具有鐵路工程物探勘察特點的物探成果圖自動繪制程序，實現鐵路物探成果斷面圖框自動繪制。本程序具有使用方便、輸出標準的特點，可有效提高繪圖效率，同時實現鐵路工程物探勘察成果圖式、圖例及符號標準化。

關鍵詞物探成果圖AutoLISP

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

1開發環境簡介

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

2程序設計

2.1　系統模塊

依據不同功能，將程序劃分成不同的模塊，模塊設置及其功能如下。

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

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

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

(4)圖層管理模塊：依據物探標準化成圖要求，建立各圖層，并分別設置默認線形、線寬、字體等參數。

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

2.2　程序運行過程

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

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

圖1　程序運行命令交互界面

圖2　程序繪圖成果

3關鍵代碼實現

3.1　圖層管理及字體設置

圖層的生成及字體分別采用AutoCAD自帶的“layer”及“style”命令設置，在AutoLISP環境下采用“command”命令調用并傳遞相關參數，生成的圖層如圖3所示，程序代碼如下：

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

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

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

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

3.2　各地形點圖上坐標計算

本程序將外邊框左下角作為原點，水平向右為橫坐標正向，豎直向上為縱坐標正向。依據標準化成圖要求，各地形測量點的橫坐標主要由以下幾部分決定：裝訂線(15 mm)、頁邊距(5或10 mm)、繪圖偏移量(一般為45 mm)、依據比例尺計算的橫坐標增量。縱坐標在計算過程中不必設置裝訂線，但要考慮因繪圖深度引起的縱坐標變化。

3.3　圖幅寬度的判斷

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

(cond; 計算圖幅

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

(setq rt1 (list length2 297)); 設置圖框坐標

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

(setq rt1 (list length2 420)); 設置圖框坐標

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

(setq rt1 (list length2 594)); 設置圖框坐標

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

(setq rt (list length2 841)); 設置圖框坐標

(t nil))

其中“rt1”變量為圖框右上角坐標，“length2”變量為依據斷面長度及繪圖比例尺計算的圖幅長度，“h1”變量為依據繪圖比例尺、繪圖深度及最大高程等信息綜合計算的地形點圖上坐標最大值。

4結論

本程序實現了鐵路工程物探成果斷面圖中圖框、圖名、圖例、責任欄等諸多元素的自動生成，同時可自動繪制帶地形信息的物探斷面圖框，在實際應用過程中只需將由專業物探軟件生成的對應比例尺的物探成果斷面圖插入即可。程序使用方便，內置字體、線寬等標準化成圖信息，方便實現標準化繪圖。

參考文獻

[1]DZ/T 0069—1993地球物理勘查圖圖式圖例及用色標準[S]

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

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

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

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

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

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

中圖分類號：P285.1

文獻標識碼：B

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

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

收稿日期：2015-03-02