[問題] AUTOLISP 數字加總的問題
手上有一個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
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章