ShowHeader=1 Left=687 Top=143 Width=26 Height=26 Visible=1 Anchor=2 Names=Перерахунок координат ; робота з DLL $Count=@MapCount @if $Count=0 @Break $Sel=@Map.SelCount @if $Sel=0 then @break Виберiть елементи ;Parameters SC 63(1) $source=+proj=tmerc +lat_0=0 +lon_0=23.5 +k=1 +x_0=1300000 +y_0=-9214.688 +ellps=krass +towgs84=25.0,-141.0,-78.5,0,-0.35,-0.736,0.0 +no_defs ;$source=SK42 ;$source=+proj=tmerc +a=6378245 +rf=298.3 +k=1 +x_0=1300000 +y_0=-9214.688 +pm=22 +zone=1 +lat_0=0 +lon_0=23.5 +towgs84=25.0,-141.0,-78.5,0,-0.35,-0.736,0.0 +no_defs ;Parameters WGS64 $target=+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs ;Parameters SK42(6) ;$target=+proj=tmerc +lat_0=0 +lon_0=33 +k=1 +x_0=6500000 +y_0=0 +ellps=krass +towgs84=25.0,-141.0,-78.5,0,-0.35,-0.736,0.0 +no_defs $Obj=0 %Cycle $Obj=@Map.NextSelected $Obj $PntCnt=@Map.Object[$Obj].Count $PntList= %MakeList $Pnt=@Map.Object[$Obj].Point[$PntCnt] $PntList=$PntList $Pnt $PntCnt=$PntCnt-1 @if $PntCnt>0 then @goto %MakeList ; $Str=@DLLExec GeoGed\GeoGed.Transfer '$source' '$target' '$PntList' $Res=@StringPart 1,$str @if $Res>0 then @goto %Process ; обробка помилки ; @Dialog.Message $Res @Goto %End %Process $PntCnt=$Res $PntList=@Calc Replace(Delete("$Str",1,Pos(",","$Str")),",",";") %DrawEem $Pnt=@StringPart $PntCnt;$PntList $Pnt=@DequoteText $Pnt @Map.Object[$Obj].Point[$PntCnt] $Pnt $PntCnt=$PntCnt-1 @if $PntCnt>0 then @goto %DrawEem $Sel=$Sel-1 @if $Sel>0 then @goto %Cycle %End { 424DFE04000000000000360000002800000012000000110000000100200000000000C804000000000000000000000000000000000000FFFFFF00FFFFFF00FDFEFF00FCFFFD00F9F8F400E0C7B100CBA17D00BD8A5F00C0865900C1875900CA997200DABDA400F5F1EA00FFFDFF00FEFFFE00FFFFFF00FFFEFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E2CFB500A4541600C8A07A00F9F7F500FFFFFF00FFFFFF00FFFFFF00FAFDFC00CCAC8900A3511000D0AE8D00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFFFD00FFFFFF00D6B39400AE6B3A00FFFFFF00F2EDEC00BE966E00DCDDD500E0D9D200E2D5CB00DFD4C300ECE6E300FFFFFF00C0845900B9804E00FFFFFF00FFFFFF00FFFFFF00FCFEFD00E2CFBD00B06A2F00FFFFFF00C8AB8B00AC5B1400A8591900FFFFFF00EDE7E000FFFFFF00FFFFFF00F8F7F500D4C5AF00FFFFFF00C9987200C19E7800FFFFFF00FFFFFF00F6F6F200A6551700FFFFFF00D7CCC200DDC4B100B86C3000B06B2F00D8B89C00FFFFFF00FFFFFF00FDFEFF00FFFFFF00FFFFFF00DEC9B600FFFFFF00AA622400F4E9E200FEFEFF00DCC5AF00CF9C7B00E9EBE700FFFFFF00CDB49C00B96F3700BA743E00B6815900FFFFFF00FFFFFF00FEFFFF00FFFFFF00EFE4DC00F0EDEA00F1F4F200EADBC700BC855700FDFEFE00CB9E7900FEFFFF00CAA98B00EBDFD400C3865400B4754000B8784100AE5E2000C59F7300FFFFFF00FBFFFE00FFFFFF00D4B8A200C6A67C00C4967700FFFFFF0097450B00FBFDFA00BF8A5D00FFFFFF00A5521200B66C3200BA733D00BE7A4700B8783800C9A68600D4C0AC00FFFFFF00AF744800C8997300BC804F00D7BCA400E1D5C600FFFFFF00A65B2200F4F1EB00C0865900FFFFFF00A7541500BA773D00B7743C00B9743A00B16B3700DDBFA800C3906400E1CDBD00B0652500B4753900AF682C00F6F7EE00EAE5E000FFFFFF00B66B3500F0E9E000BF885D00FFFFFF00B1713900C6936D00B5744200CA9F7400D1AB8D00C4926000B16D3700BD733B00B8764200BF7C4A00BA713A00B5703800E6E3DA00FFFFFF00AD652F00F6F2EC00CEA07E00F7FAF500C8B09700FFFFFF00FFFFFF00F4FCFB00CDB5A200E8DCCC00B7753C00BB7C4B00BE7D4800BE7D4A00B8793F00AD6F3B00E4D4C100B7815500AA6A3200FAFEF900E1C8B600C5946400F2E9DE00BB7F4E00BB8E5D00B4692F00B6713A00B4713B00BB764100BE7C4A00BE7D4A00BE7C4A00BB6F3900C8977000FEFFFF00B26C3700B15E1D00CCA38600F7F8F200A4581B00FFFFFF00D7B69700AD5D1F00B3733900BA7B4A00B87C4B00BC7C4900BD7C4A00BD7C4900B9774200B2652700E0C6B600FFFFFF00E1CFBF00DFCCBF00F8F6EF00FFFEFD00E6D8C700A85E2600FFFFFF00DBC8B300B15F1F00B3692A00B56F3700B4733800B3703600B0692300AC693600CFB29700F4F3EF00F2F0EB00FFFFFF00FFFFFF00FFFFFF00FEFEFE00FFFFFF00D7C2A900A9612600FCFEFF00FFFFFF00DEC4AE00C8956F00C48B5F00CA977800E4D0BD00FFFFFF00DCBEA500A8540C00B06D3200FFFFFF00FEFDFD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBE0CF00A6581F00BD8A5A00F2EFE800FFFFFF00FFFFFF00FFFFFF00F6F8F400CFA88200A55F2600D3BB9F00AF6B3B00FFFFFF00FEFDFF00FFFFFF00FFFFFF00FFFFFF00FDFFFE00FEFEFD00F9FBF700E5D3C300D2AC8C00C3956E00C1916500C0926900D0A88500E2CBB800F8F6F100FBFBFB00F3EBE100FDFDFD00FEFFFE00FFFFFF00 }