华宁软件高级实用技巧

【摘要】：华宁岩土及土工软件广泛应用于工民建、铁路、公路、水利等工程勘察工作中。在使用中，工程技术人员经常要面临着大量的原始数据输入，在绘图时，经常要处理需大量的AutoCAD脚本文件（.scr）。本文介绍通过excel软件批量导入原始数据，提高了工程的数据输入效率;通过windows批处理程序（.bat）处理大量脚本文件，大大提高了绘图效率，也减少了人为操作错误。

【关键词】：excel，scr脚本文件，bat批处理程序文件，批量打印 引言

在工程软件使用过程中，大量的原始数据输入必不可少，华宁软件也不例外。在出成果图时，华宁采用了Auto CAD的脚本文件（.scr）输出，这需要我们在Autocad中逐个将scr文件生成dwg文件。若能批量导入数据和批量成图，将大大提高工作效率。本人在多年工作实践中摸索出一些技巧，和同行们一起分享。 数据输入

用记事本打开华宁工作目录下的原始数据，你会发现，它的数据存储格式是行与列，行与行之间是用回车符，列与列之间是用西文的逗号隔开的，这样我们可以用excel打开、编辑、保存。以单孔数据为例，编辑华宁工作目录下“DK.工程编号”文件，在华宁软件界面--输入第一行--存盘退出，用excel去打开“DK.工程编号”，显示文本导入向导--选择分隔符号--分隔符号选择逗号--完成，你会得到一个11列的数据表格，分别对应：“孔号，标高，孔深，……，勘探点类型”。按照这个格式，分别将数据下拉、填写或导入。孔号可以下拉输入，孔深、水位、外业日期、水位观测日期、勘探点类型手工输入或按批量复制，标高可通过测量采集软件（GPS等）按列导入，坐标可以在CAD环境下，在探点位置图上，用pline线将所有探点圆心按孔号顺序依次连完，用list查询命令，可以得到所有探点圆心坐标，将命令栏的历史记录复制到文本中，再用excel将坐标分离开，导入到单孔数据“DK.工程编号”对应的列中，最后一行全为END，表示输入结束。全部编辑完成后，最后就是存盘，我们还要存成华宁能认识的格式--即逗号分隔格式。幸好，excel给我们提供了一个保存类型：即.CSV（逗号分隔），我们选择“另存为--保存类型选择.CSV（逗号分隔）”，文件名输入” DK.工程编号”。 批处理确定工程地质剖面图的位置及配置

在一个工程出图时，我们常常会选用相同的绘图比例及剖面图配置，在华宁软件中绘图比例及剖面图配置是由“pmtydN.工程编号”、“ pmxzN.工程编号”两个文件管理的，“N”代表剖面号。在实际绘图时，如果采用相同的绘图比例及剖面图配置，我们只要将确定好第一个剖面的位置及剖面图配置，其余的就可以通过批处理（.bat）复制实现。

将下列代码复制到文本中（工程编号以“0”为例，“N”代表剖面个数），赋名存盘成：复制剖面图配置.bat

copy pmtyd1.0 pmtyd2.0

copy pmtyd1.0 pmtyd3.0

……

copy pmtyd1.0 pmtydN.0

copy pmxz1.0 pmxz2.0

copy pmxz1.0 pmxz3.0

……

copy pmxz1.0 pmxzN.0

放到华宁工作目录下，确定好第一个剖面的位置及剖面图配置后，执行一下“复制剖面图配置.bat”即可配置完所有的剖面。

3.合并脚本文件

在华宁最后绘图中，一个工程常常要面对几十个甚至上百个Auto CAD的脚本文件（.scr），在这之前，我们不得不在Auto CAD窗口内键入：scr或script命令，然后再去浏览窗口查找，选择一个要生成的scr文件，在电脑前待其完成、存盘，新建一个绘图窗口，再一遍又一遍重复以上步骤，直到所有scr文件全部绘完。就是说我们要在电脑旁守着，等着一个文件绘完，再接着手动查找选择下一个文件，要重复做几十遍，甚至几百遍。在计算机高速发展的今天，似乎有点不可思异，或者说忍无可忍，能不能让一个scr文件在AutoCAD窗口下绘制完成后，自动去绘下一个scr文件呢？于是，我们想到把众多脚本文件（.scr）合并成一个scr文件，这样就可以一次性完成多个scr文件的绘制了。合并文件command下有一个很简单的命令：copy *.scr all.scr，就是把所有后缀（或扩展名）为scr文件合并成all.scr文件，其顺序是按文件（.scr）名称排序。

我们的问题不只是合并那么简单，合并完的文件还要能在AutoCAD中绘出来，通过copy *.scr all.scr得到的all.scr文件会在一张图中，把所有的scr文件叠加绘在一起，结果就乱了。所以我们必须在一个图形绘制完成后，存盘关闭，再新建一个空白文件，在这个空白文件上进行下一个scr文件绘制，重复这个工作，我们就可以得到与scr相对应AutoCAD文件（.DWG），或者我们知道将要绘制的scr成图的大小（高度或宽度），当第一个scr文件绘制完成后，将绘完的目标图形从绘图区域移走，留出足够的空间，进行下一个scr文件的绘制，完成后，再移走，再绘制下一个，重复以上步骤就可以把众多的scr文件绘制成一个AutoCAD文件（.dwg）。

下面我们就来看看如何实现连续自动处理多个scr文件：在存放scr文件目录下，新建一个文本文件，用记事本打开，

编写代码如下：

new

acad.dwt

保存成new.txt文件，再通过以下命令在每一个脚本文件（.scr）结尾增加以上内容。

copy pmt01.scr+new.txt pmt01.scr

copy pmt02.scr+new.txt pmt02.scr

……

copy pmt0N.scr+new.txt pmt0N.scr

copy *.scr all.scr

我们可以将众多的copy 命令用一个批处理程序（.bat）去完成，新建一个文本文件，用记事本打开，将以上命令逐行填写进来，赋名存盘为hbscr.bat。将new.txt和hbscr.bat放到生成好的SCR文件目录下，双击此文件，就可以得到一个all.scr文件，这样就得一个可以一次完成多个scr文件绘脚本文件了。

当然，如果生成的（.scr）图的编号不是连续的，可以在pmt01.scr，……pmt0N.scr前面加上“if exist ”语句进行是否存在的判定，这样就会忽略不存在的文件。如：

if exist pmt01.scr copy pmt01.scr+new.txt pmt01.scr

if exist pmt02.scr copy pmt02.scr+new.txt pmt02.scr

……

if exist pmt0N.scr copy pmt0N.scr+new.txt pmt0N.scr

copy *.scr all.scr

如果我们要将众多的scr文件绘一个文件里，我们只要将上面new.txt文件的内容替换成以下内容就可以了（事先要知道成图区域，以420×297，出图比例1：10为例）。

move

All

回车符

0，0

-4200，0

这样得到的是一组横向排列的图形;

move

All

回车符

0，0

0，2970L

这样得到的是一组竖向排列的图形。

这样绘制完的CAD图很整齐，修改完毕，结合CAD批量打印等程序，就可以实现工程地质剖面图、钻孔柱状图、静力触探柱状图、波速成果图等批量打印工作。

4.结论

运用excel软件批量导入原始数据，批处理程序（.bat）合并AutoCAD脚本文件（.scr），结合CAD批量打印程序，能大大提高数据输入、绘图效率，减少人为操作上的错误，能让工程人员从重复的枯燥的劳动中解放出来。