数字加常数及改精度

快乐小子春天

(defun c:LT007 ( / ss i nall ent entl i nmb nall nalls k dec)
(setq ss (ssget '((0 . "TEXT")))
i 0
nadd (getdist "\n加常数(减常数为负;直接回车改精度):")
dec (getint "\n精度<2>:")
)
(if (not nadd)(setq nadd 0))
(if (not dec)(setq dec 2))
(repeat (sslength ss)
    (setq ent (ssname ss i)
entl (entget ent)
i (1+ i)
nmb (cdr(assoc 1 entl))
    )
    (if (or (= 'REAL (type (read nmb)))(= 'INT (type (read nmb))))
(progn
(setq nmb (atof nmb)
       endn (+ nmb nadd)
       nmb (rtos endn 2 dec)
       entl (subst (cons 1 nmb)(assoc 1 entl) entl)
)
        (entmod entl)
)
    );;end if
) ;;end repeat
(princ)
)

lengyan

试试改精度功能，谢谢！

lioun4105

谢谢，正需要

fsafaffa

这个有什么用，有演示吗

疯球

谢谢，正需要