[Moris]

Может кто то встречал такой лисп.

Нужно сделать scale объекту в чертеже. Но вместо ввода значений, достаточно нажимать на клавиши + и -, и объект увеличивается\уменьшается на заданный шаг (значение шага установленно в settings лиспа)

[Vova]

А базовая точка?

[Moris]

меня бы устроил центр массы

[TararykovDG]

Moris, попробуй так (масштабируется не один объект, а сколько выбрано. Каждый относительно своей точки вставки. В принципе можно переделать и для центра массы, если нужно?)

Код:

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

(defun c:Scale+-( / cmdecho_old gr)
  (setq cmdecho_old (getvar 'cmdecho))
  (setvar 'cmdecho 0)
  ((lambda(nbr step)
     (if nbr
       (progn
         (prompt "\n Для масштабирования объектов нажмите + или - , для завершения Enter: ")
         (while (/= (cadr (setq gr (grread))) 13)
           (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
             (vl-cmdf "_.scale" item "" (cdr (assoc 10 (entget item))) (cond ((= (cadr gr) 43) step) ((= (cadr gr) 45) (/ 1.0 step))))
             )
           )
         )
       )
     )
    (ssget)
    2 ; шаг масштабирования
    )
  (setvar 'cmdecho cmdecho_old)
  (princ)
  ); end defun

[Moris]

TararykovDG спасибо
Для центра массы вообщем то ненужно, от точки вставки тоже подходит.
А как поменять шаг масштабирования?

все понял, надо в самом лиспе прописать. Суперский лисп.