Composite Object

A Composite object contains a set of one or more Shape objects (including other Composite objects). Composite objects are created by combining several objects by using the Selection.Combine method.

Derived from: Shape object (All methods and properties of Shape apply to this object.)

The following table provides the properties of the Composite;object:

Property

Description

Shapes

Returns the Shapes collection of the composite object.

The following table includes all methods of the Composite object:

Method

Description

BreakApart

Break apart the composite object into component objects.

Remarks

Not all of methods and properties can be changed for objects within a composite object. However, the Shapes property can be used to set the following methods and properties:

  • All the properties/methods for the polyline, polygon, point, text, metafile, bitmap, spline polyline,ellipse, rectangle, and rounded rectangle objects within a composite object.

  • The Name, Visible, Type, and SetZOrder properties for objects.

  • The Shapes property can use the BreakApart method to break apart a composite object within the composite object.

Example

The following script demonstrates how the Composite object is used in reference to the PlotDocument object.

The Shapes property can use the BreakApart method [Composite] to break apart a composite object within the Composite object.

Example

The following script demonstrates how the Composite object is used in reference to the PlotDocument object.

Sub Main

'Declares SurferApp as an object

Dim SurferApp As Object

'Creates an instance of the Surfer Application object and assigns

'it to the variable named "SurferApp"

Set SurferApp = CreateObject("Surfer.Application")

'Makes Surfer visible

SurferApp.Visible = True

'Declares Plot as an object

Dim Plot As Object

'Creates a plot document in Surfer and assigns it to the variable

'named "Plot"

Set Plot = SurferApp.Documents.Add(srfDocPlot)

'Declares Composite as an object

Dim Composite As Object

'Imports a boundary file and assigns it to the variable named

'"Composite"

Set Composite = Plot.Import(SurferApp.Path+"\Samples\ca2010.gsb")

End Sub