[分享]檢料輔助小軟體-配筋支數計數.LISP
+18
liao55
eltonirina
bin1111
jackiehover
李雅皮
tan866
dollarxx
crihy
JK_Nash
lin62421
et1029et
a258
Lesley
li60830
benray
Tiger&蘋果爸
judyyai
devinchou
22 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共2頁)
[分享]檢料輔助小軟體-配筋支數計數.LISP
鋼筋檢料在這個論壇,
好像是很冷門的職業...
@_@...
可省下按計算機的時間.
內容說明:
可選擇是否更新配筋,
如選否,
則輸入間距及長度後,
配筋支數會於螢幕上顯示.
選是,
輸入間距及長度後,
再選要更新的配筋,
則可直接變更,
螢幕上也會顯示支數.
好像是很冷門的職業...
@_@...
- 代碼:
; 本程式為"版筋.牆筋(牆副為列)"支數計算輔助小工具
; 支援軟體版本("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)
可省下按計算機的時間.
內容說明:
可選擇是否更新配筋,
如選否,
則輸入間距及長度後,
配筋支數會於螢幕上顯示.
選是,
輸入間距及長度後,
再選要更新的配筋,
則可直接變更,
螢幕上也會顯示支數.
- 附件
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
Tiger&蘋果爸, fj.f6699, 天空星星, jenwei.hcs, mo5720 and ccow201 like this post
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
繼續支持你的分享~謝謝你~
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30397
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
謝謝分享~
這部份因為專業不同...我也沒試過!
是不是要有對應的dwg圖面才可以使用lisp呢~
可以的話請補充圖片說明~
感恩!
這部份因為專業不同...我也沒試過!
是不是要有對應的dwg圖面才可以使用lisp呢~
可以的話請補充圖片說明~
感恩!
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
Tiger&蘋果爸 寫到: 謝謝分享~
這部份因為專業不同...我也沒試過!
是不是要有對應的dwg圖面才可以使用lisp呢~
可以的話請補充圖片說明~
感恩!
謝謝蘋果爸...
截圖待有空檔便會上傳...
還有上傳這些lisp...
主要是拋磚引玉...
想說為了有同性質工作的朋友...
節省作業上的時間...
另外對於其他會寫lisp的朋友...
有不同的編排形式.語法上的使用習慣供參考...
因為lisp的語言是很神奇的...
相同的答案可以有不一樣的過程...
謝謝...
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
跟換算長度一樣,有異曲同工之用,減少計算時間。廠商報價檢核時也會很便利。
benray- 專屬會員
- 文章總數 : 199
年齡 : 55
來自 : 花蓮縣
職業 : 建築、機電設計(飯店整合)、室內設計、REVIT
愛好 : GAME
個性 : 悶燒
使用年資 : >20年
使用版本 : 2025版
積分 : 6
經驗值 : 6510
威望值 : 103
發帖精華 : 1
注冊日期 : 2008-10-12
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
謝謝分享~雖然我沒有用到的機會~
li60830- 初級會員
- 文章總數 : 345
年齡 : 53
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 5
經驗值 : 5952
威望值 : 340
注冊日期 : 2013-04-17
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
使用說明來了~~~
1.例.隔間牆長538公分,主筋間距20公分,經由計算得知主筋支數為28支
2.執行rcm(支數計算),配筋自動更新選否,輸入間距,輸入長度
3.螢幕顯示配筋支數
4.如間距變更為15公分,支數經計算後應更新為37支
5.執行rcm(支數計算),配筋自動更新選是,輸入間距,輸入長度,選取要變更的配筋
6.螢幕顯示更新後支數
7.配筋自動變更
使用時機-本指令可做為驗算或更新配筋支數之用
1.例.隔間牆長538公分,主筋間距20公分,經由計算得知主筋支數為28支
2.執行rcm(支數計算),配筋自動更新選否,輸入間距,輸入長度
3.螢幕顯示配筋支數
4.如間距變更為15公分,支數經計算後應更新為37支
5.執行rcm(支數計算),配筋自動更新選是,輸入間距,輸入長度,選取要變更的配筋
6.螢幕顯示更新後支數
7.配筋自動變更
使用時機-本指令可做為驗算或更新配筋支數之用
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
天空星星 likes this post
Lesley- 一般會員
- 文章總數 : 8
年齡 : 37
來自 : Tainan
職業 : cad/bim工程師
愛好 : 運動、旅遊、繪圖、攝影、音樂
個性 : 樂意分享
使用年資 : 14
使用版本 : 2020
經驗值 : 3641
威望值 : 12
注冊日期 : 2014-11-26
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
我從事鋼筋施工所有圖都是自己撿料,下載試用了有問題再回報謝謝
a258- 初級會員
- 文章總數 : 49
年齡 : 57
來自 : 桃園
職業 : 工
愛好 : 電腦
個性 : 自由
使用年資 : 1
使用版本 : 2008
積分 : 3
經驗值 : 5420
威望值 : 24
注冊日期 : 2010-07-10
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
謝謝,a258 寫到:我從事鋼筋施工所有圖都是自己撿料,下載試用了有問題再回報謝謝
感謝你的使用!^_^
小弟我本身是從事鋼筋檢料的工作,
所以才想說,
自己寫一些小程式,
來輔助工作,
除了支數計算,長度替換,
還有其他的,
待有空我會一一上傳的,
希望能幫助到大家...
感恩呀!!!
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
待有空時在來研究一下,感謝分享!
et1029et- 初級會員
- 文章總數 : 356
年齡 : 43
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5861
威望值 : 324
注冊日期 : 2013-07-02
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
謝謝你的熱心,希望能借由你的程式能減輕我的工作負擔,期待你的分享謝謝devinchou 寫到:謝謝,a258 寫到:我從事鋼筋施工所有圖都是自己撿料,下載試用了有問題再回報謝謝
感謝你的使用!^_^
小弟我本身是從事鋼筋檢料的工作,
所以才想說,
自己寫一些小程式,
來輔助工作,
除了支數計算,長度替換,
還有其他的,
待有空我會一一上傳的,
希望能幫助到大家...
感恩呀!!!
a258- 初級會員
- 文章總數 : 49
年齡 : 57
來自 : 桃園
職業 : 工
愛好 : 電腦
個性 : 自由
使用年資 : 1
使用版本 : 2008
積分 : 3
經驗值 : 5420
威望值 : 24
注冊日期 : 2010-07-10
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
謝謝蘋果爸~~
lin62421- 一般會員
- 文章總數 : 43
年齡 : 51
來自 : 宜蘭縣
職業 : 工
愛好 : 測量、音樂
個性 : 隨和
使用年資 : 初學
使用版本 : 新手初學
經驗值 : 4341
威望值 : 0
注冊日期 : 2013-05-06
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
lin62421 寫到:謝謝蘋果爸~~
作者沒謝到喔~
還有請遵守規定~不要低於10個字 回覆~
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30397
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
感謝大大的分享,可以減少許多核對資料的時間
JK_Nash- 一般會員
- 文章總數 : 48
年齡 : 35
來自 : 彰化
職業 : 土木
愛好 : 3C
個性 : 溫文儒雅
使用年資 : 7年
使用版本 : 2014
經驗值 : 4009
威望值 : 0
注冊日期 : 2014-05-17
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
多謝devinchou大大提供專業資訊跟大家共享,感謝您的用心與分享。
crihy- 初級會員
- 文章總數 : 178
年齡 : 48
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 7192
威望值 : 471
注冊日期 : 2008-05-13
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
真是謝謝大大~小弟可以好好的練習練習~將來能加快我計算速度了
dollarxx- 一般會員
- 文章總數 : 14
年齡 : 43
來自 : 桃園市桃園區
職業 : 建築
愛好 : 繪圖
個性 : 樂觀
使用年資 : 5年
使用版本 : 2007至2012
經驗值 : 3480
威望值 : 0
注冊日期 : 2015-06-01
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
鋼筋檢料程序,感謝 devinchou 分享,下載學習!!!
tan866- 初級會員
- 文章總數 : 79
年齡 : 47
來自 : 高雄
職業 : 繪圖
愛好 : 騎腳踏車
個性 : 開朗
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 5506
威望值 : 47
注冊日期 : 2010-10-24
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
你好
我是lisp新手
最近剛開始研究
謝謝版主的分享
先下載看看
我是lisp新手
最近剛開始研究
謝謝版主的分享
先下載看看
李雅皮- 一般會員
- 文章總數 : 4
年齡 : 34
來自 : 高雄
職業 : 待業
愛好 : 繪圖
個性 : 隨和
使用年資 : 三年
使用版本 : 2012
經驗值 : 3345
威望值 : 0
注冊日期 : 2015-08-27
devinchou- 初級會員
- 文章總數 : 56
年齡 : 46
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 4034
威望值 : 192
注冊日期 : 2015-02-15
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
恩,感謝版大無私分享,小弟我雖不是這行,還是下載來看看,順便當班底囉。
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4143
威望值 : 96
注冊日期 : 2015-08-31
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
我也是做撿料的,自己了寫一套撿料程式自己用,8年來寫寫停停改了好幾次,
最近感覺下一步的瓶頸有點大,所以來這邊找靈感。
bin1111- 一般會員
- 文章總數 : 23
年齡 : 38
來自 : Taipei
職業 : 鋼筋撿料
愛好 : AutoLISP
個性 : 沉穩
使用年資 : 2006年起
使用版本 : 2018
經驗值 : 5943
威望值 : 36
注冊日期 : 2008-11-04
銀翼 likes this post
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4143
威望值 : 96
注冊日期 : 2015-08-31
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
感謝您無私地分享,下載來試試了
eltonirina- 一般會員
- 文章總數 : 4
年齡 : 48
來自 : 台中
職業 : 營造
愛好 : 看電視
個性 : 外向
使用年資 : 10
使用版本 : 2012
經驗值 : 2965
威望值 : 0
注冊日期 : 2016-09-19
回復: [分享]檢料輔助小軟體-配筋支數計數.LISP
很好的鋼筋檢料工具軟體,謝謝
liao55- 初級會員
- 文章總數 : 47
年齡 : 58
來自 : 新北市
職業 : 水電工程
愛好 : 養狗、無線電、汽車
個性 : 活力、隨和
使用年資 : 1年
使用版本 : AUTO CAD 2017
積分 : 2
經驗值 : 4785
威望值 : 6
注冊日期 : 2012-04-04
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共2頁)
這個論壇的權限:
您 無法 在這個版面回復文章