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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Io15011 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-310 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oiu15010 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj

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

+15
jackiehover
李雅皮
tan866
dollarxx
crihy
JK_Nash
lin62421
et1029et
a258
Lesley
li60830
benray
Tiger&蘋果爸
judyyai
devinchou
19 posters

2頁(共2頁) 上一頁  1, 2

向下

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

發表 由 devinchou 2015-03-12, 01: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,
可省下按計算機的時間.

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

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

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

fj.f6699, jenwei.hcs, mo5720 and ccow201 like this post

回頂端 向下


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

發表 由 liao55 2021-07-24, 00:59

謝謝分享,最近剛好在研究鋼筋撿料!
liao55
liao55
初級會員
初級會員

文章總數 : 47
年齡 : 55
來自 : 新北市
職業 : 水電工程
愛好 : 養狗、無線電、汽車
個性 : 活力、隨和
使用年資 : 1年
使用版本 : AUTO CAD 2017
積分 : 2
經驗值 : 3682
威望值 : 6
注冊日期 : 2012-04-04
經典問與答讀者 2012聚會勳章 2013勳章-2D基礎 男 雙魚座 馬

回頂端 向下

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

發表 由 fj.f6699 2021-08-19, 17:45

感謝分享 功力大增
fj.f6699
fj.f6699
一般會員
一般會員

文章總數 : 85
年齡 : 59
來自 : 台中市
職業 : 設計
愛好 : 看影片及找新產品
個性 : 隨和
使用年資 : 1
使用版本 : 2006
經驗值 : 4489
威望值 : 1
注冊日期 : 2010-07-12
2D基礎函授 經典問與答讀者 男 摩羯座 牛

回頂端 向下

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

發表 由 fj.f6699 2021-08-19, 17:45

感謝分享  功力大增
fj.f6699
fj.f6699
一般會員
一般會員

文章總數 : 85
年齡 : 59
來自 : 台中市
職業 : 設計
愛好 : 看影片及找新產品
個性 : 隨和
使用年資 : 1
使用版本 : 2006
經驗值 : 4489
威望值 : 1
注冊日期 : 2010-07-12
2D基礎函授 經典問與答讀者 男 摩羯座 牛

回頂端 向下

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

發表 由 fj.f6699 2021-08-19, 17:47

謝謝分享 公力大增
fj.f6699
fj.f6699
一般會員
一般會員

文章總數 : 85
年齡 : 59
來自 : 台中市
職業 : 設計
愛好 : 看影片及找新產品
個性 : 隨和
使用年資 : 1
使用版本 : 2006
經驗值 : 4489
威望值 : 1
注冊日期 : 2010-07-12
2D基礎函授 經典問與答讀者 男 摩羯座 牛

回頂端 向下

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

發表 由 fj.f6699 2021-08-19, 17:49

感謝分享
fj.f6699
fj.f6699
一般會員
一般會員

文章總數 : 85
年齡 : 59
來自 : 台中市
職業 : 設計
愛好 : 看影片及找新產品
個性 : 隨和
使用年資 : 1
使用版本 : 2006
經驗值 : 4489
威望值 : 1
注冊日期 : 2010-07-12
2D基礎函授 經典問與答讀者 男 摩羯座 牛

回頂端 向下

2頁(共2頁) 上一頁  1, 2

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Uos15010 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ziao1510 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oooo-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211