AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[討論]VBA分享 Excel材料表轉入Autocad - (二) Oo-2-110 [討論]VBA分享 Excel材料表轉入Autocad - (二) Ia15010 [討論]VBA分享 Excel材料表轉入Autocad - (二) Ziao1510 [討論]VBA分享 Excel材料表轉入Autocad - (二) BPl3tjj [討論]VBA分享 Excel材料表轉入Autocad - (二) Uos15010 [討論]VBA分享 Excel材料表轉入Autocad - (二) Uos15011

[討論]VBA分享 Excel材料表轉入Autocad - (二)

向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 vincera 于 2016-02-20, 14:40

前幾天分享了EXCEL材料表轉入Autocad的功能[討論]VBA分享 Excel材料表轉入Autocad
轉入後材料表是以一個一般圖塊的方式插入

這幾天想了一下,這個方式對於之後要在cad上直接修改的話,還是不太方便
因此就用原本的程式再修改了一下,改成插入後是做成屬性圖塊的方式
這樣要在cad上修改就方便多了 (算是強化版?)

操作如下
BomExcelToBlk

Excel資料的第一列一定要是標題列
程式會將第一列的內容當作屬性的標籤
附件的DVB檔還是保留之前用一般圖塊插入的功能 BomFromExcel
用屬性圖塊方式插入的巨集是 BomExcelToBlk
建議可以修改Autocad安裝資料夾的SUPPORT下的 acadxxxx.LSP (xxxx是Autocad版本)
新增以下兩行

(Defun C:E2A ()(vl-vbarun "c:\\myVBA\\AcadExcel.dvb!bom.BomFromExcel"))
(Defun C:E2B ()(vl-vbarun "c:\\myVBA\\AcadExcel.dvb!bom.BomExcelToBlk"))

就能在命令列上直接打 E2A 或 E2B 來使用這個功能
如果這個功能常用的話,這樣就方便多了
上述是將AcadExcel.dvb放在c:\myVBA下,如果路徑不同的話要修改
注意路徑的斜線是兩個哦!!

更正1:更正刪除其他圖塊的錯誤 2016-02-22
更正2:感謝ccsu009大的測試回報,更正EXCEL材料表非A1起始,屬性圖塊排列錯誤的問題 2016-02-24



Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
附件
[討論]VBA分享 Excel材料表轉入Autocad - (二) Attachment
AcadExcel.zip 更正EXCEL材料表非A1起始,屬性圖塊排列錯誤的問題您無權下載這里的附件。(181 Kb) 下載 133 次


vincera 在 2016-02-24, 21:39 作了第 3 次修改
vincera
vincera
初級會員
初級會員

文章總數 : 15
年齡 : 29
來自 : kashsiung
職業 : me. eng.
愛好 : none
個性 : normal
使用年資 : 11
使用版本 : 2008
積分 : 2
經驗值 : 1580
威望值 : 96
注冊日期 : 2015-10-15
男 摩羯座 蛇

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 Tiger&蘋果爸 于 2016-02-22, 15:34

哇...還有加強版~
大家真是有福氣喔~
愛心

自訂指令的方式非常方便,尤其是我們喜歡KEY指令的人!
讚啦!!

____________________________________________________________________________________
[討論]VBA分享 Excel材料表轉入Autocad - (二) Oo-2-110 [討論]VBA分享 Excel材料表轉入Autocad - (二) Ia15010 [討論]VBA分享 Excel材料表轉入Autocad - (二) Ziao1510 [討論]VBA分享 Excel材料表轉入Autocad - (二) BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18507
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 71659
威望值 : 13680
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.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

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 ddr3463 于 2016-02-24, 10:47

恩恩~超方便實用的
而且很貼心的是兩種都有,超棒的
感謝大大分享啊!!!
avatar
ddr3463
一般會員
一般會員

文章總數 : 33
年齡 : 32
來自 : 台灣~
職業 : 機械繪圖員
愛好 : 跑步、爬山、布袋戲
個性 : 隨和~~
使用年資 : 10
使用版本 : AUTOCAD 2012
經驗值 : 4025
威望值 : 0
注冊日期 : 2008-10-02
男 處女座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 li60830 于 2016-02-24, 11:38

果然好強~但感覺電腦負擔越來越重了~
謝謝樓主的分享~
li60830
li60830
初級會員
初級會員

文章總數 : 330
年齡 : 47
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 3
經驗值 : 3985
威望值 : 322
注冊日期 : 2013-04-17
藍鵲697號
男 處女座 豬

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 poiuyy 于 2016-02-24, 12:49

感謝版主大大的無私分享
poiuyy
poiuyy
初級會員
初級會員

文章總數 : 182
年齡 : 44
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 2628
威望值 : 84
注冊日期 : 2014-06-24
藍鵲656號
男 天秤座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 ccsu009 于 2016-02-24, 17:48

