[已解決]請問要如何將小數點後...進位到.00第二位??
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
[已解決]請問要如何將小數點後...進位到.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"
請好心的大大可以糾正我嗎??抱著書頭尖尖啊!!
(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 )
可是在執行程式時有錯誤!!變成下面這樣!!
![三條線](/users/3215/23/55/09/smiles/564587.gif)
請輸入展開係數:0.42
目前的長度: 0.9425,夾角: 180; 錯誤: 損壞的引數類型: numberp: "1.34"
請好心的大大可以糾正我嗎??抱著書頭尖尖啊!!
![頭暈目眩](/users/3215/23/55/09/smiles/712308.gif)
bog0327 在 周日 8 4月 2012 - 13:44 作了第 2 次修改
bog0327- 一般會員
- 文章總數 : 22
年齡 : 41
來自 : 台北
職業 : ACAD
愛好 : 看電影&漫畫
個性 : 好奇心很重的豬
使用年資 : 5
使用版本 : 2008
經驗值 : 5199
威望值 : 1
注冊日期 : 2010-09-05
回復: [已解決]請問要如何將小數點後...進位到.00第二位??
函數 rtos 執行後,得到的值是字串,
應該再將其轉成實數才能符合你的需求....
因此將 (setq dd_2 (rtos dd_1 2 2));這行是要改成二位數
改寫成 (setq dd_2 (atof (rtos dd_1 2 2)))應該就能執行了
這是我用來對數值作四捨五入的笨方法,
你參考看看,
如果其他先進有更好的做法,
亦請不吝分享,謝謝!
應該再將其轉成實數才能符合你的需求....
因此將 (setq dd_2 (rtos dd_1 2 2));這行是要改成二位數
改寫成 (setq dd_2 (atof (rtos dd_1 2 2)))應該就能執行了
這是我用來對數值作四捨五入的笨方法,
你參考看看,
如果其他先進有更好的做法,
亦請不吝分享,謝謝!
Tiger&蘋果爸 寫到:謝謝熱心回覆~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
835- 初級會員
- 文章總數 : 36
年齡 : 45
來自 : 台中
職業 : 工程
愛好 : 打球
個性 : 沈靜
使用年資 : 6
使用版本 : 2008
積分 : 2
經驗值 : 4862
威望值 : 59
注冊日期 : 2012-01-02
回復: [已解決]請問要如何將小數點後...進位到.00第二位??
謝謝835大大解惑!!
感謝您的幫忙!!
目前看書寫LISP一些指令還沒跟它們很熟!!
有時候得到的是數值還是字串還不是很清楚!!
希望它們能跟我熟一點....
感謝您的幫忙!!
目前看書寫LISP一些指令還沒跟它們很熟!!
![愛哭](/users/3215/23/55/09/smiles/15988.gif)
有時候得到的是數值還是字串還不是很清楚!!
希望它們能跟我熟一點....
![害羞](/users/3215/23/55/09/smiles/84227.gif)
bog0327- 一般會員
- 文章總數 : 22
年齡 : 41
來自 : 台北
職業 : ACAD
愛好 : 看電影&漫畫
個性 : 好奇心很重的豬
使用年資 : 5
使用版本 : 2008
經驗值 : 5199
威望值 : 1
注冊日期 : 2010-09-05
回復: [已解決]請問要如何將小數點後...進位到.00第二位??
bog0327 寫到:謝謝835大大解惑!!
感謝您的幫忙!!
不客氣~
只是剛好也曾為這個問題傷過腦筋罷了...
很高興能替你解決困擾,
![好開心](/users/3215/23/55/09/smiles/411967.gif)
也希望能有更多同好投入lisp的討論,
讓彼此的lisp功力能日益精進!
835- 初級會員
- 文章總數 : 36
年齡 : 45
來自 : 台中
職業 : 工程
愛好 : 打球
個性 : 沈靜
使用年資 : 6
使用版本 : 2008
積分 : 2
經驗值 : 4862
威望值 : 59
注冊日期 : 2012-01-02
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章