[off]

Добрый вечер. Нужна программа на LISP-е, которая выполняла бы несколько простых, вполне определенных действий с числовыми значениями записанными однострочным текстом. Есть поперечник с двумя исходными отметками, длиной и уклоном линии. Нужно отнять от исходной отметки некую константу, и пересчитать получившуюся отметку с учетом длин и уклона. Подробнее примерный алгоритм описан в прилагающемся файле.
Так как программа узкоспециализированная, так сказать разового применения и вряд ли кому еще пригодится, то потраченное время готов компенсировать суммой 1000р. Деньги переведу(сбербанк или яндекс) первому кто опубликует тут более менее рабочий вариант.

[Кулик Алексей aka kpblc]

http://www.lee-mac.com/textcalculator.html - попробуй этот вариант. Из "задания" не понял ничегошеньки: при открытии в чистом ACAD2014 получил сообщения о прокси-объектах, об отсутствии shx и проч. http://autolisp.ru/2012/03/16/howto-provide-dwg/ - говорили, говорили, а толку ноль.

[off]

Почистил файл от мусора (мой 2007 молчит о нем). Калькулятор Lee Maca уже пробовал - встретил его в одной из коллекций программ для работы с текстом. Не подходит. Смотрел еще несколько аналогов ( калькулятор текстов из комплекса KAI, сборку команд TextMath). Все не то.
Скопирую сюда текст ТЗ
Порядок действий:
1. Ввод константы C с клавиатуры (возможность создать макрос чтобы не повторять ввод каждый раз или чтобы С запоминалось между запусками программы).
2. Получение значение текста, что-то типа (setq H1 (ssget ":S" '((0 . "TEXT")) )) (Ткнул в исходную отметку и считал значение текста в переменyю H1)
3. Вычисление H2=Н1-С
4. Указание места для расположения итогового результата, отрисовка текста (H2) с заданными свойствами (высота текста 2.5, поворот 90, стиль ESKDU) (стильна самом деле не важен, лишь бы была возможность его настроить, в крайнем случае можно принять текущий)
5. Получение значений L и I из текста. (Ткнул в исходные тексты L и I и считал значение текста в переменные L и I)
6.Доп.переменная, Side для определения стороны куда размещать H3. Два значения в зависимости от соотношения координат Y у текста H1 и текста I.
5.Вычисление H3=H2-L*I/1000
6. Отрисовка текста H3 с заданными свойствами (высота текста 2.5, поворот 90, стиль ESKDU) со смещением вправо/влево (определяется значением переменной Side) на величину L*5

[gomer]

пока не набежали меценаты, логичный вопрос: Сколько?

[off]

Сообщение от gomer пока не набежали меценаты, логичный вопрос: Сколько?

Чего сколько?

[VVA]

Сообщение от off Чего сколько?

Сколько строк текста должно быть в программе

Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)
Программа с функциями для действий с текстовыми примитивами. v.1.3
Увеличение всех отметок на определенную величину
Суммирование выбранных чисел, которые содержаться МТексте

[off]

Сообщение от VVA Сколько строк текста должно быть в программе

Это не учебная задача. Количество строк в программе не имеет значения. Нужен только результат. Ситуация следующая - коллеги-проектировщики вручную правят поперечники (см.приложение к 1 посту), т.к. в программе, их создавшей не удалось автоматизировать нужное вычисление. Как обычно поперечников много, операция рутинная, а штатного программиста нет.
Калькуляторы текста смотрел, но нужно чтобы выполнялось несколько определенных действий. Загнать это в макрос не получается.

[trushev]

Сообщение от off коллеги-проектировщики вручную правят поперечники

Попробуйте http://forum.dwg.ru/showthread.php?t=119413

[off]

Сообщение от trushev Попробуйте http://forum.dwg.ru/showthread.php?t=119413

Попробовал, спасибо. Штука интересная, но не подходит - насколько понял по одному запуску Ваша программа подписывает отметки и расстояния по готовому поперечнику. В моей же ситуации у отметок, которые нужно вычислить даже нет корректных ординат.

[Boxa]

1. ИМХО, автор ошибся разделом. Этот топик должен быть тут http://forum.dwg.ru/forumdisplay.php?f=33
2. Даже если бы я очень хотел помочь, то лично у меня ничего бы не получилось, в виду туманности ТЗ

Где красные числа и комментарии к ним?
Где синие? Что с чем и для чего, вообще не понятно...

[off]

Сообщение от Boxa 2. Даже если бы я очень хотел помочь, то лично у меня ничего бы не получилось, в виду туманности ТЗ

Чуть выше в файле есть текст в котором расписана последовательность действий. С небольшими дополнениями скопировал его в #3.

[Boxa]

Вы не обижайтесь, но текст я так же читал и все равно ничего не понял. Видимо проблема в том, что Вы смотрите на это задание как человек, которому некоторые моменты очевидны и не требуют отражения в тексте, я же смотрю на это задание глазами человека, который никогда не сталкивался с Вашей работой и последовательность действий совершенно не ясна.
Попробую восстановить последовательность:
1. Спросить у пользователя значение "С"
2. Попросить пользователя тыкнуть в "H1"
3. Вычислить "Н2" = "Н1" - "С"
4. Попросить пользователя тыкнуть точку вставки текста и вставить туда Н2

4.1 Тут какие то настройки текста

5. Попросить пользователя тыкнуть в "L"
6. Попросить пользователя тыкнуть в "I"
7. Вычислить "H3"
8. Вставить "H3" со смещением L*5 по оси X, относительно точки указанной в п.4

8.1 Направление смещения зависит от соотношения координат Y у "Н1" и "I"

ЗЫ.
Хотя мне это все без надобности, я на LISP не пишу =о)

