请问(fix 变量)整数到5怎么弄？

行雲

  (setq p0 (getpoint "\n基点:"))
  (setq pc (getpoint p0 "\n长度:"))
  (setq cadu (fix (distance p0 pc)))
如32.1356整数35,,,整数到10递进也可以

Lisphk

用圆整，ROUND等搜索论坛就有了

http://bbs.xdcad.net/thread-671346-1-1.html

(xd::math:round1 41 1) ==40
(xd::math:round1 46 1) ==50

行雲

Lisphk 发表于 2017-1-14 16:45

谢谢你，有无简单些的思路。例如，像乘以十再除以十那样。。。应用到5 或 10，不知道怎么弄？

ynhh

  (setq pc （/（* 5 (fix (distance p0 pc))）5)
就是整数了

Lisphk

行雲 发表于 2017-1-14 16:57

http://bbs.xdcad.net/thread-671346-1-1.html

链接都给你了啊，里面是函数源码，去弄懂。

ll_j

2. (defun mfix(num m)    ;数值四舍五入取整，num数值，m模数
   
3.   (* (fix (+ (/ (float num) m) 0.5)) m)
   
4. )

(defun mfix(num m)    ;数值四舍五入取整，num数值，m模数<br />   (* (fix (+ (/ (float num) m) 0.5)) m)<br /> )

例：
命令: (mfix 62.15 5)
60

命令: (mfix 62.55 5)
65

命令: (mfix 62.55 3)
63

命令: (mfix 62.55 10)
60

命令: (mfix 62.55 0.5)
62.5

行雲

ll_j 发表于 2017-1-14 18:14

你好，多谢指点。
防你那代码，现在是这样(setq cadu (* (fix (+ (/ (distance p0 pc) 10) 0.5)) 10)) 。当中10对应那个m, m是小数点位数吧？

m是 10 时只能以十递进

m是 5 时能实现以5递进，但好像不那么灵敏，大多数情形下都以 10 递进

请问，是不是我对m理解搞错了

ll_j

行雲 发表于 2017-1-14 21:45

是我的注释有错，m是模数，就是你所说的10或5，可以是任意数。比如以3为模数，就会是3、6、9、12...这种。

行雲

ll_j 发表于 2017-1-14 22:09

谢谢，好代码！

ll_j

行雲 发表于 2017-1-14 22:24

又改了一下，避免整数相除时出现错误。
这是四舍五入取整，如果向上取整，就把式中的0.5改为0.9999999999，向下取整，加0.5一项去除就可以了。

行雲

ll_j 发表于 2017-1-14 22:33

再次感谢你

sicky111

ll_j老师很热心。