一种基于Excel绘制勘探点平面图的方法

摘要

本发明涉及一种基于Excel绘制勘探孔平面图的方法。包括如下步骤：1）设置Exel模板文件，包括设置对应工作表，所述工作表中至少包含表头、列号采集区、用以表达不同勘探孔的图块和文字的CAD批命令生成区、勘探孔的孔座标输入区和要素输入区；2）设置CAD模板文件，包括根据所述要素设置对应的图层和定义所述图块及图块名，并编制“编号取坐标.dvb”小程序；3）通过加载编号取坐标.dvb”小程序，生成对应的Excel表格，获取勘探点的坐标，从而得到所述工作表，启动所述CAD批命令，绘制出所述勘探点平面图。优点是：方法简单，易于操作、灵活多变、适应性强、方便进行批量调整和修改、数据容量大，使勘察工程中生成“勘探点平面布置图”的时间大大缩短，提高了工作效率。

说明书

技术领域

本发明涉及岩土工程勘察，尤其涉及一种基于Excel绘制勘探点平面图的方法。

背景技术

岩土工程勘察工作过程中，要按勘探点类别绘制“勘探点平面布置图”，目前基本有二种做法：

一种是使用专用勘察软件。专业的岩土工程勘察软件虽然已经在岩土工程勘察工作中得到了较普遍的应用，但岩土工程勘察中工程条件差性异大，遇到的问题复杂多变，这些商业软件数据处理和计算过程不透明，同时可操作性也差，不能根据情况的变换进行适应性操作，致使这些软件在使用中存在着灵活性差、适应性不强、有时容量也不能满足需要、购买者对程序无权修改的缺陷，给使用者带来了诸多的不便。

另一种是采用CAD软件，在CAD中先把不同类别勘探点所对应的钻孔分别制成对应的图例，再在勘探点平面图的对应位置“粘帖”对应的图例，这样反复“复制”、“粘帖”，直到整个勘探点平面图完成。这种方法虽然也可以解决绘制勘探点平面图的问题，但工作效率低，只能用于勘探点少的情况。但随着生产规模特别是单项勘察项目越来越大，有时一个勘察项目就几百甚至几千个勘探点，如此工作效率不能满足现有快节奏生产的要求。

以上二种方法除上述的不足之外，还存在如下共有的不足之处：其一是不能保证“勘探点类别表”和“勘探点平面布置图”中的各勘探点对应钻孔类别高度一致；其二是勘察方案变动时不能进行批量修改。

解决上述的不足，技术人员通过有针对性的编程当然最好，但事实上，本领域内的工程技术人员多数不懂编程，而专业编程人员又对岩土工程技术知识了解不深，往往不能准确理解技术人员在编程方面的设想和需求。这就是目前专业软件不能适应勘察工程需要，工程技术人员始终不能从较繁琐的绘图中摆脱出来的原因。

发明内容

本发明的目的在于提供一种基于Excel绘制勘探点平面图的方法，该方法使勘探点平面布置图绘制简洁快速，且与对应的勘探点类别表的各要素及对应的名称高度一致。其具体方法包括如下步骤：

1）设置Exel模板文件，包括

设置对应工作表，所述工作表中至少包含表头、列号采集区、用以表达不同勘探孔的图块和文字的CAD批命令生成区、勘探孔的孔座标输入区和要素输入区；

2）设置CAD模板文件，包括

根据所述要素设置对应的图层和定义所述图块及图块名，并编制“编号取坐标.dvb”小程序；

3）通过加载编号取坐标.dvb”小程序，生成对应的Excel表格，获取勘探点的坐标，从而得到所述工作表，启动所述CAD批命令，绘制出所述勘探点平面图。

所述绘制勘探孔平面图的方法的进一步设计在于，所述要素至少包含孔类别代号输入区和备用内容输入区；

所述绘制勘探孔平面图的方法的进一步设计在于，所述工作表为主、辅2个工作表；在所述主工作表中至少设置：所述列号的采集区、所述要素输入区、所述孔坐标的输入区和备用内容输入区和“勘探点类别一览表”表头；在辅工作表中至少设置所述孔类别代号和孔类别对应信息输入区。

所述绘制勘探孔平面图的方法的进一步设计在于，所述主工作表中列号采集区采用Excel函数自动取得各列的动态列号，供Excel宏调用。

