[功能] 保留小数位数(四舍五入)

/db_自贡黄明儒_ · 发表于 2016-8-26 10:35:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;; [功能] 保留小数位数(四舍五入)
;|(rtos 数 mode 小数位数)
mode
1  Scientific
2  Decimal
3  Engineering (feet and decimal inches)
4  Architectural (feet and fractional inches)
5  Fractional
|;
;;示例1 保留一位小数，四舍五入(HH:rtosr1 2.555 1)；"2.6"
;;示例2 取整数，四舍五入(read(HH:rtosr1 215.46 0))，返回215
;;示例3 十位数，四舍五入(* (read(HH:rtosr1 (/ 215.46 10) 0)) 10)，返回220
;;示例4 保留一位小数，四舍五入(read(HH:rtosr1 215.46 1))，返回215.5
(defun HH:rtosr1 (RealNum n / DIMZIN1 SHORTREAL1)
  (setq DimZin1 (getvar "DIMZIN"))
  (setvar "DIMZIN" 0)
  (setq ShortReal1 (rtos RealNum 2 n))
  (setvar "DIMZIN" DimZin1)
  ShortReal1
)

dreamxiyan · 发表于 2017-2-20 23:29:54

顶起来

kqqt6236 · 发表于 2017-2-21 00:06:09

正需要，支持楼主大人了！

cq_qg68 · 发表于 2017-2-21 09:25:41

实用技术，谢谢分享。

吴外安放 · 发表于 2020-7-26 14:36:35

谢谢版主分享

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

[每日一码] [功能] 保留小数位数(四舍五入)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分