[编程交流] 修改尺寸精度（&d）

Please enter a new precision (maximum  < 2 > :

(defun C:bzjd ()
(VL-LOAD-COM)
  (setq dimObj (car (entsel "\nPlease choose the Dimension: ")))
  (setq str_0 (cdr (assoc 0 (entget dimObj))))
  (while (and (/= str_0 "LWPOLYLINE") (/= str_0 "DIMENSION"))
     (setq dimObj (car (entsel "\nIt's not dimension,please try again : ")))
     (setq str_0 (cdr (assoc 0 (entget dimObj))))
  )
 (setq dimObj (vlax-ename->vla-object dimObj))
 (setq newTolerance (getint "\nEnter the new precision [0～8]: "))
 
 (if (= newTolerance "")
   (setq newTolerance 0)
   (progn
     (COND
      ((= newTolerance 0)(setq newTolerance acDimPrecisionZero))
      ((= newTolerance 1)(setq newTolerance acDimPrecisionOne))
      ((= newTolerance 2)(setq newTolerance acDimPrecisionTwo))
      ((= newTolerance 3)(setq newTolerance acDimPrecisionThree))
      ((= newTolerance 4)(setq newTolerance acDimPrecisionFour))
      ((= newTolerance 5)(setq newTolerance acDimPrecisionFive))
      ((= newTolerance 6)(setq newTolerance acDimPrecisionSix))
      ((= newTolerance 7)(setq newTolerance acDimPrecisionSeven))
      ((= newTolerance (setq newTolerance acDimPrecisionEight))
      (t(progn (princ "Dimension precision is not change")(VL-EXIT-WITH-VALUE 0)))
     )
   )
  )
  
(vla-put-PrimaryUnitsPrecision dimObj newTolerance)  
  (vla-put-SuppressTrailingZeros dimObj :vlax-false)
 (setq newTolerance (vla-get-PrimaryUnitsPrecision dimObj))
 (princ "Dimension precision has been set to: ")(princ newTolerance)(princ "decimal places")
 (princ)
)