AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]計算線總長而外加長度 Io15010 [討論]計算線總長而外加長度 Easase10 [討論]計算線總長而外加長度 Oiu15010 [討論]計算線總長而外加長度 2020-211 [討論]計算線總長而外加長度 Oo-2-110 [討論]計算線總長而外加長度 BPl3tjj

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

向下

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

發表 由 Tanya 于 2011-05-02, 10:35

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

文章總數 : 373
年齡 : 45
來自 : 埔里鎮
職業 : 服務業
愛好 : 畫圖&音樂&大自然
個性 : 隨和
使用年資 : 2年
使用版本 : MAP 2011
積分 : 28
最佳解答 : 1
經驗值 : 5895
威望值 : 739
注冊日期 : 2010-03-06
藍鵲168號
男 天蝎座 虎

回頂端 向下

[討論]計算線總長而外加長度 Empty 回復: [討論]計算線總長而外加長度

發表 由 Tiger&蘋果爸 于 2011-05-02, 14:10

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)
)


____________________________________________________________________________________
[討論]計算線總長而外加長度 Oo-2-110 [討論]計算線總長而外加長度 Ia15010 [討論]計算線總長而外加長度 Ziao1510 [討論]計算線總長而外加長度 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19338
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 76554
威望值 : 14627
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[討論]計算線總長而外加長度 Empty 回復: [討論]計算線總長而外加長度

發表 由 Tanya 于 2011-05-02, 17:20

感謝蘋果爸教導,已修改完成也可用,謝謝。
Tanya
Tanya
榮譽顧問
榮譽顧問

文章總數 : 373
年齡 : 45
來自 : 埔里鎮
職業 : 服務業
愛好 : 畫圖&音樂&大自然
個性 : 隨和
使用年資 : 2年
使用版本 : MAP 2011
積分 : 28
最佳解答 : 1
經驗值 : 5895
威望值 : 739
注冊日期 : 2010-03-06
藍鵲168號
男 天蝎座 虎

回頂端 向下

[討論]計算線總長而外加長度 Empty 回復: [討論]計算線總長而外加長度

發表 由 Tiger&蘋果爸 于 2011-05-04, 11:58

Tanya 寫到:感謝蘋果爸教導,已修改完成也可用,謝謝。
謝謝回報喔!
有問題我們再來討論!
竊喜

____________________________________________________________________________________
[討論]計算線總長而外加長度 Oo-2-110 [討論]計算線總長而外加長度 Ia15010 [討論]計算線總長而外加長度 Ziao1510 [討論]計算線總長而外加長度 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19338
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 76554
威望值 : 14627
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]計算線總長而外加長度 Uos15010 [討論]計算線總長而外加長度 BPl3tjj [討論]計算線總長而外加長度 Ziao1510 [討論]計算線總長而外加長度 Oo-2-110 [討論]計算線總長而外加長度 Oooo-110 [討論]計算線總長而外加長度 2020-211