所述绘制勘探孔平面图的方法的进一步设计在于，所述主工作表中“类别”列对应信息的输入，是按“孔类别代号”通过Excel公式从辅工作表中自动查找得到。

所述绘制勘探孔平面图的方法的进一步设计在于，所述CAD批命令是通过Excel宏命令自动生成符合CAD命令规则的一批命令，并通过全部选择和复制在所述工作表的CAD批命令生成区自动生成。

本发明利用Excel强大的数据计算处理功能使之与CAD强大的绘图功能结合，省略了CAD“SCR脚本文件”的生成和调用环节，方法简单，易于操作、灵活多变、适应性强、方便进行批量调整和修改、数据容量大，一次能展绘10000个以上勘探点。

本发明只需简单Excel宏命令和CAD的dvb小程序，就可以大大提高工作效率。使勘察工程中生成“勘探点平面布置图”的时间大大缩短，并能保证Excel制作的“勘探点类别表”和CAD制作的“勘探点平面布置图”中所表达的各勘探点对应要素的一致性，做到快速高效且错误率低。形成模板后可重复使用，技术效果明显，体现了较大的工程使用价值。

附图说明

图1是Excel模板文件中的主工作表的设计示例图。

图2是Excel模板文件中的辅工作表的设计示例图

图3是展绘有类别图块的宏设计的示意图。

图4是展绘图块文字的宏设计的示意图。

图5是展绘无类别图块的宏设计的示意图。

图6是宏的快捷键设置操作界面。

图7是本实施例CAD文件中所表达的各种类型勘探孔及所对应的图块、图块名的示例。

图8为“编号取坐标.dvb”小程序核心代码图。

图9是勘探孔分布的草图。

图10是生成的“勘探点类别一览表”。

图11是展绘的不同类别勘探点举例示意图。

具体实施方式

下面结合附图及实施例对本发明作进一步的说明。

．设置Excel模板文件

1.1新建工作表

在新建工作簿中，分别建立工作表标签名称为“展孔号、孔类别”的主工作表和工作表标签名称为“孔类别代号”的辅工作表。

主工作表包含表头、列号采集区、用以表达不同勘探孔的图块和文字的CAD批命令生成区，和勘探孔的孔座标输入区

主工作表中设置有列号采集区、CAD批命令生成区、勘探孔的孔座标输入区和各种表头。表头包含“勘探孔类别一览表”的表头和对应于CAD批命令生成区的表头，例如：“展绘孔标志等图块类”、“展绘孔号等文字类”、“展绘孔标志”的表头，还有对应于勘探孔的孔座标输入区的“X坐标”、 “Y坐标”的表头，此外设有“图块比例”、“字符高度”、“备用1”…等表头。请参见图1。

其中CAD批命令是通过宏来设置在CAD中生成用以表达不同勘探孔所对应的图块及文字的一批CAD命令。而列号采集区采用Excel函数自动取得各列的动态列号，供Excel宏调用。

辅工作表中设置对应的表头例如“孔类别代号”、“孔类别”等对应信息输入区，请参见图2

1.2各单元格输入内容

   主工作表中上述输入区的对应单元格的输入内容及该输入内容的用途说明见下列的表1 

表1   各单元格输入内容对照表

辅工作表中各单元格输入内容见表2。

表2    各单元格输入内容对照表

1.3通用宏的设计

用于绘制勘探孔平面图的CAD命令通过Excel文件中的宏形成CAD批命令。根据绘制的需求，具体设计成以下三种宏：

1）宏1：在该Excel模板文件中，按不同勘探孔所表达的对应类别图块来展绘孔标志，其宏命令程序见图3，快捷键为“Ctrl+a”。

2）宏2：在该Excel模板文件中，展绘孔号等文字类，见图4，快捷键为“Ctrl+b”。

3）宏3：在该Excel模板文件中，展绘孔标志不分类别，即所有不同的勘探孔都用一个图块来表达，其宏命令程序见图5，快捷键为“Ctrl+c”。宏的快捷键设置操作界面请参见如图6。

 

2．设置 CAD模板文件

2.1新建CAD文件并设定图层

新建CAD文件，在该文件中设置相关图层，例如“孔标志”层、“孔号”层、“引线”层、“图框”层等，并在图框层中设置图框模板。

设置图块及对应的图块名

