Доброго дня. Якщо по пунктах, тодi наступне:
- Використати пункт меню Карта-Генералiзацiя (робити це, бажано, на новiй картi з окремою лiнiєю, оскiльки дана команда “спростує” все на вiдкритiй картi).
- Дописати пiд свої потреби скрипт з даного посилання.
P.S.; ------------------------------------------------------------- ; Знайти відхилення вершин полілінії від вищевказаного відрізка ; ------------------------------------------------------------- $Obj=@Map.SelectedObject @If $Obj=0 @Break ; ------------------------------------------------------------- ; шар, в який записуються створенi перпендикуляри $PLayer=3 ; ------------------------------------------------------------- @Text[1].Clear $Count=@Map.Object[$Obj].Count @While $Count>0 %LoopPoints $Pnt=@Map.Object[$Obj].Point[$Count] ; шукаємо найближчий об'єкт до вибраного $NObj=@Map.NearestObject 0 $Obj $Pnt @If $NObj=0 Then @Goto %SkipPoint $NPnt=@Map.PerpendicularToNearestLine $Pnt $NObj $PLayer Reverse @If $NPnt<>1 Then @Break Помилка створення перпендикуляра до лiнiї $ObjN=@Map.Count $ObjID=@Map.Object[$ObjN].ID $Len=@Map.Object[$ObjN].LineLength[1] ; $Line=$Count - $Len @Text[1].Add $Line ; %SkipPoint $Count=$Count-1 %LoopPoints @Window.Refresh $Buf=@Text[1].Text @Dialog.Message $Buf ;