|
|
鉴于一些同志希望看到我编写的程序生成的柱状图之效果，却又止步于对某些操作的不明白上，所以特意补充一个试验性的简单操作流程，如果对生成的柱状图感到满意再详细阅读说明吧，不满意的话权当打发时间了呵呵。
1、excel安全性设置。2003，工具-选项-安全性-宏安全性-选择低；2007，office按钮-excel选项-安全中心-宏设置-选择允许所有宏。
2、点击生成柱状图工作簿“表头”工作表内的那个“运行”按钮。会依次弹出对话框，前四个有默认内容，直接点确认即可。当依次弹出6个对话框“请选择第n（n=1、2、3、4、5、6)个分隔关键字"是，请依顺序依次用鼠标选中第一个表头模板（A）中的文本内容为”回次号”、“层号”、“层号”（层号既是第二也是第三个关键字）、”倾角“、”样号“和”简易水文“的单元格，按确定即可。
3、程序运行数秒后，会弹出提示成功生成文本文件的对话框。文本文件生成在”生成柱状图工作簿“所在文件夹中。
4、把“文字”、“样品铁轨”和“地质描述”文本文件改为wat，“线”、“层区线”改为wal。打开mapgis文件转换系统，”输入“-输入明码文件-选中已经做好的5个明码文件，mapgis不允许批量转化，为了避免文件名混乱，最好是导入一个，转化一个，存点或线然后关闭导入的明码文件后再导入另一个，依次类推。
5、转换成图形文件后，把系统库换成我提供的系统库，就可以看一看效果了。
在生成柱状图.xls 中已经做好了相关VBA宏，参照说明运行宏，会生成5个文本文件到该表格所在目录下。
把文本文件改成相应的明码格式后缀，在文件转换系统中，点击“输入明码格式文件”，选择一个明码文件后，点“文件-存点（或线）”就OK了
忘了说明一点：样品分析结果可以根据实际化验的元素项目添加或减少相应的列，不过注意别忘了“表头”和“样品分析结果表”要对应。
请认真阅读详细说明：
一、mapgis自动生成柱状图原理
    1、原理很简单，不需要对mapgis软件进行二次开发。在excel中编写VBA程序subMapgisDraw()，通过它读取已输入到同一工作簿各工作表中的数据生成mapgis点、线的明码格式文件，然后在文件转换系统系下转换成图形文件。进行处理的数据表格结构清晰、格式符合一般的规范并且使用者在一定的范围内根据需要做出调整。操作简单，实用性较强。
   2、程序运行后生成“文字”、“线”、“层区线”、“样品铁轨”、“地质描述”5个txt文本文件。请把“文字”、“样品铁轨”和“地质描述”改为wat（样品铁轨线不是区而是点文件，子图号为833，请在你的子图库中添加1*1的一个正方形区块子图，默认颜色为黑色1，边框线也是黑色但请取另一值，否则子图颜色改变时边框线颜色也会随之改变），其它两个改为wal。
    由于区文件的明码格式过于复杂，而拓扑造区更为简单，所以柱状图的区文件只提供供拓扑造区的线文件。需要自动线剪断线，但没有拓扑错误。
   3、由于表头文字内容和格式变化不好把握，请自行建立一个表头文字文件，今后可以一直使用。
二、工作簿结构和格式说明
    1、“生成柱状图.xls”是用来生成明码文件的包含宏的工作簿，为了能够运行该程序，请先设置应用程序对宏的访问（不清楚的同志请按F1搜索信任中心宏设置相关内容）。把表格设置成允许访问任何宏后按下“表头”文件中的运行按钮即开始运行程序。
    
    2、工作簿中有四个表格，改变名称不会影响程序的运行（但弹出对话框时的默认输入内容将不能用了），“表头”作为第一个工作表的位置不允许改变。
        表头：前面八行是预先设置一些参数，这里只说明一些字面上不好理解的：
       ①所有称为“标号”的是指样品铁轨线旁边对样品的标注；
       ②“版面”指每个层的地质描述，也是mapgis的一种点类型，版面页边距是地质描述部分左上角距离水平和垂直界线的距离；
       ③文字沉底和文字靠左：值为0表示回次、分层和采样的数据在柱状图中居中，其它任何整数则分别文字沉底、文字靠左；
       ④标号区在铁轨左：值为0表示样品号标注区在铁轨线右边，其它任何整数相反；
      ⑤版面输入：因为我的mapgis软件在转换“版面”类型的点明码格式文件时只能录入4个字节，因此这一项必须为0，它将在每一层的地质描述中都输入一个固定的字符串。如果你的mapgis能录入所有字符串内容，请告知。我可以帮助你添上输入地质描述的代码。
       ⑥ 点注释字体和字形参数，数字与效果的对应关系如下：
字体参数    :=0单线    :=1宋体    :=2仿宋    :=3黑体    :=4楷体                    
字形参数    :=0正体    :=1左斜    :=2右斜    :=3右耸    :=4左耸    :=100正体阴影    :=101左斜阴影    :=102右斜阴影    :=103右耸阴影    :=104左耸阴影
    3、回次表、分层表、采样表数据列的列数和相对位置不能改变，并且请特别注意数字格式：
       小数的数字格式：数字，自定义，0.00
       整数的数字格式：数字，自定义，0
    如果你设置的数字格式为数值，-1234.10那么输出的明码格式会在数值后多出一个空格来，因为这种格式对应于0.00_。
三、程序运行时弹出的对话框说明
    1、选择表头模板：可以选择A、B、C或其它表头，选择范围同A绿色部分。你可以自己制作一个模板。
   表头模板说明（以A为例）：0代表坐标（0，0），横向上0所在的这一行的数字代表每列的宽度，纵向上则不同，代表每一行顶部到原点的纵向距离，注意必须且仅能在每一连续行的左边一格中添加值，如自-至-进尺前面，自-至-层厚前面，...；如果某个内容跨多个列，那么必须在每列都填上该内容，如回次进尺、换层位置...；如果某个内容跨多个行，那么只在最顶上一行添加该内容，如回次号、层号、样号.....
    
    如果你把0改成其它数字，那么纵坐标都要变化。
    
    注意：回次表、分层表和采样表中含有的项必须在模板中存在相应的对应项，并且是连续对应的。否则文字会移动到其它列去。
  
    2、选择回次数据（分层数据、采样数据）：从第一行数据开始选择列数固定，行数任意但至少要一行的数据区域。
    3、选择6个分隔关键字，分别代表了回次线、分层线、样品线的起点格和终点之后的一格，如回次线从“回次号”画至“层号”之前，层次线从“层号”画至“倾角”之前，样品线从“样号”画至“简易水文”之前，“层号”重复了一次是为了更通用的缘故。 |
|
[复制链接]
雷达卡
发表于 2010-1-31 13:58
提升卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
[s:139][s:139]
