[求助]：一个lisp的小问题

青马

打个比方吧
(setq sadd 262.4)
(command "text  ** ** ** sadd)

为什么写出来的结果是262.39999999999999999
这个要怎么来解决啊

YueFeng

转为字符吧。

青马

这个方法我也想过，但不是这么简单的事啊，如果我用
(rtos sadd 2  ?)
那么这个精度我要怎么定啊，也就是那个问号了，要把精度设在几位上啊，明白我的意思吗

cy956

(setq sadd 262.4) 直接赋值是不应该出现浮点差值的。
用rtos的位数可以根据你想控制的位数，比如在建筑中
通常尺寸等的精度为整数，而标高设到小数点以后3位。
每个行业应该都有自己的约定。

szkevin

如果是text,不用转换,这样就行了
(setq sadd "262.4")

青马

(defun c:add (/ ss sl i sadd sa sp sc pd)

  (setq        ss   (ssget '((0 . "text"))) ;选文字
        sn   (ssname ss 0)           ;求第一个子物体的名
        sp   (entget sn)             ;求子物体的属性
        sh   (cdr (assoc 40 sp))     ;字高
        st   (cdr (assoc 7 sp))      ;标注类型
        sl   (sslength ss)   
        i    0
        sadd 0.0
  )
  (repeat sl
    (progn
      (setq sp (entget (ssname ss i)))
      (setq sc (cdr (assoc 1 sp)))
      (setq sa (atof sc))
      (setq sadd (+ sadd sa))
      (setq i (+ i 1))
    )
  )                 ;求文字的相加结果
  (print sadd)
  (print)
;;;  (setq sadd (rtos sadd 2 3))
;;;  (initget "Yes No")
  (setq pd (getstring "n\是否标注 Y/N <Y>"))
  (if (or (= pd "y") (= pd ""))
    (progn (setq pt (getpoint "\n 请输入插入点"))
           (command "text" "s" st pt sh "0" sadd)
;就是这行有问题,我得出的sadd是262.4,但写出来的总是262.39999999
    )
  )
  (print)
)

XDSoft

最初由 青马 发布
[B](defun c:add (/ ss sl i sadd sa sp sc pd)

  (setq        ss   (ssget '((0 . "text"))) ;选文字
        sn   (ssname ss 0)           ;求第一个子物体的名
        sp   (entget sn)             ;求子物体的属性
        sh   (cdr ... [/B]

你使用了浮点数相加，在累加的过程中出现了误差，这是受机器表示浮点数的方法限制的。

所以，在最后打印累加和的时候，一般都要限制满足要求的精度，这个跟你具体的需要有关，不同的专业要求不同。最后用RTOS转换成合适的精度吧。

青马

还是不明白,我分步执行时,可以求出sadd 是262.4 ,但是(command "text ** ** ** sadd)后写出的就是
.39999999

前生

(vl-prin1-to-strig)用用试试

szkevin

因为sadd是实数类型,所以最好有一个用rtos转换成字符串,估计没问题.
(command "text ** ** ** (RTOS sadd 2 0))