Проставить размеры на отрезках. Лисп.

Подскажите пожалуйста написать лисп или макрос или сборку .NET для расчленения полилинии и отображения длин сегментов как указано на схеме. Красный и зеленый контур нужно расчленить на сементы которые будет пересекать перпендикулярно полилиния по середине каждой стороны полилинии.

 

Оффтоп

меня эта часть вопроса вводит в ступор

А для каких целей эти манипуляции? где это применимо?
Зачем расчленять? Почему именно пересекающие полилинии, а не окружности, точки или блоки? Длина этих полилиний всегда 5 или как?
Длина от середины до концов отрезка не может отличаться (т.к. делит его пополам), но в приложенном примере отличается..

 

Все верно длина должна быть одинаковая.
Все это дело необходимо для оформления потерь и разубоживания рудных блоков при их отработке. Перпендикулярная полилиния всегда длинной 5м. и представляет собой обозначение сечения.

 

и все-таки как понимать фразу "Подскажите написать"? Нужна помощь в написании или готовое решение?

 

Можно и не расчленять, если получется сделать так чтобы расстояния между сечениями подписывались. Нужно готовое решение т.к. сам написать не в состоянии, но очень бы хотелось научиться самому писать такие штуки.

 

Создаём размерный стиль, с подавлением всех линий и стрелочек, оставляем только текст, задаем ему нужную точность, 0.00, и указываем префикс м. И делаем его текущим.
Вызываем команду put-dist, указываем сначала наш контур, потом величину отступа.

Программа переделена из вот этой

 

Огромное человеческое спасибо.
Может кто-нибудь поможет с лиспом который нарисует перпендикулярные линии по контуру как показано на схеме в первом сообщении?

 

еще вариант.
высота текста в системной переменной TEXTSIZE.
запуск: _GR-HALF

 

Ну прям "ваще" спасибо большое люди добрые

 

Интересно, как самому научиться такие вещи делать?

 

http://geodesist.ru/forum/threads/Лиспы-для-autocad.4817/page-2#post-203748

 

Уважаемый Alexandr-GR помогите найти ошибку в лиспе.

 

это к автору http://forum.dwg.ru/showpost.php?p=602521&postcount=66

 

Уважаемый Alexandr-GR, не могли бы вы подредактировать свой код. Нужно что бы подписи расстояний выводились 12м без м, И еще чтобы на конце построенной перпендикулярной линии всегда был текст со значением "-" но размещение его всегда только с наружней строны относительно контура.

 

Огромнейшее спасибо вам. А не могли бы вы поделиться кодом, что бы в дальнейшем я сам мог в него чего-нибудь добавлять

 

Могу. Смотри в личке.

 

Большое спасибо

 

Не могли бы поделится кодом на кнопку ?

 

Код:

^C^C^P(if (not C:GR-HALF) (load "GR-HALF-DST_1_1")) GR-HALF