感謝樓主的分享! 超方便的.
使用上我有點問題? 是否有其他搭配條件?
1. 載入AcadExcel.dvb , 執行巨集 BomFromExcel ,可成功貼上Execl 資料.
2. 載入AcadExcel.dvb , 執行巨集 BomExcelToBlk ,點選插入點後,跳出選項 (N\T\B),
         輸入任一選項都沒有任何效果,只結束指令.
電腦條件
1. OS: Win7 32 bits
2. Cad: Autocad 2014
3. VBA 32 bits

Good Day!
ccsu009
ccsu009
初級會員
初級會員

文章總數 : 39
年齡 : 56
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 1505
威望值 : 30
注冊日期 : 2015-12-04
男 天秤座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 vincera 于 2016-02-24, 18:49

ccsu009 寫到:
2. 載入AcadExcel.dvb , 執行巨集 BomExcelToBlk ,點選插入點後,跳出選項 (N\T\B),
         輸入任一選項都沒有任何效果,只結束指令.

方便提供你用的dwg檔讓我測試看看嗎?
vincera
vincera
初級會員
初級會員

文章總數 : 15
年齡 : 29
來自 : kashsiung
職業 : me. eng.
愛好 : none
個性 : normal
使用年資 : 11
使用版本 : 2008
積分 : 2
經驗值 : 1580
威望值 : 96
注冊日期 : 2015-10-15
男 摩羯座 蛇

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 ccsu009 于 2016-02-24, 19:13

實驗結果, Execl 檔案條件會影響,執行巨集 BomExcelToBlk 成功與否的因素.
1. Excel 標題列, 於 A1(儲存格) 和 非A1(儲存格)上, 執行巨集 BomFromExcel ,均可成功貼上Execl 資料.
2. Excel 標題列, 非A1(儲存格)上,執行巨集 BomExcelToBlk 會無法成功貼上Execl 資料,
    且若非乾淨資料,儲存格資料會亂跳位.
3. 當重複貼上Execl 資料,兩巨集均會將前一個Execl 資料清除.

Good Day!
ccsu009
ccsu009
初級會員
初級會員

文章總數 : 39
年齡 : 56
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 1505
威望值 : 30
注冊日期 : 2015-12-04
男 天秤座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 vincera 于 2016-02-24, 21:46

ccsu009 寫到:實驗結果, Execl 檔案條件會影響,執行巨集 BomExcelToBlk 成功與否的因素.
1. Excel 標題列, 於 A1(儲存格) 和 非A1(儲存格)上, 執行巨集 BomFromExcel ,均可成功貼上Execl 資料.
2. Excel 標題列, 非A1(儲存格)上,執行巨集 BomExcelToBlk 會無法成功貼上Execl 資料,
    且若非乾淨資料,儲存格資料會亂跳位.
3. 當重複貼上Execl 資料,兩巨集均會將前一個Execl 資料清除.
謝謝ccsu009大測試!!
錯誤原因是EXCEL儲存格的位置使用了絕對位置,而非選取範圍的相對的位置,因此在換列時錯判所造成
VBA已修改,放在最上面了~~
再次謝謝了!!

至於第3點,是程式在插入圖塊前,會檢查是否有BOM及TITLE同名的圖塊及圖塊參考,若有就會先刪掉

vincera
vincera
初級會員
初級會員

文章總數 : 15
年齡 : 29
來自 : kashsiung
職業 : me. eng.
愛好 : none
個性 : normal
使用年資 : 11
使用版本 : 2008
積分 : 2
經驗值 : 1580
威望值 : 96
注冊日期 : 2015-10-15
男 摩羯座 蛇

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 ccsu009 于 2016-02-25, 11:57

感謝樓主的用心!很快就更新了.
感謝提供第3點的資訊.
這樣當我要重複貼表格時只要事先使用圖塊更名[RENAME],更改BOM及TITLE兩圖塊名即可
再次謝謝提供好用的小程式.
ccsu009
ccsu009
初級會員
初級會員

文章總數 : 39
年齡 : 56
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 1505
威望值 : 30
注冊日期 : 2015-12-04
男 天秤座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 et1029et 于 2016-02-25, 13:31

想不到還有加強版!
感謝大大無私分享~
et1029et
et1029et
初級會員
初級會員

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

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 jk0924 于 2016-03-04, 15:38

感謝大大的分享!!很實用的工具,下載來用!!
jk0924
jk0924
一般會員
一般會員

文章總數 : 41
年齡 : 44
來自 : 台灣台北
職業 : 土木工程
愛好 : 聽音樂,打球
個性 : 隨和
使用年資 : 認真專注
使用版本 : 2006
經驗值 : 2204
威望值 : 0
注冊日期 : 2013-12-15
男 天秤座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 W-LIN 于 2016-03-08, 06:42

