四舍五入.lsp

来自「用cad进行二次开发」· LSP 代码 · 共 5 行

(defun f45()
  (setq x (getreal "\n请输入小数值"))
  (setq n (getint "\n请输入小数点后第几位四舍五入"))
   (/ (fix (+ (* x (expt 10 (1- n)) ) 0.5)) (expt 10.0 (1- n)))
  )