[求助]小数位四舍五入

and2008 · 发表于 2005-9-6 12:02:00

多谢黑猫，逐一回答如下：

1、处理的数据是单行文本，就在图中；

2、处理后的数据还放在图中；

3、处理后的数据也是单行文本，不保留小数位末位的0；

4、五楼程序没有提示保留小数位的个数，也没有提示在绘图窗口选择数字。

再次补充说明一下最后实现的意图：

为清楚起见举例如下：

在绘图窗口我有一些数据 1.15 1.203 1.654 2.987 5.621 8.9431 4. 10005

第一种情况：保留1位小数 1.2 1.2 1.7 3(.0可以不要） 5.6 8.9 4.1

第二种情况：取消小数位 1 1 2 3 6 10 4

................任选确定小数位个数（这个暂且不予考虑了）

实现步骤：1、执行程序 2、提示选择数字 3、提示要保留小数位个数 4、目标实现

不知上面所述是否详尽，期待黑猫给予解答。再次深表感谢！

ZZXXQQ · 发表于 2005-9-6 13:12:00

根据楼主要求写的程序：

(DEFUN C:ROUND (/ ZIN SS I N RN RTEXT ENT)
(SETVAR "CMDECHO" 0)
(SETQ ZIN (GETVAR "DIMZIN"))
(SETVAR "DIMZIN" 8)
(PRINC "\nSelect text(s) 选择单行文本 : ")
(IF (SETQ SS (SSGET (LIST (CONS 0 "TEXT")))) (PROGN
(INITGET 1)
(SETQ N (GETINT "\nKeep decimal digits 保留的小数位数 : "))
(SETQ I -1)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I)))))
(IF (SETQ RN (DISTOF (CDR (ASSOC 1 ENT)) 2)) (PROGN
(SETQ RTEXT (RTOS (/ (FIX (+ (* (EXPT 10 N) RN) 0.5)) (FLOAT (EXPT 10 N))))
ENT (SUBST (CONS 1 RTEXT) (ASSOC 1 ENT) ENT))
(ENTMOD ENT)
))
)
))
(SETVAR "DIMZIN" ZIN)
(SETVAR "CMDECHO" 1)
(PRINC)
)

复制代码

xyp1964 · 发表于 2005-9-6 13:23:00

(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachme...&postid=1606661
http://www.mjtd.com/bbs/dispbbs.asp...ID=37554&page=1|;
(defun c:test ()
(CMDLA0)
(setvar "DIMZIN" 0)
(setq NO1 (UINT 7 "" "\n保留位数" NO1))
(while (setq s1 (car (entsel "\n选择数字文本 : ")))
(setq txt (rtos (atof (dxf 1 (entget s1))) 2 no1))
(sub_upd s1 1 txt)
)
(CMDLA1)
)

and2008 · 发表于 2005-9-6 14:07:00

太棒了，非常感谢各位的帮助。

fanqinwei · 发表于 2005-9-25 09:16:00

写的好，这个问题总是没有办法

ymcui · 发表于 2011-9-21 16:55:02

如何做到(16返回20)(14返回10)

ymcui · 发表于 2011-9-21 16:55:41

就是以十为整数

Andyhon · 发表于 2011-9-21 17:43:27

Command: (itoa (* (atoi (rtos (/ 16 10.0) 2 0)) 10))
"20"

Command: (itoa (* (atoi (rtos (/ 14 10.0) 2 0)) 10))
"10"

Command: (* (atoi (rtos (/ 14 10.0) 2 0)) 10)
10

Command: (* (atoi (rtos (/ 16 10.0) 2 0)) 10)
20

longer1000 · 发表于 2012-6-24 11:19:55

非常感谢，实用

dalin1985 · 发表于 2012-6-24 20:24:28

可不可以奇进偶舍？

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

[求助]小数位四舍五入

点评

点评

浏览过的版块