[VVA]

Развитие идеи, изложенной ttt и кода Rory Love, опубликованного Vova, здесь.
Внесены некоторые доработки по предложению Largo_GT, Valery Brelovsky, Yuriy, Disney, и др. участников форума. некоторые доработки под себя опубликовал Yuriy здесь
Принцип работы программы:
Выбираете примитив-образец и рисуете такие-же примитивы с такими же свойствами. Кроме того, при повторе (пробел, клавиша ENTER, или правая кнопка мыши) рисование по примитиву-образцу будет повторяться (повторное указание не требуется).
Короткие имена:
QR - QUICKDRAW с восстановлением свойств
Q - QUICKDRAW
История:
22.07.2009 - Добавлена обработка временных привязок при установке OSNAPCOORD = 2
02.09.2009 - Добавлена обработка linetype scale и SPLINE
10.09.2009 - Добавлена обработка Mtext и Table
09.11.2009 - Восстановление PLINEWID
24.11.2009 - HPDOUBLE in USER DEFINE PATTERN
05.04.2010 - HPSPACE in USER DEFINE PATTERN
07.06.2010 - Add MLINE. Correct GetDynamicBlockPropertyList function
21.05.2010 - Add True Color
23.08.2011 - Add XLINE and RAY
14.10.2015 - Add MLEADER

PS. Начиная с 2011 версии появилась аналогичная команда _ADDSELECTED

[VVA]

Описание OSNAPCOORD

1 - Вводимые с клавиатуры координаты подавляют текущие режимы объектной привязки 2 - Вводимые с клавиатуры координаты подавляют режимы привязки (за исключением использованных в сценариях)

Главное выделено красным. Сценарий=lisp программа.
Что делает лисп:
1. запрашивает точку и ты указываешь середину.
2. Вызывает _pline и передает команде запрошенную точку (середину)
при OSNAPCOORD=2 в соответствии с выделенным красным преимущество имеют текущие (пересечение, конточка) объектные привязки. К координате средней точки применяются привязка _endp и ты прыгаешь в конточку.
Поэтому я и сказал, что для работы ручками разницы нет.

[Valery Brelovsky]

Спасибо большое. Теперь понятно.

[cool_man]

Программка отличная! Спасибо огромное) !
Раньше пробывал программу написанную на ARX с названием auto (она лежит в dawnlode) но чем то она мне тогда не понравилась... этим лиспом пользоваться гораздо удобнее, ИМХО.
PS. Интересно, кто-нибудь пробывал повесить ее вызов на двойной щелчок мыши (вместо вызова панели свойств)... если да, то поделитесь опытом, насколько это удобно)

[Рyslan]

ну и для чего эта программа? есть же стандартное match propeties

[Кочетков Андрей]

Столкнулся с тем, что данная программа не наследует масштаб двухмерных полилиний (linetype scale).
Это можно исправить?

[VVA]

Кочетков Андрей, Смогу посмотреть не раньше 31 августа. В отпуске.

[Кочетков Андрей]

Ага спасибо )))

[Djur]

Рад что зашел в эту тему )
Огромнейшая благодарность разработчикам!!!!
а можно, пожалуйста, узнать (или скажите где посмотреть списочек объектов с которыми работает данный lisp? а то я вот попробовал сплайн и 3d (куб, политело,...) объекты не хочет повторять!

[VVA]

Djur, Сплайна нет. Добавлю. По поводу 3D: в результате получается объект 3DSOLID. А какой командой был создан - неизвестно.

[Djur]

Благодарю! )

[VVA]

Кочетков Андрей, Djur, Добавил linetype scale и SPLINE. Обновил #1

[Кочетков Андрей]

Пасиб!

[Djur]

Огромнейшая Благодарность!!!!

[kheylan]

Спасибо за программу!
А все же просьба по DText осталась без ответа,
хотелось бы за один прием и Mtext не понимает.
С таблицами можно что-нибудь придумать, примерно, как с блоками. Да, с безымянными блоками проблема, не находит. А выноски?!
А так все хорошо!

[tov]

Спасибо за программу
пробую с прямоугольником получаю следующее

Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :RE
_.PLINE
Начальная точка: nil

и дальше работаю с полилинией. а вроде как должен с прямоугольником? и хотелось бы иметь возможность работать с многогранником (_polygon)
Как исправить??

перед использование программы стоит слой1 после ее применения устанавливается слой принадлежащий обекту а можно сделать так чтобы возращала первоначальный слой1 ?

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

Прямоугольник (да и многогранник тоже) есть полилиния.

[Кочетков Андрей]

Сообщение от tov перед использование программы стоит слой1 после ее применения устанавливается слой принадлежащий обекту а можно сделать так чтобы возращала первоначальный слой1 ?

Команда QR не восстанавливает слой?

[VVA]

tov, Я еще раз проверил, по опции RE вызывается прямоугольник (polygon), в команде QR слой восстанавливается. Скачай код заново и попробуй еще раз. Если не получится перешли мне код на почту с указанием версии Автокада
Уточнение: Для воостановления слоя нужно использовать QR, а не Q. Команда QDR - временная. Формируется динамически командами Q или QR. Предназначена для повтора последнего действия по Enter или пробелу.

[tov]

VVA спасибо за уточнение.
действительно при использование QR слой востанавливается а вот прямоугольник рисовать не хочет (скачал заново *.lsp) Автокад 2009

Команда: (if (null C:QR)(load "qickdraw1.lsp"))
nil
Команда: QR
Select object:
Команда:
Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :RE
_.PLINE
Начальная точка: nil
Начальная точка:
Текущая ширина полилинии равна 0.00
Следующая точка или [Дуга/Полуширина/длИна/Отменить/Ширина]:
Следующая точка или [Дуга/Замкнуть/Полуширина/длИна/Отменить/Ширина]:

Команда:
Команда: (if (null C:QR)(load "qickdraw1.lsp"))
nil
Команда: QR
Select object:
Команда:
Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :R3P
_.PLINE
Начальная точка: nil
Начальная точка:
Текущая ширина полилинии равна 0.00
Следующая точка или [Дуга/Полуширина/длИна/Отменить/Ширина]:
Следующая точка или [Дуга/Замкнуть/Полуширина/длИна/Отменить/Ширина]:

[zenon]

tov, а вроде все ясно

Команда: QDR Pick a first point of polyline or [Pline/REctang/R3P] <Pline>

вот и выбирай REctang