Список имен и описаний блоков
(defun ru-block-list-all-names-and-decriptions (/ result block descr)
(setq block (tblnext "BLOCK" 1)
) ;_ end of setq
(while block
(if (not (setq descr (cdr (assoc 4 block))))
(setq descr "")
) ;_ end of if
(setq result (cons (list (cdr (assoc 2 block)) descr) result))
(setq block (tblnext "BLOCK"))
) ;_ end of while
(reverse result)
) ;_ end of defun