Метод DistanceFromPoint (Объект IIngeoContour)

Синтаксис

Язык	Описание
VBScript, JavaScript	FunctionDistanceFromPoint(aX, aY)
Visual Basic	Function DistanceFromPoint(ByVal aX As Double, ByVal aY As Double) As Double
Delphi	function DistanceFromPoint(aX: Double; aY: Double): Double;
C, C++	HRESULT DistanceFromPoint(double aX, double aY, double* Value);

Параметры

aX

X координата точки.

aY

Y координата точки.

Возвращаемое значение

Расстояние от точки до данной части контура.

Пример

Dim MapObjects, theObject1, theContour1 
Dim x1, y1, length 
	
if Application.Selection.Count = 1 then
  Set MapObjects = Application.ActiveDB.MapObjects 
  Set theObject1 = MapObjects.GetObject(Application.Selection.IDs(0)) 
  Set theContour1 = theObject1.Shapes.Item(0).Contour 

  x1 = 0
  y1 = 0
  length = theContour1.DistanceFromPoint(x1, y1) 
  MsgBox "Контур от точки (" & x1 &", " & y1 &") находится на расстоянии: " & length 
else 
    MsgBox "Выделите один объект." 
end if