[vn]

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

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

Лично я остерегаюсь использовать LwDefault где бы то ни было... Слишком высока вероятность, что найдется местный кулибин, который установит значение в 211 системной переменной и все построения накроются медным тазом. Дырявым.

[Рyslan]

До LwDefault еще блоки как-то сделать нужно. Кстати у нас в институте цветозависимая печать.

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

Есть 3 варианта.
1. Отрисовывать, постоянно добавляя примитивы в SelectionSet, а затем через комаду _.-block преобразовать отрисованные примитивы в блок.
2. Через entmakex создать начало описания блока; через entmakex, например, создавать примитивы; не забыть создать описание "окончания" блока. См.в справке описание BLOCK.
3. Использовать ActiveX-методы создания блока и добавлять примитивы "прямо в описание блока".

[Рyslan]

по первому варианту пытаюсь сделать. пока не получается

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

Я (если честно) предпочитаю именно последний

[Рyslan]

пишу- (Command "_.-block" "Переход" pt1 SS ""). Вроде все ок, блок создается...и потом пропадает. не вставляется сразу. Если добавить Insert, то рисуется сам переход и еще блок перехода. Причем если второй раз рисовать другой переход, то требует переопределения блока. кароче муть какая то получается

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

Особенность лиспового вызова _.block: после создания блока все примитивы "исчезают" и надо блок принудительно вставлять.

[Рyslan]

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

[Рyslan]

этот Актив Х вообще дебри, сегодня почитал немного, чуть не умер. Думал там как в Лиспе функции. а там черт значит что. непонятно

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

Там все просто до невозможности
http://www.cad.dp.ua/stats/vla_doc.php

[ShaggyDoc]

Рyslan, Алексей правильно написал - "до невозможности". Вообще-то проще только command. Удобна инженерам - они знают команды, знают опции и могут легко применить. Именно функция command сделала программирование в AutoCAD доступным "простым инженерам" - они разработали десятки тысяч больших и маленьких программ.

ActiveX удобен тем, что используются осмысленные имена методов и свойств.

Третий метод - через entmake неудобен тем, что надо знать "человекобессмысленные" DXF-коды.

Но есть ещё лучший способ - разделение труда. Сложные функции делают "низкоуровневые" программисты и помещают их в библиотеки. А "прикладные" программисты или простые инженеры используют их результаты для создания конечных программ.

Например, программа для рисования отвода заключается в таком случае в 1 строчку:

Вот крутоизогнутый отвод в 2D - то, что ты делаешь:

Код:

[Выделить все]

(ru-pipe-draw-any (quote ru-pipe-turn-bend)(list  400.0 600.0 90.0) "Начало  отвода" "Направление центрального угла")

Измени 400 - это Ду, 600 - это Rср и 90 - это угол, на любые значения и сразу будешь иметь сколь угодно вариантов.

А вот вариант, когда тебе надо рисовать отвод от угла поворота трассы (часто так и надо):

Код:

[Выделить все]

(ru-pipe-draw-any (quote ru-pipe-turn-bend-by-ang)(list  400.0 600.0 90.0) "Точка поворота трассы" "Направление конца отвода")

Вот этот микрокод делает то же, но уже в 3D:

Код:

[Выделить все]

(ru-3d-pipe-turn-by-vertex-std  426.0 6.0 600.0 90.0)

А вот этот - от точки начала отвода, причем отвод уже не крутоизогнутый, а сварной секторный:

Код:

[Выделить все]

(ru-3d-pipe-turn-weld-by-prev  630.0 10.0  900.0 90.0 2)

Последним аргументом можно задавать количество секторов.

И задвижку, да ещё в 3D не сложнее заставить моделироваться:

Код:

[Выделить все]

(ru-3d-valve-gate-simple  (ru-3d-pipe-flange-std-200-16)  330.0 900 280)

Будет нарисована задвижка с ответными фланцами. И это не будет блок. Аналогично и с прочей арматурой (краны вентили и т.п.)

И всё это ты когда-то сможешь сам!

[Рyslan]

ShaggyDoc, показал бы хоть один код полностью. а то даешь одни названия. я так тоже могу - rus-tee-go-her-znaet-kuda...рисует тройник в неизвестном направлении

[ShaggyDoc]

Рyslan, все коды, кроме 3D, опубликованы в книге "САПР на базе AutoCAD - как это делается". И приложены на CD.

Уже ссылался на неё. ты писал "листаю". Читать надо. Изучать. Ответы на все твои вопросы там есть, в том числе в виде готового кода, даже набирать не нужно.

Здесь публиковать нет возможности, так как любая функция вызывает десяток-другой других, низкоуровневых библиотечных функций. Именно это позволяет делать короткие прикладные программы - в одну строчку.

[Рyslan]

в книге написано: "Функция getpoint дает возможность пользователю ввести точку с помощью клавиатуры или мыши. Если задан аргумент <точка1>, то при вводе точки с помощью мыши рисуется резиновая нить, начинающаяся в точке, заданной аргументом <точка1>"
странно, а вот резиновая нить то и не рисуется

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

Специально проверил - все отображается (настройки по умолчанию; цвет курсора - стандартный и не меняется в зависимости от цвета рабочего слоя). AA2008Eng+SP1, запущенный как AutoCAD 2008

[E-degtyarev]

К посту 231.
Уважаемый ShaggyDoc.
Для меня почему-то оказались более понятными "человекобессмыссленные" DXF-коды, чем ActiveX.
Не лезут в голову эти vl-vla-vlax-реновые функции, хоть тресни.
Посоветуйте пожалуйста литературу "для чайников" по этому вопросу.

[ShaggyDoc]

E-degtyarev, литература практически единственная - Н.Полещук, П.Лоскутов - "AutoLISP и Visual LISP в среде AutoCAD". Там всё подробно.

А "не лезущие" функции как раз просты - надо только понять объектную модель и принцип формирования имен. В этом поможет acadauto.chm

[VVA]

В дополнение к ShaggyDoc, могу посоветовать еще
The Visual Lisp Developers Bible by David M Stein (см. ссылку в #20)

[E-degtyarev]

ShaggyDOC,VVA, спасибо.
Буду познавать.

[Рyslan]

Кто хочет написать программу диалоговых окон для имеющих лиспов элементов деталей трубопроводов, по аналогу проката Василия Кондрата? Будет неплохое подспорье для трубопроводчиков
ясно, никто не хочет. как пофлудить так все тут как тут, как лисп написать для непойми чего так пожалуйста.....