;;重命名块
(defun c:rename_*block (/ blkobj en new_name)
  (or fsxm-vbs (load "vbs"))
  (cond
    ((and (setq en (car (entsel)))
	  (setq old_name (fsxm-getendxf en 2))
	  (setq new_name (fsxm-vbs '(inputbox "块的新名字:" "重命名块:")))
     )
     (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)
)