(defun c:RU ( / n )
(vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(setq n (vla-get-name B))
(if (= "*U" (substr n 1 2))
(vla-put-name b (substr n 2))
)
)
)
(c:ru)

Advertisements