Вставка блока-файла из каталога блоков
(defun ru-block-insert-noscale-ptask-angleask
(block_name / old_attdia old_echo)
;; Вставка блока-файла из каталога блоков
;;; (ru-block-insert-noscale-ptask-angleask (setq block_name "ru_К-50-32-125_вибр_бок"))
(ru-app-begin)
(ru-block-multi-insert-scaled-rotated-or-angleask
(ru-file-set-ext (ru-file-block block_name) ".dwg")
1
1
nil
) ;_ end of ru-block-multi-insert-scaled-rotated-or-angleask
(ru-app-end)
(princ)
) ;_ end of defun