感謝分享,工作上需要時,會拿來用
先下載了
W-LIN
W-LIN
初級會員
初級會員

文章總數 : 117
年齡 : 36
來自 : 台北
職業 : 繪圖
愛好 : 園藝
個性 : 喜歡研習新事物
使用年資 : 不定
使用版本 : 2014
積分 : 2
經驗值 : 4066
威望值 : 60
注冊日期 : 2009-06-25
女 處女座 狗

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 ctest 于 2016-03-25, 22:02

感謝版主大大的無私分享,下載來用!!
ctest
ctest
一般會員
一般會員

文章總數 : 55
年齡 : 50
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 3110
威望值 : 12
注冊日期 : 2011-09-19
男 雙子座 雞

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 yesfish 于 2016-04-15, 11:03

工作上務必會用的到.感謝大大無私的分享!!
yesfish
yesfish
一般會員
一般會員

文章總數 : 11
年齡 : 54
來自 : tainan
職業 : 測量,規劃
愛好 : 木工,園藝工
個性 : 自然就好
使用年資 : 22
使用版本 : map2004
經驗值 : 3420
威望值 : 6
注冊日期 : 2010-04-27
經典問與答讀者 男 雙魚座 蛇

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 wuwubaibai 于 2016-07-26, 20:07

有點看不懂~
實際來測試一下!~
謝謝大大
wuwubaibai
wuwubaibai
一般會員
一般會員

文章總數 : 15
年齡 : 36
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 1992
威望值 : 0
注冊日期 : 2014-04-18
男 獅子座 狗

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 yesfish 于 2016-08-17, 09:10

再次感謝過樓主的分享...
另請教樓主.是否有修改的值.如果表格內有計算,是否可以重新計算(例如加總)...
好像不可以....我試試看說.
yesfish
yesfish
一般會員
一般會員

文章總數 : 11
年齡 : 54
來自 : tainan
職業 : 測量,規劃
愛好 : 木工,園藝工
個性 : 自然就好
使用年資 : 22
使用版本 : map2004
經驗值 : 3420
威望值 : 6
注冊日期 : 2010-04-27
經典問與答讀者 男 雙魚座 蛇

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 afuw2 于 2016-10-14, 10:44

感謝樓主跟各位大大的測試~~使用OK~~
afuw2
afuw2
一般會員
一般會員

文章總數 : 25
年齡 : 38
來自 : Hsinchu
職業 : 工程師
愛好 : 網路資源搜尋
個性 : 打破砂鍋問到底
使用年資 : 中等約5年
使用版本 : MTD2014
經驗值 : 1948
威望值 : 0
注冊日期 : 2014-06-27
男 巨蟹座 雞

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 zhujinshan 于 2016-11-25, 20:13

收藏了,非常感谢,学到了很多!
zhujinshan
zhujinshan
一般會員
一般會員

文章總數 : 63
年齡 : 32
來自 : 中国
職業 : 技术员
愛好 : 画图
個性 : 活泼,开朗
使用年資 : 3年
使用版本 : 2014版
經驗值 : 1364
威望值 : 0
注冊日期 : 2016-07-22
男 天秤座 虎

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 denniskc 于 2016-11-27, 11:43

來測試一下,謝謝版大。
denniskc
denniskc
一般會員
一般會員

文章總數 : 46
年齡 : 49
來自 : Taoyuan
職業 : Civil
愛好 : game
個性 : SONG
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2718
威望值 : 6
注冊日期 : 2012-08-21
男 獅子座 雞

回頂端 向下

[討論]VBA分享 Excel材料表轉入Autocad - (二) Empty 回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)

發表 由 zhujinshan 于 2018-05-04, 01:03

苹果爸你好,这个DVB文件可以做个视频讲解下操作步骤吗?我加载后输入E2A或者E2B没反应,谢谢!
zhujinshan
zhujinshan
一般會員
一般會員

文章總數 : 63
年齡 : 32
來自 : 中国
職業 : 技术员
愛好 : 画图
個性 : 活泼,开朗
使用年資 : 3年
使用版本 : 2014版
經驗值 : 1364
威望值 : 0
注冊日期 : 2016-07-22
男 天秤座 虎

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]VBA分享 Excel材料表轉入Autocad - (二) Uos15011 [討論]VBA分享 Excel材料表轉入Autocad - (二) Uos15010 [討論]VBA分享 Excel材料表轉入Autocad - (二) BPl3tjj [討論]VBA分享 Excel材料表轉入Autocad - (二) Ziao1510 [討論]VBA分享 Excel材料表轉入Autocad - (二) Ia15010 [討論]VBA分享 Excel材料表轉入Autocad - (二) Oo-2-110