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

[分享]檢料輔助小軟體-配筋支數計數.LISP

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

[分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 devinchou 于 2015-03-11, 17:44

鋼筋檢料在這個論壇,
好像是很冷門的職業...
@_@...

代碼:
 ; 本程式為"版筋.牆筋(牆副為列)"支數計算輔助小工具
 ; 支援軟體版本("AutoCAD")
 ; 設計者:Devin,Chou
 ; 版權所有,歡迎使用
 ; Rev.3(2015/03/12)
 ; 進版說明: 1.判斷式.配筋自動更新[是(Y)/否(N)] 2.支數更新後(如有)字尾維持不變
(defun C:rcm (/ con_X
               sp le n_n
               rb rb_1 rb_s n_o
               n_r rebar )
(setvar "cmdecho" 0 )
(initget "Y N" )
(setq con_X
   (getkword
   (strcat "\n配筋自動更新[是(Y)/否(N)]:" )))
(setq sp
   (getint "\n請輸入間距:" ))
(while
(setq le
   (getdist "\n請輸入長度(點選距離or輸入數值)[基點]:" ))
(setq n_n
   (1+
   (atoi
   (rtos (/ le sp ) 2 0 ))))
(cond
   (
    (= con_X "N" )
    (alert (strcat "支數:" (itoa n_n ) "支" ))
   )
   (
    (= con_X "Y" )
    (progn
    (setq rb
    (entsel "\n選取配筋[支數更新]:" ))
    (setq rb_1
    (cdr (assoc 1 (entget (car rb )))))
    (setq rb_s
    (+ 2 (vl-string-search "=" rb_1 )))
    (setq n_o
    (atoi (substr rb_1 rb_s )))
    (alert (strcat "更新後支數:" (itoa n_n ) "支" ))
    (setq n_r
    (cons 1
    (vl-string-subst
    (strcat "=" (itoa n_n ))
    (strcat "=" (itoa n_o ))
    rb_1 )))
    (setq rebar
    (subst n_r
    (cons 1 rb_1 )
    (entget (car rb ))))
    (entmod rebar )
    ) ; progn ;
   )
) ; cond
) ; while
(prin1)
) ; end
(princ "\nC:rcm(3版)")
(prin1)
配筋支數計算的LISP,
可省下按計算機的時間.

內容說明:
可選擇是否更新配筋,
如選否,
則輸入間距及長度後,
配筋支數會於螢幕上顯示.

選是,
輸入間距及長度後,
再選要更新的配筋,
則可直接變更,
螢幕上也會顯示支數.
附件
rcm.zip 您無權下載這里的附件。(1 Kb) 下載 77 次
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 judyyai 于 2015-03-12, 00:51

繼續支持你的分享~謝謝你~

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27168
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 Tiger&蘋果爸 于 2015-03-12, 02:42

讚啦!! 謝謝分享~
這部份因為專業不同...我也沒試過!
是不是要有對應的dwg圖面才可以使用lisp呢~
可以的話請補充圖片說明~

感恩!
害羞

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17191
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64603
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 devinchou 于 2015-03-12, 04:50

Tiger&蘋果爸 寫到:讚啦!! 謝謝分享~
這部份因為專業不同...我也沒試過!
是不是要有對應的dwg圖面才可以使用lisp呢~
可以的話請補充圖片說明~

感恩!
害羞

謝謝蘋果爸...
截圖待有空檔便會上傳...
還有上傳這些lisp...
主要是拋磚引玉...
想說為了有同性質工作的朋友...
節省作業上的時間...
另外對於其他會寫lisp的朋友...
有不同的編排形式.語法上的使用習慣供參考...
因為lisp的語言是很神奇的...
相同的答案可以有不一樣的過程...
謝謝...
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 benray 于 2015-03-13, 01:22

跟換算長度一樣,有異曲同工之用,減少計算時間。廠商報價檢核時也會很便利。
avatar
benray
初級會員
初級會員

文章總數 : 181
年齡 : 48
來自 : 花蓮縣
職業 : 建築、機電設計(飯店整合)、室內設計、REVIT
愛好 : GAME
個性 : 悶燒
使用年資 : 15年
使用版本 : 2016、2018版
積分 : 5
經驗值 : 3878
威望值 : 79
發帖精華 : 1
注冊日期 : 2008-10-11
顧問外掛程式 經典問與答讀者 藍鵲31號
2016聚會勳章 男 摩羯座 猴

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 li60830 于 2015-03-13, 03:20

謝謝分享~雖然我沒有用到的機會~
avatar
li60830
初級會員
初級會員

文章總數 : 310
年齡 : 46
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 2
經驗值 : 3265
威望值 : 304
注冊日期 : 2013-04-17
藍鵲697號
男 處女座 豬

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 devinchou 于 2015-03-14, 15:07

使用說明來了~~~

1.例.隔間牆長538公分,主筋間距20公分,經由計算得知主筋支數為28支


2.執行rcm(支數計算),配筋自動更新選否,輸入間距,輸入長度


3.螢幕顯示配筋支數


4.如間距變更為15公分,支數經計算後應更新為37支


5.執行rcm(支數計算),配筋自動更新選是,輸入間距,輸入長度,選取要變更的配筋


6.螢幕顯示更新後支數


7.配筋自動變更


使用時機-本指令可做為驗算或更新配筋支數之用
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 Lesley 于 2015-03-17, 14:47

非土木結構背景的工程師, 要計算鋼筋數量和配比,真的好難懂 暈倒
avatar
Lesley
一般會員
一般會員

文章總數 : 8
年齡 : 30
來自 : Tainan
職業 : 營造工程繪圖師
愛好 : 運動、旅遊、繪圖、攝影、聽音樂
個性 : 開朗
使用年資 : 5
使用版本 : 2014
經驗值 : 1091
威望值 : 6
注冊日期 : 2014-11-26
女 雙子座 兔

https://plus.google.com/u/0/115250354219673547102/posts

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 a258 于 2015-03-19, 06:32

我從事鋼筋施工所有圖都是自己撿料,下載試用了有問題再回報謝謝
avatar
a258
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 devinchou 于 2015-03-19, 13:42

a258 寫到:我從事鋼筋施工所有圖都是自己撿料,下載試用了有問題再回報謝謝
謝謝,
感謝你的使用!^_^

小弟我本身是從事鋼筋檢料的工作,
所以才想說,
自己寫一些小程式,
來輔助工作,
除了支數計算,長度替換,
還有其他的,
待有空我會一一上傳的,
希望能幫助到大家...
感恩呀!!!
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 et1029et 于 2015-03-20, 07:44

待有空時在來研究一下,感謝分享!
avatar
et1029et
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 a258 于 2015-03-20, 08:54

devinchou 寫到:
a258 寫到:我從事鋼筋施工所有圖都是自己撿料,下載試用了有問題再回報謝謝
謝謝,
感謝你的使用!^_^

小弟我本身是從事鋼筋檢料的工作,
所以才想說,
自己寫一些小程式,
來輔助工作,
除了支數計算,長度替換,
還有其他的,
待有空我會一一上傳的,
希望能幫助到大家...
感恩呀!!!
謝謝你的熱心,希望能借由你的程式能減輕我的工作負擔,期待你的分享謝謝
avatar
a258
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 lin62421 于 2015-04-10, 09:24

謝謝蘋果爸~~
avatar
lin62421
一般會員
一般會員

文章總數 : 43
年齡 : 44
來自 : 宜蘭縣
職業 :
愛好 : 測量、音樂
個性 : 隨和
使用年資 : 初學
使用版本 : 新手初學
經驗值 : 1797
威望值 : 0
注冊日期 : 2013-05-06
男 金牛座 牛

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 judyyai 于 2015-04-11, 06:53

lin62421 寫到:謝謝蘋果爸~~

作者沒謝到喔~
還有請遵守規定~不要低於10個字 回覆~

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27168
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 JK_Nash 于 2015-05-23, 17:24

感謝大大的分享,可以減少許多核對資料的時間
avatar
JK_Nash
一般會員
一般會員

文章總數 : 26
年齡 : 28
來自 : 彰化
職業 : 土木
愛好 : 3C
個性 : 溫文儒雅
使用年資 : 7年
使用版本 : 2014
經驗值 : 1369
威望值 : 0
注冊日期 : 2014-05-17
男 水瓶座 蛇

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 crihy 于 2015-05-24, 04:11

多謝devinchou大大提供專業資訊跟大家共享,感謝您的用心與分享。

crihy
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 dollarxx 于 2015-06-23, 15:27

真是謝謝大大~小弟可以好好的練習練習~將來能加快我計算速度了
avatar
dollarxx
一般會員
一般會員

文章總數 : 12
年齡 : 36
來自 : 桃園市桃園區
職業 : 建築
愛好 : 繪圖
個性 : 樂觀
使用年資 : 5年
使用版本 : 2007至2012
經驗值 : 926
威望值 : 0
注冊日期 : 2015-06-01
男 射手座 猴

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 tan866 于 2015-08-07, 03:44

鋼筋檢料程序,感謝 devinchou 分享,下載學習!!!
avatar
tan866
初級會員
初級會員

文章總數 : 67
年齡 : 40
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 2894
威望值 : 39
注冊日期 : 2010-10-24
藍鵲346號
男 摩羯座 龍

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 李雅皮 于 2015-08-27, 06:35

你好
我是lisp新手
最近剛開始研究
謝謝版主的分享
先下載看看
avatar
李雅皮
一般會員
一般會員

文章總數 : 4
年齡 : 27
來自 : 高雄
職業 : 待業
愛好 : 繪圖
個性 : 隨和
使用年資 : 三年
使用版本 : 2012
經驗值 : 801
威望值 : 0
注冊日期 : 2015-08-27
女 獅子座 馬

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

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

使用影片說明檔來了...
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 jackiehover 于 2017-01-10, 02:01

恩,感謝版大無私分享,小弟我雖不是這行,還是下載來看看,順便當班底囉。
avatar
jackiehover
初級會員
初級會員

文章總數 : 125
年齡 : 31
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至2017/03
使用版本 : 2014、15、16
積分 : 1
經驗值 : 1415
威望值 : 78
注冊日期 : 2015-08-31
藍鵲699號
男 水瓶座 虎

回頂端 向下

回復: [分享]檢料輔助小軟體-配筋支數計數.LISP

發表 由 bin1111 于 2017-05-23, 09:13


我也是做撿料的,自己了寫一套撿料程式自己用,8年來寫寫停停改了好幾次,
最近感覺下一步的瓶頸有點大,所以來這邊找靈感。

bin1111
一般會員
一般會員

文章總數 : 16
年齡 : 31
來自 : Taipei
職業 : 鋼筋撿料
愛好 : AutoLISP
個性 : 沉穩
使用年資 : 8年以上
使用版本 : 2016
經驗值 : 3341
威望值 : 18
注冊日期 : 2008-11-04
男 白羊座 虎

回頂端 向下

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


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