* 로 시작하는 이름을 가진 블럭 이름을 수정할 때

https://forums.autodesk.com/t5/autocad-forum/block-name/td-p/4781187

Block name

동적블럭이 변경되면 블럭 이름에 *가 붙은 다른 이름으로 변경된다.
이름에 *가 붙은 블럭은 깨지 않고는 수정할 수 없다.
ren 명령으로 이름도 못바꿔 ㅠㅠ

다음은 블럭의 이름을 강제로 수정하는 리습이다.

(defun C:RenABlock ()
  (prompt "\nSelect anonymous block:")
  (setq old_name (cdr (assoc 2 (entget (car (entsel))))))
  (setq new_name (strcat "New block-" (substr old_name 2)))
(vla-put-Name
  (vla-item
    (vla-get-Blocks
      (vla-get-ActiveDocument
        (vlax-get-acad-object)
      )
    )
  old_name)
new_name)
  )