Удаление определения блока из документа
(defun ru-block-purge (doc_obj block_name)
(if (vl-catch-all-error-p
(vl-catch-all-apply
'vla-delete
(list (vl-catch-all-apply
'vla-item
(list (vla-get-blocks doc_obj) block_name)
)
)
)
)
nil
T
)
)
