文件
hole.MoveNext
Loop
Close #1
Close #2
End Sub
2.3 专题图生成
岩土工程专题图的生成就是在以上形成选择地层数据文件的基础上,利用OLE技术驱动SURFER的绘图宏命令,进行图形的绘制。程序代码如下:
Private Sub Command1 Click() '生成标高等值线图
Dim suf as object‘定义surfer对象变量
Set suf = GetObject(, "surfer.App") '如果SURFER已启动,取得SURFER系统控制权
If Err Then
Err.Clear
Set suf = CreateObject("Surfer.App")'如果SURFER没有启动,则启动SURFER系统
Else
id = suf.FileNew()‘打开一个新的绘图空间
End If
id1 = suf.GridData(Path＄+ "\conture.DAT", xcol=0,
ycol=1,zcol=2,OutGrid = Path＄+ "\conture")
id2 = suf. MapContour ( app. path + " \ conture ",
SmoothAmount = 2)‘绘制等值线
id4 = suf.MapPost(app.path + "\postzk", xCol = 0, yCol= 1, LabCol = 2, SymSize =0.3, Symbol = 12)‘绘制钻探点符号并标注,第1列为X坐标,第2列为Y坐标,第3列为标注字符,符号大小0为0.3 cm(作者设置绘图单位为cm),符号类型为第12个符号。
End Sub
Private Sub Command1 Click()‘生成顶板标高3D曲面图
Dim suf as object‘定义surfer对象变量
Set suf = GetObject(, "surfer.App")‘如果SURFER已启动,取得SURFER系统控制权
If Err Then
Err.Clear
Set suf = CreateObject("Surfer.App")'如果SURFER没有
启动,则启动SURFER系统
Else
id = suf.FileNew()‘打开一个新的绘图空间
End If
id1 = suf.surface(Path＄+ "\conture.")'生成3D曲面图
End Sub
对于其他等值线图的生成与标高等值线图的生成相同,只需将Griddata命令中的zcol更改为相应数据的列(作者的数据文件中埋深=3,厚度=4)即可。
3. 结语
随着现代城市建设的快速发展,岩土工程设计施工对岩土工程勘察报告提出了越来越高的要求,只包含简单的文字和剖面图、柱状图的成果报告显然已不符合时代发展的需求,提供具有
