快乐小子春天 发表于 2013-10-27 19:04:19

数字加常数及改精度

(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 发表于 2015-9-7 22:40:48

试试改精度功能，谢谢！

lioun4105 发表于 2017-11-28 17:02:42

谢谢，正需要

fsafaffa 发表于 2017-12-2 11:42:51

这个有什么用，有演示吗

疯球 发表于 2018-5-14 17:32:02

谢谢，正需要
页: [1]
查看完整版本: 数字加常数及改精度