社区 › AutoLISP/Visual LISP 编程技术 › 自定义的四舍五入圆整函数

lijiao 发表于 2016-9-30 10:22:38

自定义的四舍五入圆整函数

;;;函数：(cs-int cs_num cs_i)
;;;功能：数据圆整
;;;变量：cs_num   被圆整的整数或实数
;;;      cs_i   圆整条件
;;;示例：(CS-INT -12.75 3)= -12.0
;;;      (CS-INT -13.75 3)= -15.0
;;;      (CS-INT 12.75 3)= 12.0
;;;      (CS-INT 13.75 3)= 15.0
;;;      (CS-INT 12.75 -3)= 12.0
;;;      (CS-INT 13.75 -3)= 15.0
;;;      (CS-INT 13.75 0)= 13.75
(defun cs-int (cs_num cs_i /)
(setq cs_i (abs cs_i))
(if (< cs_num 0.0)
    (setq cs_i (* -1.0 cs_i))
)
(if (equal cs_i 0.0 0.00001)
    cs_num
    (* (fix (+ (/ cs_num cs_i) 0.5)) cs_i)
    )
)

自贡黄明儒 发表于 2016-9-30 11:03:10

都差不多
http://bbs.mjtd.com/thread-107567-1-1.html

查看完整版本: 自定义的四舍五入圆整函数