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.
- 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 green arrow Start/Resume icon in the Script Manager.
Sub Main 'Initialize Grapher Dim GrapherApp, Docs, Plot, Graph1 As Object Set GrapherApp = CreateObject("Grapher.Application") GrapherApp.Visible = True Set Docs = GrapherApp.Documents Set Plot = Docs.Add(grfPlotDoc) '========================= 'User-defined variables '========================= 'File path and name File=GrapherApp.Path + "\Samples\Sample3.dat" 'Total number of plots to create numplots = 3 '========================= 'Create a line plot Set Graph1 = Plot.Shapes.AddLinePlotGraph(File,1,2) 'Define the first y column to add a plot using plotcol = 3 'Set the last y column to add a plot using lastplotcol = plotcol + numplots - 1 'Loop through all y columns to add a plot using While plotcol < lastplotcol 'Adds a line plot using column A as X and the next column as Y Graph1.AddLinePlot(File,1,plotcol,,,) plotcol =plotcol +1 Wend End Sub
Updated March 9, 2020