Topic: [XDrX-PlugIn(140)] Dimension rounding

[xdcad]

Code: [Select]

(defun c:xdtb_dimrnd1 ( / ss v)
  (if (and (xdrx-initssget
     (xdrx-string-multilanguage
       "\n请选择尺寸值要取整的尺寸标注<退出>:"
       "\nSelect Dimension<Exit>:"
     )
   )
   (setq ss (xdrx-ssget '((0 . "*dimension"))))
      )
    (progn (xdrx-initget "1 2 3 4 5")
   (if (not #xd-var-global-dimrnd)
     (setq #xd-var-global-dimrnd 1)
   )
   (if (setq
v (getkword
     (xdrx-prompt
       (xdrx-string-formatex
(xdrx-string-multilanguage
   "\n输入取整值[1(1)/5(2)/10(3)/50(4)/100(5)]<%d>:"
   "\nEnter the rounding value [1(1)/5(2)/10(3)/50(4)/100(5)]<%d>:"
)
#xd-var-global-dimrnd
       )
       t
     )
   )
       )
     (setq #xd-var-global-dimrnd v)
   )
   (cond ((= #xd-var-global-dimrnd "1") (setq v 1.0))
((= #xd-var-global-dimrnd "2") (setq v 5.0))
((= #xd-var-global-dimrnd "3") (setq v 10.0))
((= #xd-var-global-dimrnd "4") (setq v 50.0))
((= #xd-var-global-dimrnd "5") (setq v 100.0))
(t (setq v 1.0))
   )
   (xdrx-entity-setproperty ss "dimrnd" v)
    )
  )
  (princ)
)