教你如何在MAPGIS的剖面图中画岩性花纹

教你如何在MAPGIS的剖面图中画岩性花纹


一般画剖面图的花纹是通过扫描纸质图件，用光栅图作底图，再通过“照猫画虎”法画岩性花纹。本办法可能不应列入二次开发版块，但它可以让你脱离光栅图画岩性花纹，并且还特别“标准”
1、圈出要画岩性花纹的区域，并单独形成一个线文件（如12.wl）；
2、把12.wl文件向右（或左）移动一定距离（如1000mm)；
3、把12.wl文件纳入到工程管理文件中，并新建12.wt点文件；
3、分岩性类画标准的岩性文件（点线文件），一般要求区域20×15cm（长×宽），水平
4、把岩性块文件（如13.wt 13.wl）整图旋转（按岩层视倾角取负值），并整块移动（按剖面图添加的适当位置）后保存；
5、添加13.wt 13.wl文件到12.wt 12.wl中，移动或复制岩性花纹块到12.wl区域内；
6、自动剪断线
7、去掉区域外多余的点和线；
8、移动区域内的点线，向左（或右）1000mm。
只要你的岩性花纹块文件比较标准，本办法就可以让你的岩性花纹画得标准。
本办法比较快，我利用此方法作了一套地质报告图件，速度并不比CAD差。欢迎大家相互探讨各自的心得。



教你如何画钻孔柱状图(一)--连接EXCEL
钻孔, EXCEL, 柱状
本帖最后由 lyh204205 于 2009-10-13 21:05 编辑

在我们生活中，和数据打交到最多的软件可能要数EXCEL。MAPGIS虽然集成了大量的处理GIS数据的模块，但它在计算机辅助成图设计方面确实与AutoCAD相差甚远。作为地质工作者，画柱状图是一项基本功，MAPGIS软件现已成为国人地学“通用”软件，要成一张柱状图很要费一番功夫：通常有二种方法可供选择，1）、手工用直尺铅笔在磅纸上作好后，经扫描仪扫描后，再经矢量化成图。这种方法比较正宗，也是最“笨”的办法，虽然叫“电脑制图”，其实应该叫“穿新鞋，走老路”；2）、用一个已作好的柱状图作为“模板”，去掉“多余”的内容，采用“阵列复制”功能，从而实现“精确”定位，反反复复的利用这一单一功能，作一张图繁杂得“要命”，不过其精度比第一种要高得多。
现在都是计算机时代，如果利用计算机成图还是如蜗牛般“快”，那就失去了电脑成图的意义。如何让电脑自动绘MAPGIS钻孔柱状图，是本讲座要探讨的主要内容。希望通过本讨论把你带入到“自动成图”的“天堂”中。由于它涉及到的内容较多，本讲座分为四部份：1、连接EXCEL；2、如何生成点文件（*.wt)；3、如何生成线文件(*.wl)；4、如何生成区文件(*.wp)。最后送大家一个编译好的生成钻孔柱状图的程序及VB的源代码程序（VB6下的工程文件等，经简单修改一下就可以变成你需要的模板）
本

来网上有较多的关于VB与EXCEL连接的程序源代码，为了内容的完整性，在此我把该代码写一遍，其形式如下：
Set Myapp = CreateObject("Excel.Application")
Myapp.Visible = true
Set MyBook = Myapp.Workbooks.Open("c:\windows\temp\GIS钻孔柱状图.xls")
Set mysheet = MyBook.Worksheets(1)
....
....
MyBook.Close
Myapp.Quit
至此，你的程序就可以“认识”电子表格（c:\windows\temp\GIS钻孔柱状图.xls）了，如你要访问第8行、第2列的数据，用代码mysheet.Cells(8, 2).value就可以了。
还有一个用到的就是确定EXCEL是有多少行（n），这个数值非常重要，因为如在钻孔中分多少层，我们事先不可知，数据是录入EXCEL中，要让电脑“自动判读”；一个钻孔要取多少件样，我们事先也不知道，它在特定的列有多少个（连续行）数据也得让电脑自行读取。这就需要一个函数n=mysheet.Range("A65536").End(xlUp).Row,有了这个数值，它就"会"计算出这个钻孔分了多少层，取了多少件样等内容
至此，电脑就架起了一道MAPGIS--EXCEL间的桥梁。



剖面图填充花纹
花纹, 剖面图
利用section对任意线的阵列方式，能轻松处理任意角度的剖面的岩性花纹:
1、将剖面不作区的线文件存入一个线文件中，如剖面.WL，需要作岩性花纹的线（作区控制线）
存入另一个线文件，如剖区.WL。
2、经自动剪断线，线转弧段将剖区.WL作成区文件:剖区.WP
3、打开section，将剖区.WL和剖区.WP处于编辑状态,点击辅助工具中的选区充填线,选择一个区后,设置好线颜
色,图层号,阵列线的角度,阵列线的间距,其它区方法相同.保存.
4、将阵列线间隔修改成需要的岩性线型。
5、对于第四系砂和砾石，直接采用图案库进行填充。