设置的用于表达不同类型勘探孔的图块及对应的图块名与工作表1、2中对应名称和代号绝对一致，以此来保证Excel制作的“勘探孔类别表”和CAD制作的“勘探点平面布置图”中的各勘探点的类别、名称一致，使用过程中还可根据需要灵活修改或增加新的内部图块，只要保证图块内容、图块名、勘探孔类别代号、勘探点类别几者一致即可，其中图块、图块名、孔类代号、孔类别参见图7。

编写“编号取坐标.dvb”小程序

   该小程序核心代码如图8，编写完成并调试成功后，单独以“编号取坐标.dvb”文件存盘。

 

3．生成工作表，启动CAD批命令，绘制出所述勘探点平面图

3.1布点、编号并提取勘探点坐标

勘探孔的布点一般根据设计单位提供的总平面布置图来布置比较方便快捷，但之前必须要将设计单位提供的总平面布置图与CAD模板文件的尺寸单位（例如是以mm还是以m为单位）、比例因子及坐标调成一致，坐标的调整请见表1中的单元格D6向下。再将所述总平面布置图拷贝CAD模板文件中，接下来在“孔标志”层中，按拟建的建（构）筑物特点，根据勘察规范要求，初步布置勘探点。此时可用图块名为7的图块做为孔的标志来进行勘探孔布置，布置完成后应经审核人员审核通过，形成一份勘探孔分布的草图，请参见图9。

然后加载“编号取坐标.dvb”小程序，对审核通过的初步布置的勘探点，按一定规律进行编号。第1个勘探点自动写上编号“1”，点第2个勘探点自动写上编号“2”，点第3个勘探点自动写上编号“3”，……，点第n个勘探点自动写上编号“n”。编号结束后，点击鼠标右键或回车，“编号取坐标.dvb”小程序会自动生成包含“编号”、“X坐标”、“Y坐标”等内容的Excel表格。从而可获取对应于不同“编号”勘探孔的“X坐标”、“Y坐标”。

生成勘探点类别一览表

    打开Excel模板，将上述自动生成的包含“编号”、“X坐标”、“Y坐标”三列数据复制到该模板对应输入区。复制过程采用“选择性粘贴”菜单，并选择“选择性粘贴”中的“数值”选项，这样可不改变Excel模板原有数据格式。至此，完成“勘探点类别一览表”。

勘探点类别一览表或其他工作表可以直接打印，也可复制后粘贴到Word文档、CAD文档或其它文档中进行编辑排版。“勘探点类别一览表”的举例见图10。

按类别展绘勘探点图块

1）在Excel模板D2单元格中输入图块类代号所在列号，例如勘探孔类别代号在K列则输入“11”。在D3单元格中输入图块插入比例值，设置图块插入比例。根据确定的每一勘探孔的类别，在“孔类别代号”列中输入对应孔的类别代号（K6向下），例如输入“5”则代表一般静探孔。

2）按快捷键“Ctrl+a”，Excel宏命令自动生成符合CAD命令规则的一批命令，并自动全部选择和复制。如果要使输入图块不分类别就按快捷键“Ctrl+c”

3）打开CAD文件中的“孔标志”层，在命令行中执行“粘贴”指令，CAD自动按各勘探点类别、以各勘探点坐标值为中心展绘勘探孔。

展绘勘探点编号

   1）在Excel模板B2单元格中输入文字类代号所在列号，例如勘探点孔号在E列则输入“5”。在D4单元格中输入字符高度值，设置字符高度。

2）按快捷键“Ctrl+b”，Excel宏命令自动生成符合CAD命令规则的一批命令，并自动全部选择和复制。

3）打开CAD文件中的“孔号”层。在命令行中执行“粘贴”指令，CAD自动以各勘探点坐标值展绘各勘探点编号。

图面调整

1）在CAD文件中，可批量选中图层，例如“孔标志”层或“孔号”层中的图元，具体方法是：点右键→快速选择（左键）→图层→值（选图层“孔标志”或“孔号”）→确定。

2）使用CAD“特性”功能，可批量修改图块或孔号的相关设置值。关闭对话框，批量移动孔号调整到合适位置。

3）图块只允许调整大小（因为点的位置不允许改变），孔号的大小和位置均可调整。

4）生成的“勘探点平面布置图”举例如图11（只截取其中局部）。