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

+18
liao55
eltonirina
bin1111
jackiehover
李雅皮
tan866
dollarxx
crihy
JK_Nash
lin62421
et1029et
a258
Lesley
li60830
benray
Tiger&蘋果爸
judyyai
devinchou
22 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
年齡 : 45
來自 : 基隆
職業 : 鋼筋檢料
愛好 : 寫作.閱讀.烹飪
個性 : 懶小孩一枚
使用年資 : 每天
使用版本 : 2006.2008
積分 : 3
經驗值 : 3403
威望值 : 180
注冊日期 : 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
年齡 : 56
來自 : 新北市
職業 : 水電工程
愛好 : 養狗、無線電、汽車
個性 : 活力、隨和
使用年資 : 1年
使用版本 : AUTO CAD 2017
積分 : 2
經驗值 : 4169
威望值 : 6
注冊日期 : 2012-04-04
經典問與答讀者 2012聚會勳章 2013勳章-2D基礎 男 雙魚座 馬

回頂端 向下

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

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

感謝分享 功力大增

____________________________________________________________________________________
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ioaoe110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Zuoiy_10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao11 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Iyb_1510
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj.png [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ziao1510 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oooa_110
fj.f6699
fj.f6699
一般會員
一般會員

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

回頂端 向下

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

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

感謝分享  功力大增

____________________________________________________________________________________
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ioaoe110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Zuoiy_10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao11 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Iyb_1510
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj.png [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ziao1510 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oooa_110
fj.f6699
fj.f6699
一般會員
一般會員

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

回頂端 向下

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

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

謝謝分享 公力大增

____________________________________________________________________________________
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ioaoe110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Zuoiy_10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao11 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Iyb_1510
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj.png [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ziao1510 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oooa_110
fj.f6699
fj.f6699
一般會員
一般會員

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

回頂端 向下

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

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

感謝分享

____________________________________________________________________________________
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ioaoe110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Zuoiy_10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao11 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Iyb_1510
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj.png [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ziao1510 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oooa_110
fj.f6699
fj.f6699
一般會員
一般會員

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

回頂端 向下

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

發表 由 天空星星 2022-10-14, 15:39

感謝樓主的分享,
來研究看看這個工具的效果。
認同
天空星星
天空星星
一般會員
一般會員

文章總數 : 3
年齡 : 45
來自 : 永康
職業 : 設計嫩手
愛好 : 研究
個性 : 中庸
使用年資 : 一個月
使用版本 : 2020
經驗值 : 2408
威望值 : 0
注冊日期 : 2016-07-10
男 巨蟹座 蛇

回頂端 向下

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

發表 由 銀翼 2022-10-23, 16:09

請問下載後,怎開啟工具軟體
銀翼
銀翼
一般會員
一般會員

文章總數 : 4
年齡 : 41
來自 : 台北
職業 : 工程師
愛好 : 宜靜宜動
個性 : 謹慎踏實
使用年資 : 1
使用版本 : 2022
經驗值 : 145
威望值 : 0
注冊日期 : 2022-09-25
男 射手座 雞

回頂端 向下

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

發表 由 ajuge.tw 2022-10-27, 21:08

讚啦 超有用的工具 感謝大大分享
ajuge.tw
ajuge.tw
專屬會員
專屬會員

文章總數 : 6
年齡 : 44
來自 : 臺中市
職業 : 工程師
愛好 : 設計
個性 : 發呆
使用年資 : 5
使用版本 : 2010
經驗值 : 2630
威望值 : 0
注冊日期 : 2015-12-16
男 白羊座 馬

回頂端 向下

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

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ioaoe110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-310 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oiu15010 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 2020-211 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ia15010 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao10
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Uos15010 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 BPl3tjj [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Ziao1510 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Oo-2-110 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Zuoiy_10 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aizyao11
[分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Aoe1-111 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 Uos15011 [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 RQvAhqF [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 YdKelqY [分享]檢料輔助小軟體-配筋支數計數.LISP - 頁 2 K410yWG