This article contains a sample Grapher script which shows how to create a graph with multiple line/scatter plots from adjacent Y columns. The Y column automatically increments to the next column in order to create the next plot. So, for example, if you had a data file with 4 columns, the first line/scatter plot would use column 1 for x and column 2 for y, the second plot would use column 1 for x and column 3 for y, and the third plot would use column 1 for x and column 4 for y.
To run this script:
- Copy the script below, download the attached:CreatePlotwithDifferentY.bas
- In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 13.
- Double click on Scripter.exe to launch Scripter.
- Press Ctrl+A to select all of the existing lines then press Delete.
- 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.
- Click Script | Run to run the script.
- Copy the script below.
- Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
- Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
- Press Ctrl+V to paste it into the Script Manager.
- Click the Start/Resume icon ( ) in the Script Manager.
Sub Main Dim GrapherApp As Object Set GrapherApp = CreateObject("Grapher.Application") GrapherApp.Visible = True Dim Docs As Object Set Docs = GrapherApp.Documents Dim Plot As Object Set Plot = Docs.Add(grfPlotDoc) Dim Shapes As Object Set Shapes = Plot.Shapes 'Define path and filename File=GrapherApp.Path + "\Samples\Sample3.dat" Dim Graph1 As Object Set Graph1 = Shapes.AddLinePlotGraph(File,1,2) Increment = 2 While Increment < 24 'Adds a Line/Symbol plot Graph1.AddLinePlot(File,1,Increment,,,) Increment=Increment+1 Wend End Sub
Updated September 24, 2018