[off]

Сообщение от Boxa Вы не обижайтесь, но текст я так же читал и все равно ничего не понял. Видимо проблема в том, что Вы смотрите на это задание как человек, которому некоторые моменты очевидны и не требуют отражения в тексте, я же смотрю на это задание глазами человека, который никогда не сталкивался с Вашей работой и последовательность действий совершенно не ясна. Попробую восстановить последовательность: 1. Спросить у пользователя значение "С" 2. Попросить пользователя тыкнуть в "H1" 3. Вычислить "Н2" = "Н1" - "С" 4. Попросить пользователя тыкнуть точку вставки текста и вставить туда Н2 4.1 Тут какие то настройки текста 5. Попросить пользователя тыкнуть в "L" 6. Попросить пользователя тыкнуть в "I" 7. Вычислить "H3" 8. Вставить "H3" со смещением L*5 по оси X, относительно точки указанной в п.4 8.1 Направление смещения зависит от соотношения координат Y у "Н1" и "I" ЗЫ. Хотя мне это все без надобности, я на LISP не пишу =о)

Все именно так как Вы описали. Никаких специфических/профессиональных данных нет. Есть три исходных текстовых примитива, значения которых используются, константа которую задает пользователь и несколько простейших математических операций. Самым туманным мне кажется момент с определением стороны смещения текста H3. Тут можно заставить пользователя указать эту сторону (как в команде offset) - но это лишний клик, а можно вычислить ее по разности координаты Y точек вставки текста H1 и L (или I - не важно).

[Do$]

Сообщение от Boxa 1. ИМХО, автор ошибся разделом. Этот топик должен быть тут http://forum.dwg.ru/forumdisplay.php?f=33

Поддерживаю. Если есть полное понимание того, что хотите и есть осознание того, что вам это необходимо - ищите исполнителя, доводите до него все подробности ТЗ, заключайте договор и т.д. и т.п.

[off]

Подготовка полного тех задания, организация тендера и заключение договора займут слишком много времени. Программа нужна для разового применения. Не нужна документация, универсальность и отлов ошибок. Прога нужна здесь и сейчас, завтра несколько инженеров станут инжеНеграми и будут решать задачу с помощью калькуляторов.

[Do$]

Сообщение от off Подготовка полного тех задания, организация тендера и заключение договора займут слишком много времени.

Сколько пишу программы, еще ни разу никто не составлял мне полного ТЗ и не организовывал тендеров. Вы предоставляете задание примерно в таком виде, как описали в посте. Потом ищете желающего написать программу. Далее, общаетесь в скайпе/вживую для обсуждения деталей. Ну и в процессе написания программы будут возникать еще вопросы, на которые нужно будет оперативно давать ответы. Тендеры и договора - это по желанию, если у вас времени вагон. Всегда можно найти компромисс, было бы желание.

Сообщение от off Программа нужна для разового применения.

Для разового применения программы не пишутся. Разово как раз-таки проще и быстрее на калькуляторе посчитать.

[off]

Do$, Возьметесь за написание программы?

[Do$]

Хе-хе, насоветовал, на свою голову
Я бы предпочел, чтобы это сделал кто-то другой. По двум причинам: первая - я уже давно пишу на NET и браться за LISP мне сейчас довольно некомфортно, вторая - у меня очень мало свободного времени.
Я думаю, что найдутся другие желающие. Но если что - пишите в ЛС, обсудим.

[off]

Проблема решена. Программа написана.