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

[討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

上一篇主題 下一篇主題 向下

[討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2015-03-06, 13:45

; 本程式為配筋長度替換輔助小工具(B_REBAR變更為A_REBAR)
 ; 支援軟體版本("AutoCAD")
 ; 設計者:Devin,Chou
 ; 版權所有,歡迎使用
 ; Rev.2(2014/12/14)
 ; 進版說明: -.程式碼精簡
代碼:
(defun C:rls (/ ra ra_1 ra_s1 ra_s2 ra_s3 ra_L
               rb rb_d rb_1 rb_s1 rb_s2 rb_s3 rb_L
               n_r )
(setvar "cmdecho" 0 )
(setq ra (entsel "\n選取配筋長度(來源):" ))
(setq ra_1
   (cdr
   (assoc 1
   (entget (car ra
   )))))
(setq ra_s1
   (1+
   (vl-string-search "-" ra_1
   )))
(setq ra_s2
   (vl-string-search "=" ra_1
   ))
(setq ra_s3
   (- ra_s2 ra_s1
   ))
(setq ra_L
   (substr ra_1
   (1+ ra_s1 ) ra_s3
   ))
(while
(setq rb (entsel "\n選取配筋長度(變更):" ))
(setq rb_d (entget (car rb )))
(setq rb_1
   (cdr
   (assoc 1 rb_d
   )))
(setq rb_s1
   (1+
   (vl-string-search "-" rb_1
   )))
(setq rb_s2
   (vl-string-search "=" rb_1
   ))
(setq rb_s3
   (- rb_s2 rb_s1
   ))
(setq rb_L
   (substr rb_1
   (1+ rb_s1 ) rb_s3
   ))
(setq n_r
   (cons 1
   (vl-string-subst ra_L rb_L rb_1
   )))
(setq rb_d
   (subst n_r
   (cons 1 rb_1 ) rb_d
   ))
(entmod rb_d )
) ; while
(prin1)
) ; end
(princ "\nC:rls(2版)")
(prin1)
例:A配筋 #4-500=52
   B1配筋 #4-600=32 B2配筋 #4-450=22 B3配筋 #4-784=99 ...
先選A配筋,再選B1.B2.B3...(可重覆選取要替換的配筋長度)
B1.B2.B3配筋長度會自動變更為A配筋的長度...

這LISP是小弟為了工作上的需求所寫的...
希望有興趣的朋友能夠提供使用上的意見...
謝謝大家!!!^_^

2016.11.22

使用步驟說明影片檔來了...
附件
rls.zip 您無權下載這里的附件。(1 Kb) 下載 75 次
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 judyyai 于 2015-03-12, 00:50

謝謝你的分享~
非建築相關~所以不知道怎麼使用

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7649
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27268
威望值 : 3466
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 Tiger&蘋果爸 于 2015-03-12, 02:43

judyyai 寫到:謝謝你的分享~
非建築相關~所以不知道怎麼使用
我也是不知如何使用~ 了解...
還是謝謝您無私分享!
有用到的朋友可以補圖教一下嘛~
感恩喔

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17320
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65290
威望值 : 12862
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2015-03-12, 04:29

Tiger&蘋果爸 寫到:
judyyai 寫到:謝謝你的分享~
非建築相關~所以不知道怎麼使用
我也是不知如何使用~ 了解...
還是謝謝您無私分享!
有用到的朋友可以補圖教一下嘛~
感恩喔

謝謝蘋果爸的版面編排...

我有時間會把使用步驟...
截圖上傳的...
感動

這個lisp的原理等同於蘋果爸的圖塊置換lisp...
不過置換的是文字...
就是針對[#4(鋼筋號數)-500(鋼筋長度)=50(鋼筋支數)]鋼筋長度做替換...
是我為了節省作業時間寫的...
發表上來是想要拋磚引玉...
也請各位前輩指導我lisp語法不足的地方...
謝謝...
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 benray 于 2015-03-13, 01:21

好用,減少計算時間。廠商報價檢核時也會很便利。
avatar
benray
初級會員
初級會員

文章總數 : 181
年齡 : 48
來自 : 花蓮縣
職業 : 建築、機電設計(飯店整合)、室內設計、REVIT
愛好 : GAME
個性 : 悶燒
使用年資 : 15年
使用版本 : 2016、2018版
積分 : 5
經驗值 : 3935
威望值 : 79
發帖精華 : 1
注冊日期 : 2008-10-11
顧問外掛程式 經典問與答讀者 藍鵲31號
2016聚會勳章 男 摩羯座 猴

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2015-03-13, 15:26

使用說明來了~~~

1.版配筋原始資料


2.使用文字編輯功能將配筋變更為所需長度


3.選取已變更的配筋


4.接著選取要變更的配筋


5.配筋長度已替換完成
 (可連續選取要替換的配筋)
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 JK_Nash 于 2015-05-23, 18:51

感謝大大的無私分享,讓我們增加許多的工作效率
avatar
JK_Nash
一般會員
一般會員

文章總數 : 26
年齡 : 28
來自 : 彰化
職業 : 土木
愛好 : 3C
個性 : 溫文儒雅
使用年資 : 7年
使用版本 : 2014
經驗值 : 1426
威望值 : 0
注冊日期 : 2014-05-17
男 水瓶座 蛇

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 chien_yi 于 2015-06-02, 10:43

大大看你的使用說明,發現原版資料裡的資料
有#3-484=28,#3-485=25
這因該是用LISP跑出來的
為何不直接進位到整數
我也是同業,很難遇到同業的 熱情
avatar
chien_yi
一般會員
一般會員

文章總數 : 16
年齡 : 49
來自 : 台北
職業 : 待業
愛好 : 電腦
個性 : 呆呆的
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2397
威望值 : 12
注冊日期 : 2011-08-19
男 水瓶座 猴

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 dollarxx 于 2015-06-23, 15:26

小弟是新手主任~謝謝分享~我會努力熟悉使用~好可以加快我計算的能力
avatar
dollarxx
一般會員
一般會員

文章總數 : 12
年齡 : 37
來自 : 桃園市桃園區
職業 : 建築
愛好 : 繪圖
個性 : 樂觀
使用年資 : 5年
使用版本 : 2007至2012
經驗值 : 983
威望值 : 0
注冊日期 : 2015-06-01
男 射手座 猴

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 李雅皮 于 2015-08-27, 06:48

這裡真是個好地方
一下子就找到好多lisp
先下載試用試用
謝謝無私分享
avatar
李雅皮
一般會員
一般會員

文章總數 : 4
年齡 : 27
來自 : 高雄
職業 : 待業
愛好 : 繪圖
個性 : 隨和
使用年資 : 三年
使用版本 : 2012
經驗值 : 858
威望值 : 0
注冊日期 : 2015-08-27
女 獅子座 馬

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2015-10-26, 04:38

潛水中...
偶而也要浮出水面來換氣...

長度替換修訂版:
增加單選及多選功能,
程式碼如下...

代碼:
 ; REBAR OF LENGTH T0 SUBSTITUTE(A-REBAR TO SUBSTITUTE FOR B-REBAR)
 ; 本程式為配筋長度替換輔助小工具(B_REBAR變更為A_REBAR)
 ; 支援軟體版本("AutoCAD")
 ; 設計者:Devin,Chou
 ; 版權所有,歡迎使用
 ; Rev.3(2015/10/26)
 ; 進版說明: 1.判斷式.單選(S)/多選(M) 2.圖元過濾.配筋格式
(defun C:rls (/ s_in r_in con_X lc_a lc_b
               ra ra_d ra_z ra_1 ra_s1 ra_s2 ra_s3 ra_L
               rb rb_d rb_z rb_1 rb_s1 rb_s2 rb_s3 rb_L
               s_rb s_rb_d s_rb_1 s_rb_s1 s_rb_s2 s_rb_s3 s_rb_L
               n_r s_n_r )
(setvar "cmdecho" 0 )
(setq s_in 0 )
(setq r_in 0 )
(initget "S M" )
(setq con_X
   (getkword
   (strcat "\n配筋長度替換[單選(S)/多選(M)]<S>:" )))
(if (= con_X nil )
   (setq con_X "S" )
) ; if
(setq ra (entsel "\n選取配筋長度(來源):" ))
(setq lc_a 0 )
(while (= lc_a 0 )
(if (= ra nil )
(setq ra (entsel "\n重新選取配筋長度(來源):" ))
) ; if
(setq ra_d
   (entget (car ra )))
(setq ra_z
   (cdr (assoc 0 ra_d )))
(setq ra_1
   (cdr (assoc 1 ra_d )))
(if (and (= ra_z "TEXT")
        (wcmatch ra_1 "*`##*-#*=#*" ))
(setq lc_a 1 )
(progn
(alert (strcat "非配筋格式,請重新選取" ))
(setq ra '() )
(setq lc_a 0 )
) ; progn
) ; if
) ; while
(setq ra_s1
   (1+ (vl-string-search "-" ra_1 )))
(setq ra_s2
   (vl-string-search "=" ra_1 ))
(setq ra_s3
   (- ra_s2 ra_s1 ))
(setq ra_L
   (substr ra_1 (1+ ra_s1 ) ra_s3 ))
(cond
((= con_X "S" )
(progn
(while
(setq rb (entsel "\n選取配筋長度(變更):" ))
(setq lc_b 0 )
(while (= lc_b 0 )
(if (= rb nil )
(setq rb (entsel "\n重新選取配筋長度(變更):" ))
) ; if
(setq rb_d
   (entget (car rb )))
(setq rb_z
   (cdr (assoc 0 rb_d )))
(setq rb_1
   (cdr (assoc 1 rb_d )))
(if (and (= rb_z "TEXT")
        (wcmatch rb_1 "*`##*-#*=#*" ))
(setq lc_b 1 )
(progn
(alert (strcat "非配筋格式,請重新選取" ))
(setq rb '() )
(setq lc_b 0 )
) ; progn
) ; if
) ; while
(setq rb_s1
   (1+ (vl-string-search "-" rb_1 )))
(setq rb_s2
   (vl-string-search "=" rb_1 ))
(setq rb_s3
   (- rb_s2 rb_s1 ))
(setq rb_L
   (substr rb_1 (1+ rb_s1 ) rb_s3 ))
(setq n_r
   (cons 1 (vl-string-subst ra_L rb_L rb_1 )))
(setq rb_d
   (subst n_r (cons 1 rb_1 ) rb_d ))
(entmod rb_d )
) ; while
) ; progn
) ; (= con_X "S" ),end
((= con_X "M" )
(progn
(princ "\n選取配筋長度(變更):" )
(setq s_rb (ssget '((0 . "TEXT"))))
(repeat (sslength s_rb )
(setq s_rb_d
   (entget (ssname s_rb s_in )))
(setq s_rb_1
   (cdr (assoc 1 s_rb_d )))
(if (wcmatch s_rb_1 "*`##*-#*=#*" )
(progn
(setq s_rb_s1
   (1+ (vl-string-search "-" s_rb_1 )))
(setq s_rb_s2
   (vl-string-search "=" s_rb_1 ))
(setq s_rb_s3
   (- s_rb_s2 s_rb_s1 ))
(setq s_rb_L
   (substr s_rb_1 (1+ s_rb_s1 ) s_rb_s3 ))
(setq s_n_r
   (cons 1 (vl-string-subst ra_L s_rb_L s_rb_1 )))
(setq s_rb_d
   (subst s_n_r (cons 1 s_rb_1 ) s_rb_d ))
(entmod s_rb_d )
(setq r_in (1+ r_in ))
) ; progn
) ; if
(setq s_in (1+ s_in ))
) ; repeat
(alert (strcat "替換個數:" (itoa r_in ) "個" ))
) ; progn
) ; (= con_X "M" ),end
) ; cond
(prin1)
) ; end
(princ "\nC:rls(3版)")
(prin1)
附件
9. 配筋-長度替換.zip 您無權下載這里的附件。(2 Kb) 下載 15 次


devinchou 在 2015-11-21, 13:00 作了第 2 次修改
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2015-10-26, 04:45

chien_yi 寫到:大大看你的使用說明,發現原版資料裡的資料
有#3-484=28,#3-485=25
這因該是用LISP跑出來的
為何不直接進位到整數
我也是同業,很難遇到同業的 熱情

害羞
被發現了...
這確實是軟體跑出來的沒錯...
這軟體本身是可以把配筋資料進位到整數...
但...是以10進位為倍數...
為了現場施工及找料方便...
所以在作業時...
我都會把版筋調成30倍數...
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 chien_yi 于 2015-10-26, 05:02

建議 設成自由倍數 ,在依各工地的需求自動跑出需求的倍數長度就不用在修改
avatar
chien_yi
一般會員
一般會員

文章總數 : 16
年齡 : 49
來自 : 台北
職業 : 待業
愛好 : 電腦
個性 : 呆呆的
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2397
威望值 : 12
注冊日期 : 2011-08-19
男 水瓶座 猴

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2015-10-26, 11:13

chien_yi 寫到:建議 設成自由倍數 ,在依各工地的需求自動跑出需求的倍數長度就不用在修改
能改的話...
我也想改呀!
但小弟所在的公司...
用的檢料軟體是跟別人買的...
所以在軟體的限制下...
我就只能自己寫些輔助用的小程式了...
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 chien_yi 于 2015-10-26, 12:13

原來是這樣
我是用自己寫的一些無法拿到檯面上的小工具
但是可以應付所有的美式版筋


avatar
chien_yi
一般會員
一般會員

文章總數 : 16
年齡 : 49
來自 : 台北
職業 : 待業
愛好 : 電腦
個性 : 呆呆的
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2397
威望值 : 12
注冊日期 : 2011-08-19
男 水瓶座 猴

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 crihy 于 2015-11-04, 03:29

多謝devinchou大大提供LISP語法及操作說明,感謝您的付出

crihy
初級會員
初級會員

文章總數 : 157
年齡 : 41
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 4375
威望值 : 219
注冊日期 : 2008-05-13
藍鵲366號
男 處女座 龍

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 et1029et 于 2015-11-24, 07:17

痾...完全進不了狀況
還是感謝大大分享!
avatar
et1029et
初級會員
初級會員

文章總數 : 356
年齡 : 37
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3374
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 devinchou 于 2016-11-22, 13:42


使用步驟說明影片檔來了...
avatar
devinchou
初級會員
初級會員

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

回頂端 向下

回復: [討論]分享檢料輔助小軟體:配筋-長度替換(LISP)

發表 由 judyyai 于 2016-11-22, 23:36

devinchou 寫到:
使用步驟說明影片檔來了...

謝謝你辛苦錄製影片教學! 讚啦!!

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7649
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27268
威望值 : 3466
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章