Вставка масштабированного блока с запросом точки и угла

(defun ru-block-insert-scaled-ptask-angleask (block_name / scale)
  ;; вставка иконки с определением масштаба


  (setvar "ATTDIA" 1)
  (setq scale (ru-conv-millimeter-in-paper-to-unit 1))
  (princ "
Точка вставки: ")
  (command "_.INSERT"  block_name  "_PROTATE"  0           "_PXScale"
           scale       "_PYScale"  scale       pause       scale
           scale
          ) ;_ end of command
  (princ "
Угол поворота<0>: ")
  (command pause)
  (setvar "attdia" 0)
  (entlast)
) ;_ end of defun