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