Что-то подобное как раз есть. Собираем два отрезка (вдоль сторон участков) и даем команду Вставка - Засечки - Пересечение створов. Программа отстроит точку.
сильно много действий, неудобно. а так сразу в режиме сбора хлоп и готово. если честно я с необходимостью так отстраивать участок встречался крайне редко до последнего времени, но за последних пару дней пришлось отстроить участков 30-40 таких.
Предлагаю ускорить процесс при помощи скрипта Digitals. Алгоритм простой:
- Снимаем пометку со всех объектов карты.
- Помечаем 2 последних собранных объекта.
- Вызываем команду Вставка>Засечки>Пересечение створов
И “слишком много действий” сведутся к нажатию одной кнопки.
У меня проблема.
В Кадастровом плане не распечатывается отдельный слой (обмеження). Говоря простыми словами печатает всё кроме обмеження. Я этот слой отрисовую в default laeyr. Прикладываю проблемный файл. Помогите у меня таких файлов аж 180 шт. Сделал, а теперь не могу распечатать 
01_Рєпка В.С._КАД_ПЛАН.dmf (90.8 KB)
А так?
P.S. Только я не увидел в Вашем письме предложения к разработчикам. 
01_Рєпка В.С._КАД_ПЛАН.dmf (89.8 KB)
нет ни каких изменений
Пожалуйста, не надо постить одно и тоже сообщение в 3-х ветках сразу.
Добрый день!Может это нескромно, но предложу организовать в проге простановку высотных и плановых отклонений от проекта как в автокадовских лиспах.
Подробнее, пожалуйста.
Есть фактические отметки.Забиваем проектную отметку и тык в фактческую- результат отклонение.
9.pdf (54.7 KB)
А чем не устраивает обычный вычисляемый параметр, который берет значение фактической высоты и отнимает значение проектной высоты? Параметр и будет хранить результат отклонения.
Міцного здоров’я всім!
Дозвольте звернутись із проханням щодо захисту скриптів. Детальніше - скрипт автоматизує досить суттєву частину роботи (створення ХМЛ), та є переживання, що розійдеться всюди. Чи можна зорганізувати таким чином, аби неможливо було прочитати текст скрипта та використати його шляхом копіювання. Наприклад - закривши у архів з паролем текст скрипта, тощо…
Наперед вдячний.
П.С. Повірте, не настільки вже той скрипт добрий, та шкода праці. Не один місяць створював.
П.П.С. Вибачте за дубляж повідомлення, спочатку написав у темі “Все про скрипти”.
а вы совсем не альтруист) а как же код в массы?:))
кстати некоторые вещи я б и сам хотел запоролить)
В старой документации присутствует только таблица линий и румбов
Для удобства неплохо было реализовать построение по длинам и румбам
$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|ID11340000|1|0 $dx $dy 0|1|ID11340000|1|4 $nn
;
@Map.SelectByParameters 1|4>=$nn
@Map.Selected.CreateCaptions ID93 0 0 1 0 0,1 1
Вид | Показать все
@Map.SelectLayer $nn
@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
Пользуйтесь
Добавьте, пожалуйста этот скрипт с небольшим описанием в библиотеку полезных скриптов. Скрипты, разбросанные по различным темам, сложно потом отыскивать.
Цілком згідний з користувачем “Пупкин”, захист скриптів необхідна штука, поперше виключається, або мінімізується можливість непотрібного розповсюдження скрипту, а подруге є такі випадки, коли за твій комп’ютер сяде “криворука мавпа”, і по необережності спортить всю пророблену роботу над якоюсь кнопкою.
Так що з нетерпінням чекаю, коли з’явиться можливість захисту скриптів.
Дякую за розуміння та увагу
В случае с кадастровыми планами в Digitals выводится условные обозначения ненужные и не несущие смысловой нагрузки.
Было бы неплохо реализовать возможность выводить только помеченные условные обозначения или же как вариант запрет/разрешение на вывод условных знаков для слоев.
А почему просто не убрать условные знаки в слоях, где они не нужны в DMT шаблоне?
Вариант с уборкой условных знаков не подходит по следующим причинам:
- если убрать условные знаки остаются подписи;
- проще пометить 5 условных знаков чем удалять несколько десятков;
- хочется большей гибкости и автоматизации
Предлагаю как вариант добавить в пунктик Вставка Условные обозначения вывод условных знаков заранее определенный пользователем