[已解決]請問要如何將小數點後...進位到.00第二位??

(setq k1 (getreal "\n 請輸入展開係數:"))
(command "lengthen" arc1"")
(setq dd (getvar "perimeter"))
(setq dd_1 (* dd (+ 1 k1)))
(setq dd_2 (rtos dd_1 2 2));這行是要改成二位數
(setq pt1 (cdr rr_cen))
(setq pt2 (polar pt1 0 rr))
(setq pt3 (polar pt2 (/ pi -2) dd_2))
(setq pt4 (polar pt3 0 t))
(command "RECTANGLE" pt2 pt4 )


可是在執行程式時有錯誤!!變成下面這樣!!

請輸入展開係數:0.42
目前的長度: 0.9425，夾角: 180; 錯誤: 損壞的引數類型: numberp: "1.34"

請好心的大大可以糾正我嗎??抱著書頭尖尖啊!!

函數 rtos 執行後，得到的值是字串，
應該再將其轉成實數才能符合你的需求....

因此將 (setq dd_2 (rtos dd_1 2 2));這行是要改成二位數
改寫成 (setq dd_2 (atof (rtos dd_1 2 2)))應該就能執行了

這是我用來對數值作四捨五入的笨方法，
你參考看看，
如果其他先進有更好的做法，
亦請不吝分享，謝謝!

---

Tiger&蘋果爸 寫到: 謝謝熱心回覆~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

謝謝835大大解惑!!
感謝您的幫忙!!
目前看書寫LISP一些指令還沒跟它們很熟!!
有時候得到的是數值還是字串還不是很清楚!!
希望它們能跟我熟一點....

bog0327 寫到:謝謝835大大解惑!!
感謝您的幫忙!!

不客氣～
只是剛好也曾為這個問題傷過腦筋罷了...
很高興能替你解決困擾，

也希望能有更多同好投入lisp的討論，
讓彼此的lisp功力能日益精進！