请教高手关于精度的问题
 

请教高手关于精度的问题
www.dimcax.com
请教高手关于精度的问题
高手(defun c:jj1(/ ss dm dmbgmc dmbg gd gdbg gdbgmc js jsbg jsbgmc jsbgmc1 newjs newjsjs )
(prompt "请选择地面标高:) ")
(setq ss (ssget '((0 . "text"))))
(setq dm (ssname ss 0))
(setq dmbgmc (entget dm))
(setq dmbg (atof(cdr (assoc 1 dmbgmc))))
(prompt "请选择管底标高:) ")
(setq ss (ssget '((0 . "text"))))
(setq gd (ssname ss 0))
(setq gdbgmc (entget gd))
(setq gdbg (atof(cdr (assoc 1 gdbgmc))))
(prompt "请选择需修改标高的标注 ")
(setq ss (ssget '((0 . "text"))))
(setq js (ssname ss 0))
(setq jsbgmc (entget js))
(setq jsbg (atof(cdr (assoc 1 jsbgmc))))
(setq newjs (- dmbg gdbg))
(setq newjsjs1 (cons 1 (strcat "1000×1000×" (rtos newjs 2 2))))
(setq jsbgmc (subst newjsjs1 (assoc 1 jsbgmc) jsbgmc))
(entmod jsbgmc)
(prin1))
为什么我已经设了rtos newjs 2 2，但是计算出来的还是没有2位的精度呢？比如3-2不是等于1.00
d
在程序的开头(setvar "dimzin" 0)。
踅摸
d