ShowHeader=1 Left=600 Top=388 Width=56 Height=26 Visible=1 Anchor=1 Names=Бiсектриса ; www.geosystema.net/forum/viewtopic.php?f=1&t=2539&start=120#38388 ; 09.12.2016 $Count=@MapCount @if $Count=0 @Break $Sel=@Map.SelCount @if $Sel=0 then @break Виберiть елементи $Obj=0 ;Parameters $Dist=100 $Param=4 %Cycle $Obj=@Map.NextSelected $Obj $PntCnt=@Map.Object[$Obj].Count @if $PntCnt<3 then goto %SkipElem ; якщо контур замкнений $Closed=@Map.Object[$Obj].Closed @if $Closed=1 then @goto %CloseElem $PntCnt=$PntCnt-1 %DrawBS @if $PntCnt=1 then @goto %SkipElem @if $Close=1 then @goto %CloseElem $PrvCnt=$PntCnt-1 $LnAng1=@Map.Object[$Obj].LineAngle[$PntCnt] $LnAng2=@Map.Object[$Obj].LineAngle[$PrvCnt] @goto %Next %CloseElem $EndPnt=@Map.Object[$Obj].Count $EndPnt=$EndPnt-1 $LnAng1=@Map.Object[$Obj].LineAngle[$EndPnt] $LnAng2=@Map.Object[$Obj].LineAngle[1] %Next $PntCur=@Map.Object[$Obj].Point[$PntCnt] $LnAng1=@Calc Replace("$LnAng1",",",".") $LnAng1=@DequoteText $LnAng1 $LnAng2=@Calc Replace("$LnAng2",",",".") $LnAng2=@DequoteText $LnAng2 $LnAng2=$LnAng2+180 @if $LnAng2>360 then $LnAng2=$LnAng2-360 $Angle=$LnAng1-180+($LnAng2-$LnAng1)/2 @if $LnAng2<$LnAng1 then $Angle=$Angle+180 $Rad=$Angle*3.1415926535897932384626433832795028841971/180 $ACos=@Calc Cos($Rad) $PntX=@StringPart 1 $PntCur $PntY=@StringPart 2 $PntCur $PntX=@Calc Replace("$PntX",",",".") $PntY=@Calc Replace("$PntY",",",".") $PntX=@DequoteText $PntX $PntY=@DequoteText $PntY $DX=$PntX+$ACos*$Dist $DX=@Calc Replace("$DX",".",",") $DX=@DequoteText $DX $ASin=@Calc Sin($Rad) $DY=$PntY+$ASin*$Dist $DY=@Calc Replace("$DY",".",",") $DY=@DequoteText $DY $PntX=@Calc Replace("$PntX",".",",") $PntY=@Calc Replace("$PntY",".",",") $PntX=@DequoteText $PntX $PntY=@DequoteText $PntY $Layer=@Map.Object[$Obj].Layer $N=@Map.AddObject 0|1|$Layer|2|0 $PntX $PntY 0|0 $DX $DY 0|1|$Layer|1|$Param $Angle $PntCnt=$PntCnt-1 @if $PntCnt>0 then @goto %DrawBS %SkipElem $Sel=$Sel-1 @if $Sel>0 then @goto %Cycle %End { 424D46050000000000003600000028000000120000001200000001002000000000001005000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C5C5C5004B4B4B00575757007A7A7A00606060004F4F4F00505050005B5B5B0057575700505050005050500061616100393939004B4B4B00666666006E6E6E002828280093939300FDFDFD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0098989800C2C2C200FFFFFF007E7E7E0059595900D2D2D200C0C0C00056565600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00838383003535350084848400FFFFFF007C7C7C00FFFFFF00EFEFEF0005050500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CDCDCD002F2F2F00FFFFFF00FFFFFF007C7C7C00FFFFFF00FFFFFF00FFFFFF00B4B4B400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F6F6F6004D4D4D00B8B8B8009B9B9B00FFFFFF00EAEAEA00A6A6A600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006C6C6C006A6A6A00FFFFFF00FFFFFF00FFFFFF00696969002E2E2E00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A2A2A2004C4C4C00F6F6F600FFFFFF00FFFFFF00FFFFFF00FFFFFF00A1A1A100F2F2F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DCDCDC0041414100D1D1D100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFEFE0075757500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C5C5C008D8D8D00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0060606000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F5F5F5005C5C5C00F3F3F300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBFBF00B3B3B300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005E5E5E00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0083838300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007A7A7A00F6F6F600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CBCBCB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E1E1E10088888800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0065656500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AEAEAE00DFDFDF0029292900F1F1F100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005F5F5F00FFFFFF0056565600DCDCDC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F4F4F400F9F9F900FFFFFF00BEBEBE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 }