数字加常数及改精度

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

(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

试试改精度功能，谢谢！

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

谢谢，正需要

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

这个有什么用，有演示吗

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

谢谢，正需要

账号		自动登录	找回密码
密码			注册