Программа для изменения масштабного фактора размеров...

Программа для изменения масштабного фактора размеров, изменения масштабного фактора черетежа, а также для масштабирования примитивов (по ГОСТ 2.302-68).
В зависимости от того, выбраны примитивы или нет (до запуска программы), программа выполняет следующие действия:
1. Ничего не выбрано - изменяется масштабный фактор чертежа (сист. переменная "dimlfac").
2. Выбраны только размеры - изменяется масштабный фактор для выбранных размеров.
3. Выбраны только примитивы - масштабируются выбранные примитивы в соответствии с масштабом по ГОСТ 2.302-68, аналогично команде "scale". Базовую точку для масштабирования можно указать, по умолчанию масштабирование происходит относительно центра прямоугольника ограничивающего выбранные примитивы.
4. Выбраны примитивы и размеры - масштабируются выбранные примитивы и размеры, для размеров устанавливается выбранный масштабный фактор.
Запускается командой ScaleObjDim.
Установка
1. Создать папку с произвольным названием, например ScaleObjDim, добавить путь к ней в Support File Search Path (Tools -> Options -> Support File Search Path -> Add).
2. Создать кнопку с макросом: ^C^C^P(defun c:LOAD1 ()(load *funk*))(setq *funk* "Scale Obj Dim") LOAD1 ^P ScaleObjDim
P.S. Альтернативный способ:
1. Добавить путь к папке как в первом способе или просто засунуть два файла из архива в папку Support :(
2. Добавить файл Scale Obj Dim.lsp в Srartup Suite (Tools - > Load Application -> Srartup Suite -> Load)
3. Создать кнопку с макросом ^C^C_ScaleObjDim
Файл иконки прилагается :)