;;重命名块
(defun c:rename_*block (/ blkobj en new_name OLD_NAME)
  (cond
    ((and (setq en (car (entsel)))
	  (setq old_name (fsxm-getendxf en 2))
	  (setq new_name (getstring "\n输入块的新名字:"))
     )
     (setq blkobj (vla-item (vla-get-blocks *doc*) old_name))
     (vla-put-name blkobj new_name)
     (cond ((wcmatch old_name "`**")
	    (vla-AuditInfo *doc* :vlax-true)
	    (vla-put-name blkobj new_name)
	   )
     )
    )
  )
  (princ)
)