将左边的数字，尾数变成5或0，四舍五入

szxgsh · 发表于 2015-1-31 13:04:16

如题：
这是个老问题了。
比如将数字4356，4398四舍五入，将尾数归到0或5。
注意，这数字不是尺寸标注中的数字。
请哪位大神写几句或给个指引。谢谢。

sutai · 发表于 2015-1-31 17:51:23

(* (fix (* (+ num 2.5) 0.2)) 5)

USER2128 · 发表于 2015-1-31 14:57:34

本帖最后由 USER2128 于 2015-1-31 15:11 编辑

(* (fix (* 4356 0.2)) 5)  ;==> 4355
(* (fix (* 4354 0.2)) 5)  ;==> 4355
(* (fix (* 4352 0.2)) 5)  ;==> 4350
(* (fix (* 4350 0.2)) 5)  ;==> 4350

ZZXXQQ · 发表于 2015-1-31 20:34:46

本帖最后由 ZZXXQQ 于 2015-2-2 08:11 编辑

(defun c:tt ()
(if (setq ss (ssget '((0 . "*TEXT")(1 . "*#*"))))
(repeat (setq i (sslength ss))
(setq ent (entget(ssname ss (setq i (1- i)))))
(setq txt (itoa(*(fix(+ (* (atoi(cdr(assoc 1 ent))) 0.2) 0.5)) 5)))
(entmod (subst (cons 1 txt) (assoc 1 ent) ent))
)
)
(princ)
)

sicky111 · 发表于 2015-2-1 17:18:08

ZZXXQQ 发表于 2015-1-31 20:34

(atoi (cdr(assoc 1 ent)))

sugarHHH · 发表于 2022-5-25 17:02:20

请问有没有可以四舍五入不要尾数变5，只变0的

sugarHHH · 发表于 2022-5-25 17:03:59

ZZXXQQ 发表于 2015-1-31 20:34

大佬，能不能尾数不变5，只变0啊

bai2000 · 发表于 2022-5-25 18:48:26

要是尺寸的四舍五入呢？怎么搞

ZZXXQQ · 发表于 2022-5-26 00:04:20

直接改尺寸风格

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

[提问] 将左边的数字，尾数变成5或0，四舍五入

本帖子中包含更多资源

点评

点评