[問題] AUTOLISP 數字加總的問題

[baoo (孤獨的強者之路)]

手上有一個AUTOLISP的指令，是可以將圖面上的數字加總起來

可是加總後的數值如果位數較多，就會變不正常

比如兩組數字
6707398.3
3119903.05

加起來之後顯示會變成  9.8273e+006

請問有沒有辦法修改lisp的內容讓數字完整顯示??

lisp的內容如下

***********************************
(defun c:TJJ ()
  (vl-load-com)
  (setvar "osmode" 0)
  (princ "\n請選擇圖面上的數字:")
  (setq textobj (SSGET))
  (setq dimlength (sslength textobj))
  (SETQ NUM 0)
  (setq addnum 0)
  (WHILE (< NUM DIMLENGTH)
    (setq ent (ssname textobj num))
    (setq ent (vlax-ename->vla-object ent))
    (setq objtype (vlax-get ent 'ObjectName))
    (if (OR (= objtype "AcDbMText") (= objtype "AcDbText"))
      (PROGN
        (setq val1 (vlax-get ent 'Textstring))
        (setq val1 (atof val1))
        (setq addnum (+ addnum val1))
        )
      )
    (setq num (+ num 1))
    )
  (princ "\n數字總和為: ")
  (princ addnum)
  (PRINC)
;  (dos_clipboard addnum)
  )

*************************************

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 60.248.254.85