;;¼Ó¼õÖ±¾¶·ûºÅ
(defun c:55c (/ pr ss)
  (while (setq ss (ssget ":S" '((0 . "DIMENSION"))))
    (vlax-for a	(vla-get-ActiveSelectionSet *doc*)
      (setq pr (vla-get-TextPrefix a))
      (if (or (wcmatch pr "*%%c*") (wcmatch pr "*%%C*"))
	(setq pr (fsxm-replace pr "%%c" "")
	      pr (fsxm-replace pr "%%C" "")
	)
	(setq pr (strcat "%%c" pr))
      )
      (vla-put-TextPrefix a pr)
    )
  )
  (princ)
)