How can I use clipping via Grapher automation to limit the symbols shown on my line/scatter plot?

This article contains a sample script for creating a line/scatter plot and using clipping to limit the symbols shown.

To run this script:

1. Copy the script below, or click here to download the BAS file: NULL criteria.BAS
2. In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Grapher 13\.
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.
    

OR:

1. Copy the script below.
2. Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
3. Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
4. Press Ctrl+V to paste it into the Script Manager.
5. 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

 Set Graph = Shapes.AddLinePlotGraph(GrapherApp.Path+"\samples\tutorial.dat")

 Dim ScatterPlot As Object
 Set ScatterPlot = Graph.Plots.Item(1)

ScatterPlot.symbolFreq = 1
ScatterPlot.symbol.Index = 38
ScatterPlot.symbol.size = 0.35
ScatterPlot.symbol.color = RGB(255,0,0)
ScatterPlot.symbol.lineColor = grfColorBlue

ScatterPlot.Clipping.UseCriteria = True
ScatterPlot.Clipping.UseNullCriteria = True
ScatterPlot.Clipping.AddNullRange(8,12)

End Sub

Updated September 24, 2018