呵呵，标注值恢复原值

myjping

(DEFUN C:dv (/ SS SSM SSN SS1 DDEC EG1 DVAL DVAL2)
  (PRINC "Select DIMENSION change to process :")
  (SETQ SS (SSGET '((0 . "DIMENSION")))
        SSM (SSLENGTH SS)
        SSN 0
        DDEC (GETVAR "DIMDEC")
        );SETQ

 (COMMAND ".UNDO" "BE")
  (REPEAT SSM
    (SETQ SS1 (SSNAME SS SSN)
          EG1 (ENTGET SS1)
          DVAL  (CDR (ASSOC 42 EG1))
          DVAL2 (RTOS DVAL 2 DDEC)
          SSN (1+ SSN)
          );SETQ
   (COMMAND ".DIM1" "NEW" DVAL2 SS1 "")
  );REPEAT
(COMMAND ".UNDO" "END")
(PRINC)
)