四舍五入.lsp

用cad进行二次开发

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