ShowHeader=0 Left=60 Top=155 Width=30 Height=30 Visible=1 Names=Побудова по дирекційних кутах або румбах ;Побудова по дирекційних кутах або румбах ; Створюються тільки точки. В скрипту прописано шар ID11 "Проектні лінії" ; Потім потрібно набирать полігон по цих точках. ; Для збору полігону по по дир. кутах краще "Натиснути Ctrl-D під час збору" ;1. Потрібно помітить першу точку та запустить скрипт ;2. Обираємо Дирекційні кути або румби ;3. Для румбів вводимо чверть (1 2 3 4) та кут через "," (град,мин,сек) ;4. Вводимо відстань ;На екрані з'явится точка. Вона атоматтично стане першою. Повторюємо дії пунктів 3,4 скільки потрібно. ; $V=@Dialog.Select Виберіть|Дирекційні кути|Румби %next $n=@Map.NextSelected @If $n=0 then @Break Помічаємо першу точку $nn=@Map.Object[$n].Parameter[4] $x=@Map.Object[$n].Parameter[-4] $x=@Calc Replace("$x",",",".") $x=@DequoteText $x $x=@DequoteText $x $y=@Map.Object[$n].Parameter[-3] $y=@Calc Replace("$y",",",".") $y=@DequoteText $y $y=@DequoteText $y @Map.DeselectAll @If $V=Румб then @Goto %end1 $a=@Dialog.Ask Кут 90,30,30 @If $a= then @Goto %end $d=@Dialog.Ask відстань @If $d= then @Goto %end $a=@Calc Replace("$a",".",",") $a=@DequoteText $a $a=@DequoteText $a $d=@Calc Replace("$d",",",".") $d=@DequoteText $d $d=@DequoteText $d $a1=@StringPart 1,$a $a2=@StringPart 2,$a @If $a2= then $a2=0 $a3=@StringPart 3,$a @If $a3= then $a3=0 $a=(($a3/60+$a2)/60+$a1)*3.1415926535897932384626433832795028841971/180 %next1 $ac=@Calc Cos($a) ;@Break $ac $dx=$x+$ac*$d $dx=@Calc Replace("$dx",".",",") $dx=@DequoteText $dx $dx=@DequoteText $dx $as=@Calc sin($a) $dy=$y+$as*$d $dy=@Calc Replace("$dy",".",",") $dy=@DequoteText $dy $dy=@DequoteText $dy $nn=$nn+1 $N=@Map.AddObject 0|1|ID11|1|0 $dx $dy 0|1|ID11|1|4 $nn ; @Map.SelectByParameters 1|4>=$nn @Map.Selected.CreateCaptions ID93 0 0 1 0 0,1 1 @Map.SelectLayer $nn ViewShowAll @Goto %next @Goto %end %end1 $a=@Dialog.Ask Чверть (3,90,30,30) $a=@Calc Replace("$a",".",",") $a=@DequoteText $a $a=@DequoteText $a $a1=@StringPart 1,$a $a2=@StringPart 2,$a $a3=@StringPart 3,$a @If $a3= then $a3=0 $a4=@StringPart 4,$a @If $a4= then $a4=0 $a=($a4/60+$a3)/60+$a2 @If $a1=2 then $a=180-$a @If $a1=3 then $a=180+$a @If $a1=4 then $a=360-$a $a=$a*3.1415926535897932384626433832795028841971/180 $d=@Dialog.Ask відстань @If $d= then @Goto %end $d=@Calc Replace("$d",",",".") $d=@DequoteText $d $d=@DequoteText $d @Goto %next1 %end { 424DC6070000000000003600000028000000160000001600000001002000000000009007000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 }