(DEFUN c:Rub (/ adoc nam) ; Modified by Igal Averbuh
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(princ blks)
(vlax-for item (vla-get-blocks adoc)
(if (= (vla-get-objectname item) "AcDbBlockTableRecord")
(progn
(setq nam (vla-get-name item))
(princ (strcat "\n" nam))
(vla-put-name item (strcase nam F))
(princ (strcat "\n" (vla-get-name item)))
)
)
)
(princ)
)
(c:rub)

Advertisements