Вставка блока без редактирования атрибутов

(defun ru-block-insert-noattr-scale1-ptask-angleask (block_name / aq)
  ;; программная вставка блока
  ;; применяется, например, для вставки ссылочных файлов
  ;; в масштабе 1 и без редактирования атрибутов
  (setq aq (getvar "ATTREQ"))
  (setvar "ATTREQ" 1)
  (command "_.INSERT" block_name)
  (princ "
Точка вставки: ")
  (command pause)
  (command "" "")
  (princ "
Угол поворота <0>: ")
  (command pause)
  (setvar "ATTREQ" aq)
) ;_ end of defun