[Garik82]

Добрый день коллеги.
Отзовитесь кто сможет помочь.
Задача такая: Очень нужна программа для отрисовки откосов типа alxDike только на "голом" Lisp т.е. без поддержки функций vl-* и vlax-*
т.к. Работать программа будет на платформе IntelliCAD которая не поддерживает расширения lisp а также компилированные arx и fas приложения.
Обмен за труд соответственно будет, но об этом в личку.

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

http://www.google.ru/custom?hl=ru&in...%3Azeqjjx-kn0v

[Garik82]

Спасибо Алексей за ссылку, только я там уже везде побывал
и к сожалению не один описанный там метод не подходит под условия задачи: "голый" Lisp и нет поддержки arx.
Ну нет у меня возможности использовать функции vl-* vlax-*.
Поэтому взываю к помощи.
Кто может решить такую задачу..?

[Do$]

Все возможности alxDike в голом AutoLISP вряд ли получится реализовать.

[Garik82]

ну а просто нарисовать откос по двум линиям
с запросом как строить, перпендикуляр к бровке\подошве или параллельно и указанием типа откоса укрепленный\не укрепленный.
возможно на голом Lisp?

[Do$]

Возможно, только придется писать аналоги vlax-curve- функций... То еще веселье

[Garik82]

"Возможно" уже оптимистичней звучит
Помимо голого Lisp, есть еще вариант загрузки приложения SDS в формате dll файла.
Может кто то, в таком виде сможет сделать приложение для рисования откосов?

[TararykovDG]

Простой алгоритм построения откосов с кодом на lispе описан в книге
"САПР на базе AutoCAD - как это делается" Сергей Зуев, Николай Полещук
стр. 905-911

[Garik82]

Сообщение от TararykovDG Простой алгоритм построения откосов с кодом на lispе описан в книге "САПР на базе AutoCAD - как это делается" Сергей Зуев, Николай Полещук стр. 905-911

Спасибо, за ссылку на книгу. Посмотрел, программа хорошая,
но к сожалению там используются все те же функции vl-* vlax-*

[ShaggyDoc]

Рисование откосов на "чистом" Автолисп я делал еще для Автокад-10. Быструю программу такого типа там сделать невозможно. Чтобы изображение откоса было правильным по топографическим условным знакам, приходится выполнять программное удлинение каждого штриха откоса от бровки до подошвы. Это достаточно медленный процесс.

Тем не менее так нарисовали, наверное, несколько тысяч км откосов на топографических планшетах.

О проблемах см. Рисование откосов в ruCAD

[Garik82]

Сообщение от ShaggyDoc Рисование откосов на "чистом" Автолисп я делал еще для Автокад-10. Быструю программу такого типа там сделать невозможно. Чтобы изображение откоса было правильным по топографическим условным знакам, приходится выполнять программное удлинение каждого штриха откоса от бровки до подошвы. Это достаточно медленный процесс. Тем не менее так нарисовали, наверное, несколько тысяч км откосов на топографических планшетах. О проблемах см. Рисование откосов в ruCAD

Медленно, так медленно главное чтобы рисовал.
Могли бы вы помочь нам решить эту задачу?

[ShaggyDoc]

Могли бы вы помочь нам решить эту задачу

Чтобы помочь, я упоминавшуюся книгу писал.

Подсказываю алгоритм без использования vl-функций:

1. Создать программно "разбивочный" блок из одного единичного отрезка, направленного перпендикулярно оси X. Длина отрезка равна нормативной длине короткого штриха (2 мм на бумаге).

2. Разбить бровку откоса этим блоком с помощью команды _MEASURE с опцией _BLOCK, задавая расстояние между вставками, равное расстоянию между штрихами (2 мм на бумаге по норме)

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

Возможен вариант:

2. Разбивать и полилинию подошвы, но уже по количеству точек, полученных при разбивке бровки.

3. Извлекать координаты точек вставок блоков, формируя список координат точек на бровке и подошве, а сами блоки удалять.

4. Проводить по известным координатам точек отрезки требуемой длины. Для нечетных - от точки на бровке до точки на подошве. Для четных - от точки на бровке по направлению к точке на подошве, длиной 2 мм на бумаге.