[求助]怎么样使除法结果显示小数点后的位数-已由masterlong解决

crazylsp · 发表于 2010-7-20 11:50:00

本帖最后由 crazylsp 于 2011-4-21 09:19 编辑

网上的简化四则运算程序，除法只能显示整数，而且结果也不对，怎样使结果正确并显示小数点后的位数?

)

masterlong · 发表于 2010-7-20 22:23:00

(princ (eval (cons '/ (append (ss-text-getreal ss) (list 1.0)))))

crtrccrt · 发表于 2010-7-21 08:30:00

(setq lst (cons (read (cdr (assoc 1 (entget (ssname ss i))))) lst))
============================================
(setq lst (cons (atof (cdr (assoc 1 (entget (ssname ss i))))) lst))
------------------------------------------------------------------------------
------------------------------------------------------------------------------
(princ (eval (cons '/ (ss-text-getreal ss))))
============================================
(setq tmp (ss-text-getreal ss))
(princ (eval (cons '/ (cons (* (car tmp) 1.0) (cdr tmp)) )))
------------------------------------------------------------------------------
法1优于法2
------------------------------------------------------------------------------

crazylsp · 发表于 2010-7-21 10:07:00

谢谢2楼3楼, 不知什么原因3楼不能显示，2楼显示成功。

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

[函数] [求助]怎么样使除法结果显示小数点后的位数-已由masterlong解决