Shape Object

 

The Shape object is a base object for all graphical objects within the map document. The properties and methods of this object are shared by all objects derived from the Shape object.

 

Properties

Application

Attrib1

Attrib2

Height

HyperlinkStr

Left

Parent

PIDName

Rotation

Selected

SIDName

Top

Type

Visible

Width

 

Methods

Delete

Deselect

Select

SetZOrder

 

Example

The following script shows how the Shape object is used with an ellipse.

 

Sub Main

'Declares mvApp as an object

 Dim mvApp As Object

 

'Creates an instance of the MapViewer Application

'object and assigns it to the variable named "mvApp"

 Set mvApp = CreateObject("MapViewer.Application")

 

'Makes MapViewer visible

 mvApp.Visible = True

 

'Declares Plot as an object

 Dim Plot As Object

 

'Creates a map document in MapViewer and assigns

'it to the variable named "Plot"

 Set Plot = mvApp.Documents.Add(mvDocPlot)

 

'Declares PlotLayers as an object

 Dim PlotLayers As Object

 

'Assigns the map document layers to the

'variable named "PlotLayers"

 Set PlotLayers = Plot.Layers

 

'Declares CurrentLayer as an object

 Dim CurrentLayer As Object

 

'Assigns the active plot layer to the

'variable named "CurrentLayer"

 Set CurrentLayer = PlotLayers.ActiveLayer

 

'Assign the shapes collection to the

'variable named "MapShapes"

 Set MapShapes = CurrentLayer.Shapes

 

'Declares Ellipse as an object

 Dim EllipseShape As Object

 

'Creates an ellipse and assigns it to the

'variable named "EllipseShape"

 Set EllipseShape = MapShapes.AddEllipse(4.5,2,6,7)

End Sub