DispersePoints

The DispersePoints method separates overlapping points.

 

Syntax

object.DispersePoints( Method, SelectedPointsOnly, DisperseOverlapped, CheckDist, DistLimit, DistInc, AngIncDeg, UseLead, LeadAtBottom, LeadUsesPointColor, LeadLineColor, LeadLineStyle, LeadLineWidth, LeadArrowStartStyle, LeadArrowEndStyle, LeadArrowScale )

 

Parameter

Type

Description

Method

MVDisperseMethod

optional; dispersing methods

SelectedPointsOnly

Boolean

optional; true to limit to selected points only, false to disperse points on all layers

DisperseOverlapped

Boolean

optional; true to disperse overlapped points, false to disperse points within a specified distance

CheckDist

Double

optional; if DisperseOverlapped is true, radius from original position in page units

DistLimit

Double

optional; maximum radius allowed to move in page units

DistInc

Double

optional; searching distance increment in page units

AngIncDeg

Integer

optional; angle increment in degrees, alternating signs

UseLead

Boolean

optional; true to create text leader

LeadAtBottom

Boolean

optional; true to place lead at the bottom of the layer

LeadUsesPointColor

Boolean

optional; true to use point color for leader line

LeadLineColor

MVColor

optional; leader line color

LeadLineStyle

String

optional; leader line style

LeadLineWidth

Double

optional; leader line width in page units

LeadArrowStartStyle

MVArrowStyle

optional; arrow start style

LeadArrowEndStyle

MVArrowStyle

optional; arrow end style

LeadArrowScale

Double

optional; arrow scale

 

Remarks

Use the enumeration [mvColorRed], RGB value [RGB(255,0,0)], or number [255] to set a color.

 

Example

    'DispersePoints

    'Create a base map layer of the US and assign it to the variable "BaseMap"

    Set BaseMap = Plot.CreateBaseMap(FileName:=mvApp.ModuleFolder + "\Samples\us48ll.gsb")

    'Create a pin map of US cities and assign it to the variable "PinMap"

    Set PinMap = Plot.CreatePinMap(DataFileName:=mvApp.ModuleFolder + "\Samples\uscity.dat", _

        XCol:=3, YCol:=4)

    'Move the overlapping points and show a red leader line

    Plot.DispersePoints(Method:=mvDisperseAroundClock, UseLead:=True, LeadLineColor:=mvColorRed)

 

Used by: PlotDocument object