Follow

How can I automate saving my GRF file to a new name?

This article contains a sample script for opening an existing GRF file and saving it to a new file name.

To run this script:

  1. Copy the script below, or click here to download the BAS file: Open_SaveAs.BAS.
  2. In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 12\Scripter.
  3. Double click on Scripter.exe to launch Scripter.
  4. Press Ctrl+A to select all of the existing lines then press Delete.
  5. If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
  6. Click Script | Run to run the script.
     

*********

Sub Main

Dim GrapherApp As Object
Dim Plot As Object
Set GrapherApp = CreateObject("Grapher.Application")

GrapherApp.Visible = False
Dim Docs As Object
Set Docs = GrapherApp.Documents

Path="C:\temp\"

  Set Plot = GrapherApp.Documents.Open(Path+"Test.grf")
  Plot.SaveAs(Path+"Test.gpj")
  Docs.Close

  Set Plot = GrapherApp.Documents.Open(Path+"Plot1.grf")
  Plot.SaveAs(Path+"Plot1.gpj")
  Docs.Close

GrapherApp.Quit

End Sub

 

Updated October 28, 2016

Was this article helpful?
0 out of 0 found this helpful
Have more questions? Submit a request

0 Comments

Please sign in to leave a comment.