[分享]檢料輔助小軟體-配筋支數計數.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)


配筋支數計算的LISP,
可省下按計算機的時間.

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

選是,
輸入間距及長度後,
再選要更新的配筋,
則可直接變更,
螢幕上也會顯示支數.

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

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

感恩！

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

感恩！

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

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

謝謝分享~雖然我沒有用到的機會~

使用說明來了~~~

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


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


3.螢幕顯示配筋支數


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


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


6.螢幕顯示更新後支數


7.配筋自動變更


使用時機-本指令可做為驗算或更新配筋支數之用

非土木結構背景的工程師， 要計算鋼筋數量和配比，真的好難懂

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

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

謝謝,
感謝你的使用!^_^

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

待有空時在來研究一下，感謝分享!

devinchou 寫到:

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

謝謝,
感謝你的使用!^_^

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

謝謝你的熱心,希望能借由你的程式能減輕我的工作負擔,期待你的分享謝謝

謝謝蘋果爸~~

lin62421 寫到:謝謝蘋果爸~~

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

感謝大大的分享,可以減少許多核對資料的時間

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

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

鋼筋檢料程序,感謝 devinchou 分享,下載學習!!!

你好
我是lisp新手
最近剛開始研究
謝謝版主的分享
先下載看看

使用影片說明檔來了...

恩，感謝版大無私分享，小弟我雖不是這行，還是下載來看看，順便當班底囉。

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

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

大大做成這樣感覺更完善了，且功能性更多。

感謝您無私地分享，下載來試試了

很好的鋼筋檢料工具軟體，謝謝