AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

[分享]牆副筋(水平筋)段數計算-LISP小程式

上一篇主題 下一篇主題 向下

[分享]牆副筋(水平筋)段數計算-LISP小程式

發表 由 devinchou 于 2015-10-27, 11:28

例:牆長度為1350公分,
   牆水平筋為#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)
附件
24. 配筋-支數計算.牆副.zip 您無權下載這里的附件。(1 Kb) 下載 27 次


devinchou 在 2015-11-21, 12:54 作了第 3 次修改
avatar
devinchou
初級會員
初級會員

文章總數 : 49
年齡 : 40
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 2
經驗值 : 1452
威望值 : 150
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

回復: [分享]牆副筋(水平筋)段數計算-LISP小程式

發表 由 crihy 于 2015-11-04, 03:17

多謝devinchou大大,提供資訊分享

crihy
初級會員
初級會員

文章總數 : 157
年齡 : 41
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 4375
威望值 : 219
注冊日期 : 2008-05-13
藍鵲366號
男 處女座 龍

回頂端 向下

回復: [分享]牆副筋(水平筋)段數計算-LISP小程式

發表 由 a258 于 2015-11-12, 11:52

多謝devinchou測試看看
avatar
a258
初級會員
初級會員

文章總數 : 37
年齡 : 50
來自 : 桃園
職業 :
愛好 : 電腦
個性 : 自由
使用年資 : 1
使用版本 : 2008
積分 : 2
經驗值 : 2871
威望值 : 18
注冊日期 : 2010-07-10
顧問外掛程式 經典問與答讀者 藍鵲551號
男 雙子座 羊

回頂端 向下

回復: [分享]牆副筋(水平筋)段數計算-LISP小程式

發表 由 jenniferaptg 于 2015-11-17, 01:33

謝謝版主非常用心來分享這個

jenniferaptg
專屬會員
專屬會員

文章總數 : 111
年齡 : 43
來自 : taiwan
職業 : cafe
愛好 : 電腦
個性 : 平易近人
使用年資 : 15
使用版本 : autocad2011
經驗值 : 3735
威望值 : 30
注冊日期 : 2009-01-30
藍鵲136號
女 雙子座 虎

回頂端 向下

回復: [分享]牆副筋(水平筋)段數計算-LISP小程式

發表 由 et1029et 于 2015-11-26, 01:44

感謝無私分享LISP小程式
avatar
et1029et
初級會員
初級會員

文章總數 : 356
年齡 : 37
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3374
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

回復: [分享]牆副筋(水平筋)段數計算-LISP小程式

發表 由 devinchou 于 2016-12-10, 14:09

功能說明影片檔來了...
avatar
devinchou
初級會員
初級會員

文章總數 : 49
年齡 : 40
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 2
經驗值 : 1452
威望值 : 150
注冊日期 : 2015-02-15
男 天蝎座 蛇

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章