Вставка блока из библиотеки в натуральную величину

(defun ru-block-insert-from-lib-scale1
       (block_lib_name block_name is_angle0)
  ;; вставка блока block_name из макроблока block_lib_name в
  ;; натуральную
  ;; величину
  ;; блок нарисован в натуральных милиметрах
;;  (ru-block-insert-from-lib-scale1  "ru-lib-san-faience" "ВАННА_ПЛАН" nil )
  (ru-app-begin)
  (if (ru-block-lib-insert block_lib_name block_name)
    (ru-block-multi-insert-scaled-rotated-or-angleask
      block_name
      (ru-conv-millimeter-to-unit 1)
      (ru-conv-millimeter-to-unit 1)
      (if is_angle0
        0
        nil
      ) ;_ end of if
    ) ;_ end of ru-block-multi-insert-scaled-rotated-or-angleask
  ) ;_ end of if
  (ru-app-end)

) ;_ end of defun