专栏名称: 酒醒梦已残

酒醒梦已残系列视频教程涉及地质、物化探、水工环及三维建模内容，详细剖析了mapgis、surfer、voxler、Arcgis及三维建模软件等在地学中的应用，课程从基础出发，结合实际工作中的案例，汇集10年工作经验之精华。

【Surfer】地图导出不再难！Surfer脚本轻松实现批量导出JPG/TIF/PDF/BMP格式

酒醒梦已残 · 公众号 · 科技创业科技自媒体 · 2024-12-16 08:47

正文

· 点击上方蓝字关注我们 ·

主要内容

在本次教程中，我们深入探讨了Surfer软件中脚批处理地图导出的强大功能。

首先，我们展示了如何通过编写脚本来自动化导出地图的过程，极大提高了工作效率。

接着，我们详细介绍了脚本的具体使用方法，包括如何设置脚本参数以及如何根据个人需求调整导出选项。特别强调了两种路径输入方式：一种是手动输入文件路径，只需要把文件路径复制粘贴进来即可；另一种是通过图形界面鼠标选择路径，这种方式更为直观。

此外，我们还讲解了如何根据不同的使用场景输出不同格式的文件，例如高质量的JPG图片和专业的PDF文档，并展示了如何调整导出图片的分辨率以满足不同的打印和展示需求。在优化过程中，我们分享了一些实用的技巧和最佳实践，帮助用户进一步提升脚本的性能和输出质量。

最后，为了确保学员能够顺利应用这些知识，将提供两种版本的脚本代码，并将其包含在购买视频教程的课件中。这样学员们就可以直接在自己的项目中应用这些脚本，并可以根据实际情况进行定制和优化。

软件下载三种方式：

1.加入QQ①群198216160 QQ②群1433154468 请勿重复加群

2.微信群下载

3关注公众号，后台回复"surfer"

加入Surfer微信交流群：

为了随时随地能与大家多多交流，我们建立了微信交流群，本群旨在交流Golden Software系列软件(Sufer、Strater、Voxler、Grapher)使用技巧。识别下方二维码，备注：surfer。然后邀请加入“surfer交流群”，群内提供软件下载、优先分享课程资料！

↑↑↑别忘了微信扫描上方二维码，关注我一下

关注公众号，后台回复“surfer”,可获得最新版surfer

视频教程：

更多精彩丰富的视频尽在酒醒梦已残实战训练营：

酒醒梦已残精品课程目录：

'打开目录中的所有 SRF 文件并单独导出'每个导出文件的名称将与 SRF 的名称匹配''酒醒梦已残QQ86951056,QQ交流群（433154468,198216160）Sub Main()    ' 初始化 Surfer      Dim SurferApp As Object      Set SurferApp = CreateObject("Surfer.Application")      SurferApp.Visible = True  
    ' 用户输入的文件夹路径      Dim inputFolderPath As String      inputFolderPath = InputBox("请输入包含 SRF 文件的文件夹路径:", "选择 SRF 文件夹")      If inputFolderPath = "" Then          MsgBox "未选择输入文件夹，程序将退出。", vbExclamation          Exit Sub      End If  
    Dim outputFolderPath As String      outputFolderPath = InputBox("请输入保存结果的文件夹路径:", "选择输出文件夹")      If outputFolderPath = "" Then          MsgBox "未选择输出文件夹，程序将退出。", vbExclamation          Exit Sub      End If  
    ' 提示用户选择输出格式      Dim exportFormat As String      exportFormat = InputBox("请输入导出格式（可选：TIF, BMP, PCX, JPG, PDF）", "选择导出格式", "JPG")      exportFormat = UCase(exportFormat)  
    If Not IsValidExportFormat(exportFormat) Then          MsgBox "无效的导出格式！程序将退出。", vbExclamation          Exit Sub      End If  
    On Error GoTo FileError  ' 开启错误处理      While srfFile <> ""          Dim exportFile As String          exportFile = outputFolderPath & "\" & Left(srfFile, InStrRev(srfFile, ".") - 1) & "." & exportFormat                  Dim Plot As Object          Set Plot = SurferApp.Documents.Open(inputFolderPath & "\" & srfFile)                  If Not Plot Is Nothing Then              Dim filterId As String              Plot.Export2 exportFile, filterid:=filterId, Options:="KeepAspect=1, HDPI=600, VDPI=600"              Debug.Print "成功导出: " & srfFile & " 到 " & exportFile              exportedCount = exportedCount + 1                     Debug.Print "无法打开文件: " & srfFile          End If  
        srfFile = Dir()  ' 获取下一个文件      Wend  
    MsgBox "处理完成! 共导出 " & exportedCount & " 个文件。", vbInformation  
    ' 退出 Surfer 应用程序      SurferApp.Quit      Exit Sub  
FileError:      Debug.Print "错误: " & srfFile & " - " & Err.Description      Resume Next  End Sub

「往期推荐」

全国村、乡、县、市、省五级行政区划数据

ArcGIS Pro3.3.2 ArcGIS软件(含各类插件工具和符号库)

点击阅读原文，获取更多精彩内容