Surfer
郭教
热爱编程,希望自己能在地质物探软件方面有所作为
展开
-
Surfer13 自动绘图之绘制张贴图
Surfer绘制张贴图,与工程制图中点位图类似,如何实现呢,请见如下代码: '开始调用surfer绘制张贴图 Dim SurferApp As Object SurferApp = CreateObject("Surfer.Application") SurferApp.Visible = True Di原创 2018-01-11 21:31:36 · 4311 阅读 · 0 评论 -
Surfer13 自动实现网格化
Surfer作为一款强大的绘图软件,被广泛应用于地质地球物理及气象等领域。Surfer不仅界面友好,操作简单,同时提供了程序自动化功能,下面介绍如何通过程序实现自动实现网格化。 本次编程开发环境采用VB2010,Surfer版本为Surfer13,需要事先在引用中添加Surfer。具体代码如下: Dim SurferAppMapGRD As Object原创 2018-01-08 16:23:01 · 3862 阅读 · 2 评论 -
Surfer13如何实现自动白化
对网格化后的grd数据进行白化,可以实现对图形的剪裁效果,通过Surfer自动化也可以实现,代码如下: Dim SurferAppBHGRD As Object SurferAppBHGRD = CreateObject("Surfer.Application") SurferAppBHGRD.Visible = False Dim I原创 2018-01-09 16:17:41 · 5276 阅读 · 0 评论 -
Surfer13自动绘图之制作责任表
责任表,在工程制图中必不可少,下面将介绍如何使用Surfer绘制标准的责任表。责任表的距离见下图(单位mm):实现代码如下: '制作责任表 Dim XOffset, YOffset As Double '责任表偏移距 Dim XBasePosRspTalbe, YBasePosRspTal原创 2018-01-10 16:43:24 · 2094 阅读 · 0 评论