[Immortal_6666]

Добрый день.
Стараюсь по максимуму автоматизировать типовые задачи в своей работе. Часто рисую развертки стен, основа - это всегда прямоугольник, потом идет одна горизонтальная линия от верхнего угла - уровень опускания потолка, и одна горизонтальная от нижнего угла - подъем пола.

Можно ли написать какой-то макрос, при запуске которого автокад попросил бы меня указать одну точку (допустим верхний левый угол), потом спросил длину, ширину, отступ сверху, отступ снизу и в итоге нарисовал бы все как на приложенной картинке, в текущем слое? Т.е создать 3 объекта - прямоугольник, и два отрезка (или полилинии).
В идеале, было бы указать точку вставки мышкой и ввести 4 числа через запятую и потом 1 раз нажать пробел или enter. Думаю это легко реализуется через LISP.
Хотелось бы начать его освоение на данном примере. Буду очень рад помощи.
Как повесить потом лисп на кнопку - знаю, а вот код пока не могу написать..

[VoVoRoNaLe]

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

[Immortal_6666]

не совсем это удобно получается в итоге через блок.

[vadim_evg1]

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

Опередил. Я бы тоже не морочился с лиспом и сделал блок. И блок вставлял бы либо из палитры с уже настроенными параметрами, либо в свойствах менял после вставки.
Типа так:

----- добавлено через ~2 мин. -----

Сообщение от Immortal_6666 не совсем это удобно получается в итоге через блок

если вставлять из палитры, то можно настроить параметры перед вставкой и указать расчленение после вставки. Удобно вроде

[Nordek]

Сообщение от Immortal_6666 Можно ли написать какой-то макрос, при запуске которого автокад попросил бы меня указать одну точку....

Вы сами писать хотите и спрашиваете как это сделать, или Вы ищете ктобы реализовал это?

[Immortal_6666]

Хотел бы сам научиться делать подобное. Но поскольку для меня это первый опыт написания лиспа, конечно подсказки нужны довольно конкретные, либо ссылки на пособия/похожие примеры.

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

vadim_evg1 еще раз спасибо! красиво реализовано.

----- добавлено через ~12 ч. -----
Пытался разобраться с макросами, получилось построить прямоугольник по размерам - ^C^C_Rectang;\_d;\\@100,-100; - тут команда сама переходит в режим размеры и завершается сама определяя ориентацию вправо и вниз.
А вот как сделать тоже самое, но только в размеры прямоугольника подставить переменные, которые пользователь вводил бы заранее. Как я понял нужно добавить в макрос что-то вроде (Setq a (Getpoint)) для указания точки мышкой, а вот как объявить переменную значение которой вводится с клавиатуры я не понимаю.. И синтаксис этой команды как-то разобраться не могу...
Вот такой код ^C^C(setq A (getreal"Enter A: "))_Rectang;\_d;\\@100,-100; уже не работает...