Вставка блоков-таблиц

(defun ru-block-insert-table (block_name / old_attdia scale)
  ;; вставка таблиц (ru-block-insert-table "607-1")
  (ru-app-begin)
  (setq old_attdia (getvar "attdia"))
  (setvar "attdia" 1)
  (setq scale (ru-conv-millimeter-in-paper-to-unit 1))
  (while (not (ru-error-catch
                (function (lambda ()
                            (princ "
Точка вставки: ")
                            (vl-cmdf "_.INSERT"
                                     (ru-file-table block_name)
                                     "_PROTATE"
                                     0
                                     "_PScale"
                                     scale
                                     pause
                                     scale
                                     scale
                                     0
                            ) ;_ end of if
                          ) ;_ end of lambda
                ) ;_ end of function
                nil
              ) ;_ end of ru-error-catch
         ) ;_ end of not
  ) ;_ end of while
  (setvar "attdia" old_attdia)
  (ru-app-end)
  (princ)
) ;_ end of defun