Установка описания блока
(defun ru-block-set-description (block_name block_description
/
block_begin
block_ent old_description
is_block_make block_layer
)
(if (setq block_ent (tblobjname "block" block_name))
(progn
(setq block_begin (entget block_ent)
block_description (cons 4 block_description)
block_layer (assoc 8 block_begin)
block_begin (if (setq old_description (assoc 4 block_begin))
(subst block_description
old_description
block_begin
) ;_ end of subst
(append block_begin (list block_description))
) ;_ end of if
is_block_make (entmake (ru-ent-dxf-code-clear-list
block_begin
'(-1 -2 1 5 330 71 ;|zu|;)
nil
) ; _ end of
; ru-ent-dxf-code-clear-list
) ;_ end of entmake
) ;_ end of setq
(if is_block_make
(progn
(while (setq block_ent (entnext block_ent))
(entmake
(ru-ent-dxf-code-clear-list
(entget block_ent)
'(-1 5 330 71 ;|zu|;)
nil
) ;_ end of ru-ent-dxf-code-clear-list
) ;_ end of entmake
) ;_ end of while
(entmake
(list
'(0 . "ENDBLK")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockEnd")
block_layer
) ;_ end of list
) ;_ end of entmake
(if old_description
(cdr old_description)
""
) ;_ end of if
) ;_ end of progn
) ;_ end of if
) ;_ end of progn
) ;_ end of if
) ;_ end of defun
