Проверка существования блока
(defun ru-block-is-exists (block_name / selection)
;; определяет вставлен ли блок block_name
(setq selection (ssget "_X" (list '(0 . "INSERT") (cons 2 block_name))))
(and selection
(> (sslength selection) 0)
) ;_ end of and
) ;_ end of defun