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

(defun ru-block-insert-scaled-ptask (block_name x_scale y_scale / x y old_attdia result)
  (setq old_attdia (getvar "attdia"))
  (setvar "attdia" 1)
;; (ru-block-insert-scaled-ptask "МОЙКА_ПЛАН"  0.01 0.01)
;; (ru-block-insert-scaled-ptask "ru_detail_number"  1 1)
  (setq x (ru-conv-millimeter-in-paper-to-unit x_scale)
        y (ru-conv-millimeter-in-paper-to-unit y_scale)
  ) ;_ end of setq

  (while (not (ru-error-catch
                (function (lambda ()
                            (princ "
Точка вставки: ")
                            (if
                              (vl-cmdf "_.INSERT" block_name "_PROTATE"
                                       0          "_PXScale" x
                                       "_PYScale" y          pause
                                       x          y          0
                                      ) ;_ end of vl-cmdf
                                 (setq result (entlast))
                            ) ;_ end of if
                          ) ;_ end of lambda
                ) ;_ end of function
                nil
              ) ;_ end of ru-error-catch
         ) ;_ end of not
  ) ;_ end of while
 result
) ;_ end of defun