[分享]檢料輔助小軟體-配筋支數計數.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,
可省下按計算機的時間.

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

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

謝謝分享,最近剛好在研究鋼筋撿料!

感謝分享 功力大增

感謝分享  功力大增

謝謝分享 公力大增

感謝分享

感謝樓主的分享，
來研究看看這個工具的效果。

請問下載後,怎開啟工具軟體

讚啦 超有用的工具 感謝大大分享

直接用尺寸標註在建築圖牆上量測,用標註型式設定好@10、@12、@15....@25..等標註形式,將所有牆面都尺標完,再一一輸入支數,應該也是一個快速方法,目前手撿都還是用這方法,lisp目前還沒想到怎麼寫更快的,上來見習一下各位大大的方法
。

謝謝分享