[分享]牆副筋(水平筋)段數計算-LISP小程式
+3
a258
crihy
devinchou
7 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[分享]牆副筋(水平筋)段數計算-LISP小程式
例:牆長度為1350公分,
牆水平筋為#3,
搭接長為32公分,
使用5米長鋼筋進行綁紮(需使用3段5米長鋼筋料),
執行本程式可輔助計算牆水平筋所需段數!
指令名:RCS
依序輸入搭接長、單支長、總長,
所需段數螢幕上即會顯示。
以下為程式碼:
牆水平筋為#3,
搭接長為32公分,
使用5米長鋼筋進行綁紮(需使用3段5米長鋼筋料),
執行本程式可輔助計算牆水平筋所需段數!
指令名:RCS
依序輸入搭接長、單支長、總長,
所需段數螢幕上即會顯示。
以下為程式碼:
- 代碼:
; 本程式為牆副筋段數計算輔助小工具
; 支援軟體版本("AutoCAD")
; 設計者:Devin,Chou
; 版權所有,歡迎使用
; Rev.1(2014/11/30)
(defun C:rcs (/ 搭接長 單支長 總長 商 再補 )
(setvar "cmdecho" 0 )
(setq 搭接長 (getint "\n請輸入搭接長:" ))
(setq 單支長 (getint "\n請輸入單支長:" ))
(setq 總長 (getreal "\n請輸入總長:" ))
(setq 商
(fix
(/
(- 總長 搭接長 )
(- 單支長 搭接長 )
)))
(setq 再補
(rtos
(- 總長
(* 商
(- 單支長 搭接長 )
))
2 0
))
(alert
(strcat
"單支長:" (itoa 單支長 ) "公分"
"\n"
"支數:" (itoa 商 ) "支"
"\n"
"再補:" 再補 "公分"
))
(prin1)
) ; end
(princ "\nC:rcs")
(prin1)
- 附件
devinchou 在 2015-11-21, 20:54 作了第 3 次修改
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4038
威望值 : 192
注冊日期 : 2015-02-15
回復: [分享]牆副筋(水平筋)段數計算-LISP小程式
多謝devinchou大大,提供資訊分享
crihy- 初級會員
- 文章總數 : 178
年齡 : 48
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 7196
威望值 : 471
注冊日期 : 2008-05-13
回復: [分享]牆副筋(水平筋)段數計算-LISP小程式
多謝devinchou測試看看
a258- 初級會員
- 文章總數 : 49
年齡 : 57
來自 : 桃園
職業 : 工
愛好 : 電腦
個性 : 自由
使用年資 : 1
使用版本 : 2008
積分 : 3
經驗值 : 5424
威望值 : 24
注冊日期 : 2010-07-10
回復: [分享]牆副筋(水平筋)段數計算-LISP小程式
謝謝版主非常用心來分享這個
jenniferaptg- 一般會員
- 文章總數 : 134
年齡 : 50
來自 : taiwan
職業 : cafe
愛好 : 電腦
個性 : 平易近人
使用年資 : 15
使用版本 : 用最熟的那一版
經驗值 : 6333
威望值 : 30
注冊日期 : 2009-01-30
回復: [分享]牆副筋(水平筋)段數計算-LISP小程式
感謝無私分享LISP小程式
et1029et- 初級會員
- 文章總數 : 356
年齡 : 43
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5865
威望值 : 324
注冊日期 : 2013-07-02
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4038
威望值 : 192
注冊日期 : 2015-02-15
回復: [分享]牆副筋(水平筋)段數計算-LISP小程式
謝謝前輩分享,非常實用。
linxyz168- 專屬會員
- 文章總數 : 59
年齡 : 46
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 4502
威望值 : 12
注冊日期 : 2013-03-31
回復: [分享]牆副筋(水平筋)段數計算-LISP小程式
感謝大大無私分享,謝謝
poiuyy- 初級會員
- 文章總數 : 226
年齡 : 50
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 4730
威望值 : 84
注冊日期 : 2014-06-24
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章