杨雪伟

摘 要:详细地介绍了个人用Autocad绘制煤矿地质测量图的具体方法、步骤和经验。

关键词:矿图;地质测量

中图分类号:TP316.5文献标识码:A文章编号:1672-3198(2009)16-0301-01

1 AutoCad环境下的矿图要素表达方法

1.1 点符号的建库

建点符号有两种方法,一是采用AutoCad的Wblock功能做成*.dwg图形文件建库,用insert功能以定位点的坐标为基准点进行插入。二是采用Autolisp语言把所有的点符号编程建库,然后通过appload命令调入。三是把所有的点符号做成型模(*.shp)文件,然后用complie编译形文件,用load装载*.shx文件,用shape命令加入。

第一种方法资料丰富,工程技术人员容易掌握。第二、三种方法难度比较大,我采用第一种方法。建点符号以毫米为单位根据图例规定大小创建。

1.2 创建简单线型

单一线型可以在acad.lin文件中直接进行编辑,也可以创建一个自定义的*.lin文件。单一线型的定义格式仅限于两行,例如:

*HOT_WATER_SUPPLY,---- HW ---- HW ----

A,.5,-.2,["HW",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2

第一行为线型名称,总以*开头。

第二行为线型定义细节,总以A开头,全行最多只能有80个字符,线段用正数、点用零、空格用负数、[]内为调用型模应用格式,可选项,其具体格式为[“HW英文字母/形名”,文字样式/形文件名,S比例,R旋转,x偏移,y偏移]。

1.3 创建复杂线型

图中有许多符号如铁路等多线符号用单一线型无法表示,这时我们就必须创建复杂线型来达到目的。现以创建一般铁路为例详述复杂线型创建过程。

选择格式菜单中多线样式命令打开多线样式对话框,按新建按钮再打开创建新的多线样式对话框,填写新样式名称和基础样式(STANDARD)后按继续按钮,按9次图元中添加按钮,选择刚才添加的一个线型,设置偏移0.4,按图元中的线型按钮选择一个虚线线型,再选择刚才添加的另一个线型,设置偏移0.3,按图元中的线型按钮选择同一个虚线线型,以此类推,把刚才刚才添加的每一个线型设定好,然后确定下来。可把多线样式对话框中我们建立的样式保存到acad.mln中,也可保存到*.mln中。

1.4 面符号创建

面符号的建立可以利用AutoCad下的应先图案创建功能来完成,AutoCad大量的影线图案存放在acad.pat中,创建影线图案的句法如下:

*图案名[,说明]

角度,x起点,y起点,x增量,y增量[,破折线1,破折线2,……]。

每行允许6个破折线说明,定义行可以不止一行,在末行尾必须必须按Enter键。下面是我定义的稻田面符号的文件格式。

*RISE

90,0,0,10,10,3,-17

45,0,0,0,14.142,0.7,-13.442

135,0,0,0,14.142,0.7,-13.442

需要注意的是:(1)创建的充填文件名必须与充填文件的符号名相同,(2)AutoCad的工具菜单/选项/文件/支持文件搜索路径/添加/浏览形文件所在文件夹。

2 绘制图形文件

2.1 绘制巷道

从全站仪中导出数据格式为纯文本文件每个点的数据占一行,每行的数据格式为点号,E(东),N(北),H(高程),可直接用来展坐标。批量展坐标可以用高级语言编程生成脚本文件的方法,也可以用AutoCad的开发语言编写专门程序,也可借助电子表格整理数据展坐标。借助电子表格展坐标具有简单易懂的特点,在此介绍一下。

在电子表格中选中Sheet1!A1单元格,用“数据/导入外部数据/编辑文本导入”来导入全站仪中的坐标数据。

在Sheet2!A1:Sheet2!A2中键入“点号文字上偏移Y1:”、“坐标文字下偏移Y2:”。

在Sheet2!B1和Sheet!B2中分别键入“5”和“2”,可根据需要修改。

在Sheet3!A1中键入“=COUNT(Sheet1!B:B)”。

在Sheet3!A2中键入“1”,在Sheet3!A3中键入“2”,以此类推,数量要足够多。

在Sheet3!B1:Sheet3!L1中键入“点号”、“X”、“Y”、“Z”、“Y+Y1”、“Y-Y2”、“点号坐标”、“高程坐标”、“写点号”、“写高程”、“绘制点”、“pline”,除“pline”外其它可有可无。

在Sheet3!B2:Sheet3!E2中依次键入:

“=IF(MOD($A2,2),OFFSET(Sheet1!A$1,Sheet3!$A2/2,0,1,1),”“)”、

“=IF(MOD($A2,2),OFFSET(Sheet1!B$1,Sheet3!$A2/2,0,1,1),”“)”、

“=IF(MOD($A2,2),OFFSET(Sheet1!C$1,Sheet3!$A2/2,0,1,1),”“)”、

“=IF(MOD($A2,2),OFFSET(Sheet1!D$1,Sheet3!$A2/2,0,1,1),”“)”。

在Sheet3!F2:Sheet3!G2中依次键入:

“=IF(MOD(A2,2),D2+Sheet2!$B$1,”“)”、

“=IF(MOD(A2,2),D2-Sheet2!$B$2,”“)”。

在Sheet3!H2:Sheet3!I2中依次键入:

“=IF(MOD(A2,2),C2&”,“&F2&” “&C2&”,“&F2,”“)”、

“=IF(MOD(A2,2),C2&”,“&G2&” “&C2&”,“&G2,”“ )”。

在Sheet3!J2:Sheet3!M2中依次键入:

“=IF(MOD(A2,2),”-mtext “&H2&” “&B2,”“)”、

“=IF(MOD(A2,2),”-mtext “&I2&” “&E2,”“)”、

“=”point “&Sheet1!B1&”,“&Sheet1!C1”、

“=Sheet1!B1&”,“&Sheet1!C1‘。

在Sheet3!N1中键入:

“=IF(A2<$A$1*6+1,IF(A2<$A$1*4+1,IF(A2<$A$1*2+1,J2,OFFSET($K$2,A2-$A$1*2-1,0,1,1)),IF(A2<$A$1*5+1,OFFSET($L$2,A2-$A$1*4-1,0,1,1),OFFSET($M$1,A2-$A$1*5-1,0,1,1))),”“)”。

把Sheet3!B2:Sheet3!M2和Sheet3!N1中的公式向下充填足够多。

点击列号N选择N列,然后复制,在Autocad命令行上粘贴。保存以上表格文件文件,以后只做第一步和最后一步即可。展完点后,根据巷道宽度两边偏移,中线可以不删除,设成与巷道同宽的较白的颜色,通过调整绘图次序达到区分上下关系的效果。

作图时应使用1:1000比例尺。把不同类型的图形元素放在不同的图层中,这样可以方便以后修改,还能做到一图多用。

2.2 绘制等高线

绘制煤层等高线和地形等高线可以用专门的软件surfer,该软件使用比较简单,如果做煤层底板等高线,须将煤层底板的三维坐标编辑与全站仪数据格式相同的文本文件或电子表格文件,然后就可以用surfer生成等高线。

2.3 根据平面做剖面

我的做法是,在平面图上先做一根剖面线,把平面图和剖面线复制一份,旋转复制后的整个图形,并确保剖面线水平,(平面图中的等高线、交面线、巷道等都与剖面线有交点)以交点为起点向上画垂线,其长度与等高线、巷道等的标高相同,则垂线的终点就是等高线、交面线、巷道的实际位置,在巷道实际位置上画出巷道断面,把等高线、交面线的实际位置用相应的线条画出,删除复制后的平面图内容即可。

参考文献

[1]@赵征兵.利用autocad开发数字化地质测绘软件[J].中国煤田地质,2001,13(2).