RangeRing Object
The RangeRing object contains the properties of a range ring. Range rings are added with the AddRangeRing method of the Shapes collection.
Derived from: Shape object (All methods and properties of Shape apply to this object.)
The following table provides the properties of the RangeRing object.
|
Property |
Description |
|
This provides the range ring radius distance |
|
|
This provides the number of rings |
|
|
'True' to display a symbol at the range ring center. 'False' to hide the range ring center symbol |
|
|
'True' to display rings as squares. 'False' to display rings as circles |
Example
The following script demonstrates how the RangeRing object is used in reference to the Shapes collection.
Sub Main
Dim SurferApp As Object
Set SurferApp = GetObject(, "Surfer.Application")
SurferApp.Visible = True
Dim Plot As Object
Set Plot = SurferApp.Documents.Add
Set MapFrame = Plot.Shapes.AddBaseMap(ImportFileName:=SurferApp.Path+"\samples\co2010.gsb")
Set BaseLayer = MapFrame.Overlays(1)
'Create Range Ring
Set RangeRing = BaseLayer.Shapes.AddRangeRing (x:=-104.568, y:=38.851, showsquare:=False, showcenter:=False, radius:=0.4, rings:=2)
End Sub