偏移输入求整数

皇上快溜 · 发表于 2016-10-28 00:46:38

(defun C:ZO ( )
  (setq pj (getdist "\n偏移距离"))
  (while (setq ename (car (entsel)))
(setq elast (entlast))
(command "OFFSET" pj ename pause "")
(if (not (equal elast (entlast)))
   (progn
(setq elast (entlast))
)
   )
)
  )

这个小程序，想在输入偏移距离时，点取两点，以两点间的距离求一个整数，作为偏移距离，想请各位老大帮忙改改好吗

Andyhon · 发表于 2016-10-28 08:37:30

(setq pj (rtos (getdist "\n偏移距离") 2 0))

皇上快溜 · 发表于 2016-10-28 17:02:14

Andyhon 发表于 2016-10-28 08:37
(setq pj (rtos (getdist "\n偏移距离") 2 0))

谢谢老大，真神奇(rtos 2 0)是什么原理呀？

如果想让整数在小数点一位数，如5.332，整数到5.30，怎么改啊？

Andyhon · 发表于 2016-10-28 18:27:56

通用法是乘10...再除10...

sdls · 发表于 2019-5-16 23:12:09

这代码有点意思！！

lenlenq · 发表于 2019-5-17 18:53:00

皇上快溜发表于 2016-10-28 17:02
谢谢老大，真神奇(rtos 2 0)是什么原理呀？

如果想让整数在小数点一位数，如5.332，整数到5.30，怎么 ...

(setq pj (rtos (getdist "\n偏移距离") 2 1))

alexmai · 发表于 2019-5-18 09:05:18

四舍五入到 5 是否这样
(setq pj (rtos (getdist "\n偏移距离") 2 5))

paulpipi · 发表于 2019-6-25 23:32:02

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

[提问] 偏移输入求整数