[kikslou]

Добрый день!
Уважаемые коллеги, исходя из совета ВОХА решил создать тему в данном разделе. Тема в разделе LISP была удалена.

Прошу помочь написать для меня небольшой LISP для нанесении отметок на поперечник (работаю в Цивил 2021), т.к. я в программировании совсем дуб.
Концепция идеи: за основу берется проектная отметка на поперечнике и от неё делается расчет и расстановка отметок в "подвале".
Примерная блок-схема:
;ввод команды
;выбрать размерный стиль - текущий
;ввод масштаба (1/100/200/250/500/1000)-умолчание 1
;*начало цикла1
;выбрать текст содержащий высотную отметку (текс/мтекст)
;считать текст (переменная1)
;указать точку отсчета поправок (точка Х/У)
;запомнить (точка Х/У) - использовать У
;выбрать линию (указать точку) расстановки искомых отметок (линия сетки боковика для отметок) Хл/Ул
;**начало цикла2
;указать точку перелома профиля поперечника (искомую для простановки отметки) точку
;считать Х1/У1
;произвести расчет: переменная1-(У-У1)=У1,1
;создать текст в точке(Х1,Ул) (стиль взять из переменная1), значение текста =У1,1
;переход в начало цикла 2
;**конец цикла2
;*конец цикла1
;конец

Контакты: kikslou@mail.ru / 938-42-42-367
Заранее всем отозвавшимся СПАСИБО!

[kikslou]

Всем привет!
Спустя некоторое время мне помог очень хороший человек, с его позволения я выкладываю его наработки в данном направлении
Всем отозвавшимся спасибо за помощь!