[Jonas]

Повторяю тему потому что когда приехал на работу уже было заблокировано.
Задался целью построить развертку пересекающих цилиндров средствами автокада а знаний крайне мало.
Прикладываю лисп того что имею на сегодня. Загвоздка в одной строке, не раскладывает полученные изолинии с шагом равным длине дуги между ними (см. Лисп).
Перепробовал кажется всё на что способен. Под рукой Н. Полищук "Visual LISP".
То что замечал Дима не принимает vl-list* без * .
Смешно то что однажды получилась раскладка изолиний правда с шагом что я ввел, потом стал делать по уму и вовсе всё сломалось.
Кажется я забыл то чего не знал.
Знатоки, будьте добры, помогите!

Для работы нужно:
- цилиндр с вычетом другого цилиндра,
- разместить ось z пск по оси цилиндра.
- установить изометрический вид (или близкий к нему) так чтобы плоский торуц цилиндра был ближайшим.
- далее по указаниям.

[CB]

Вместо

Код:

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

(command "_move" "_last" "" pt '((* a2 i) 0 0)) ;моя хотелка не работает

Нужно

Код:

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

(command "_move" "_last" "" pt (list (* a2 i) 0 0))

[Jonas]

Спасибо. На столько неожиданно просто, не мог представить что можно ввести координаты без '.
Работает. Может кому интересно прилагаю лиспик исправленный.