;;;COMMAND NAME: CVD   把所选的尺寸文字旋转180度

(defun c:cvd (/ s sl ed ang)
  (command "redrawall")  ;UNDO时不会UNDO前一步
  (princ "\nCVD, Copyright Ho & Partners Architects, SuYi")
  (setq s (ssget '((0 . "DIMENSION"))))
  (setq sl (sslength s))
  (while (> sl 0)
    (setq ed (entget(ssname s (setq sl (1- sl)))))
    (setq ang(cdr(assoc 51 ed)))
    (entmod (subst (cons 51 (- ang pi)) (assoc 51 ed) ed))
  );while
  (princ)
)