[討論]計算線總長而外加長度

蘋果爸各位前輩好
蘋果爸有分享一篇文章(LISP下載」線總長：DLINE.LSP)。
事情是這樣，小弟做線路架設的，圖面畫好的線與現場有誤差值，所以需加誤差值與餘線值，不知道要怎修改。
例如:100線長，100線長*0.1誤差值+30餘線值=140.0000總長度。(小數點4位)
還請各位前輩指導 謝謝。

Tanya 寫到:蘋果爸各位前輩好
蘋果爸有分享一篇文章(LISP下載」線總長：DLINE.LSP)。
事情是這樣，小弟做線路架設的，圖面畫好的線與現場有誤差值，所以需加誤差值與餘線值，不知道要怎修改。
例如:100線長，100線長*0.1誤差值+30餘線值=140.0000總長度。(小數點4位)
還請各位前輩指導 謝謝。

簡單的程式修改我還可以幫上忙~
SUMLEN表示原來的 總長度變數
把這個值加入公式後賦予新的值為 SUMLEN1
最後將秀出來的語法改為SUMLEN1
小數點由5位改為4位

1.請將原來的部份程式

代碼:

(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(print (strcat "總長度: " (rtos SUMLEN 2 5)))
(princ)
)

2.改為以下的方式:

代碼:

(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(setq SUMLEN1 (+ SUMLEN(+ 30 (* SUMLEN 0.1))))
(print (strcat "總長度: " (rtos SUMLEN1 2 4)))
(princ)
)

感謝蘋果爸教導，已修改完成也可用，謝謝。

Tanya 寫到:感謝蘋果爸教導，已修改完成也可用，謝謝。

謝謝回報喔!
有問題我們再來討論!