Внедрение библиотечного блока

(defun ru-block-lib-insert (block_lib_name block_name / block_lib_file_name)
;;; Внедрение библиотечного блока block_lib_name в котором живет блок  block_name
;;; (ru-block-lib-insert "R2000_00000000" "НОМЕР_УЗЛА") > T
;;; (ru-block-lib-insert "R2000_00000000" "_НОМЕР_УЗЛА") > nil

  (if (tblsearch "block"  block_name)
    T
    (progn
      (setq block_lib_file_name (ru-file-block-lib block_lib_name))
      (if (findfile (strcat block_lib_file_name ".DWG"))
	(progn
	  (princ "
Подождите...")
	  (setvar "CMDECHO" 0)
	  (command "_.INSERT" block_lib_file_name)
	  (command) ; прерываем вставку, блок
		    ; невидимый
	  (if (tblsearch "block"  block_name)
	    ;;Проверим блок после внедрения
	    T
	    (progn
	      (ru-msg-alert	(strcat	"ОШИБКА!
 Блок
"
				 block_name
				"
отсутствует в библиотеке
"
				block_lib_file_name
				"!
Обратитесь к администратору системы!"
			) ;_ end of strcat
	      ) ;_ end of ru-msg-alert
	      NIL
	    ) ;_ end of progn
	  ) ;_ end of if
	) ;_ end of progn
	(progn
	  (ru-msg-info (strcat "Не найден библиотечный блок
" block_lib_file_name))
	  NIL
	) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun