ThiessenPolygons

The ThiessenPolygons method creates boundaries from selected points.

Syntax

object.ThiessenPolygons( LimitThiessenPolygonsToSelArea, CreateShapeType, CreateShapesOnAnotherLayer, LayerName, FillFGColor, FillBGColor, FillTransparent, FillPattern, FillPatternScale, FillPatternCoverMode, LineColor, LineStyle, LineWidth, SymbolSet, SymbolIndex, SymbolSize, SymbolFillColor, SymbolLineColor, IDMethod, IndexStartVal, CreatePID, CreateSID, CreateAttrib1, CreateAttrib2, PIDPrefix, SIDPrefix, Attrib1Prefix, Attrib2Prefix, PIDSuffix, SIDSuffix, Attrib1Suffix, Attrib2Suffix, KeepOrgObj )

Parameter	Type	Description
LimitThiessenPolygonsToSelArea	Boolean	optional; true to limit the diagram to the selected object area
CreateShapeType	MVThiessenShapeType	optional; object type
CreateShapesOnAnotherLayer	Boolean	optional; true to create the shapes on another layer
LayerName	String	optional; if CreateShapesOnAnotherLayer is true, layer name
FillFGColor	MVColor	optional; foreground fill color if CreateShapeType is mvThiessenArea
FillBGColor	MVColor	optional; background fill color if CreateShapeType is mvThiessenArea
FillTransparent	Boolean	optional; true to make background fill transparent if CreateShapeType is mvThiessenArea, FillPattern must be stock or vector
FillPattern	String	optional; fill pattern name if CreateShapeType is mvThiessenArea
FillPatternScale	Double	optional; vector pattern scale if CreateShapeType is mvThiessenArea
FillPatternCoverMode	MVFillCoverMode	optional; picture pattern: cover or tile - if CreateShapeType is mvThiessenArea
LineColor	MVColor	optional; line color if CreateShapeType is mvThiessenCurve
LineStyle	String	optional; line style name if CreateShapeType is mvThiessenCurve
LineWidth	Double	optional; line width in page units if CreateShapeType is mvThiessenCurve
SymbolSet	String	optional; symbol set name if CreateShapeType is mvThiessenPoint
SymbolIndex	Integer	optional; symbol index number if CreateShapeType is mvThiessenPoint
SymbolSize	Double	optional; symbol size in page units if CreateShapeType is mvThiessenPoint
SymbolFillColor	MVColor	optional; fill color if CreateShapeType is mvThiessenPoint
SymbolLineColor	MVColor	optional; line color if CreateShapeType is mvThiessenPoint
IDMethod	MVIDCreationMethod	optional; object ID method
IndexStartVal	Integer	optional; index start value when the IDMethod is mvIDCreateionPrefixIndexSuffix
CreatePID	Boolean	optional; true to create primary IDs when the IDMethod is mvIDCreateionPrefixIndexSuffix
CreateSID	Boolean	optional; true to create secondary IDs when the IDMethod is mvIDCreateionPrefixIndexSuffix
CreateAttrib1	Boolean	optional; true to create attribute 1 IDs when the IDMethod is mvIDCreateionPrefixIndexSuffix
CreateAttrib2	Boolean	optional; true to create attribute 2 IDs when the IDMethod is mvIDCreateionPrefixIndexSuffix
PIDPrefix	String	optional; indexed primary ID prefix when CreatePID is true
SIDPrefix	String	optional; indexed secondary ID prefix when CreatePID is true
Attrib1Prefix	String	optional; indexed attribute 1 ID prefix when CreatePID is true
Attrib2Prefix	String	optional; indexed attribute 2 ID prefix when CreatePID is true
PIDSuffix	String	optional; indexed primary ID suffix when CreatePID is true
SIDSuffix	String	optional; indexed secondary ID suffix when CreatePID is true
Attrib1Suffix	String	optional; indexed attribute 1 ID suffix when CreatePID is true
Attrib2Suffix	String	optional; indexed attribute 2 ID suffix when CreatePID is true
KeepOrgObj	Boolean	optional; true to keep original objects

Remarks

Use the enumeration [mvColorRed], RGB value [RGB(255,0,0)], or number [255] to set a color.
The symbol number can be found in the Symbol Properties dialog. Add 32 if you are using TrueType fonts such as GSI Default Symbols.

Example

'ThiessenPolygons

'Create three points on the layer and assign them to the variables "Point1" and "Point2" and "Point3"

Set Point1 = Plot.Layers.ActiveLayer.Shapes.AddPoint(3.5, 1)

Set Point2 = Plot.Layers.ActiveLayer.Shapes.AddPoint(3.75, 1.5)

Set Point3 = Plot.Layers.ActiveLayer.Shapes.AddPoint(4, 1.25)

'Select the boundary containing the points (can also select the points themselves

'if you don't want to bound the thiessen polygons created)

'Select the area with PID "16073"

Plot.Layers.ActiveLayer.Shapes.SelectByPID(PIDName:="16073")

'Create theissen polygons using the points within the selected polygon

Selection.ThiessenPolygons(LimitThiessenPolygonsToSelArea:=True, FillPattern:="None")

Used by: Selection collection