Аналитика

$FN=@Map.ClearFilename
$PP=@ProgramPath
@Map.SaveToTIF 300 24 $FN.bmp
@Run $PP\Utils\bmp2png.exe $FN.bmp
@Wait 3000
@Run del $FN.bmp
@Wait 3000
@Run del $FN.bmpw
@Wait 3000
@Run $FN.png

$Obj=@Map.SelectedObject
$Poly=@Map.GetObjectCoordinates $Obj
@Text.Text=$Poly
@Text.Delete 1-3
$Count=@Text.Count
$I=1
$S=
%Cycle
$Line=@Text.Line[$I]
@If ("$Line"="") Then @Goto %Complex
$X=@StringPart 2 $Line
$Y=@StringPart 3 $Line
$Z=@StringPart 4 $Line
$XYZ=$X $Y $Z
@If $S= Then $S=$XYZ Else $S=$S $XYZ
$I=$I+1
@If $I<=$Count Then @Goto %Cycle
@Dialog.Message Простий полiгон
@Goto %End
%Complex
$Line=@Text.Line[$I]
@If ("$Line"="") Then @Goto %SkipLine
$X=@StringPart 2 $Line
$Y=@StringPart 3 $Line
$Z=@StringPart 4 $Line
;
$Param=$X $Y $Z $Poly
$Res=%Library.PointInPoly $Param
@If $Res=0 Then @Goto %Composite 
;
%SkipLine
$I=$I+1
@If $I<=$Count Then @Goto %Complex
@Dialog.Message Складний полiгон
@Goto %End
%Composite
@Dialog.Message Збiрний полiгон
;
%End