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 |
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 |
optional; leader line color |
|
LeadLineStyle |
String |
optional; leader line style |
LeadLineWidth |
Double |
optional; leader line width in page units |
LeadArrowStartStyle |
optional; arrow start style |
|
LeadArrowEndStyle |
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