[ViktorM]

Суть проблемы такова... Приходится по 100 раз за день выполнять один и тот же набор команд. Это "масштаб" с увеличением 1000 и "копирование с базовой точкой".
Подскажите, пожалуйста, как можно объединить эти команды? Коэффициент масштаба всегда 1000.

[Nike]

(command "_pasteclip" "_s" 1000) на кнопку.
Или выделенные объекты тоже должны быть смасштабированы перед копированием?

[ViktorM]

Nike, спасибо за ответ. Это решает чать проблемы.
Вообще я думал сделать макрокоманду или лисп работающий по такому алгоритму
1. Выбор объектов (пока не понял как сделать выбор на лисп ) (setq obj (.....))
2. Выбор точки привязки (setq pt1 (getpoint))
3. Масштабирование (command "_scale" obj pt1 1000)
4. Копирование в буфер с точкой привязки (command "_copybase" pt1)

Сейчас пытаюсь воплотить эту идею на лисп. Помогите пожалуйста.

[Nike]

(setq obj (ssget))
(setq pt1 (getpoint))
(command "_scale" obj "" pt1 1000)
(command "_copybase" pt1 obj "")

[ViktorM]

То что доктор прописал. СПАСИБО!!
Вот что получилось и работает на все 100%

(defun c:Scale_and_Copy (/ obj pt1)
(setq obj (ssget))
(setq pt1 (getpoint "Укажите точку привязки: "))
(command "_scale" obj "" pt1 1000)
(command "_copybase" pt1 obj "")
(command "_close" "Y")
(princ)
)