[討論]VBA分享 Excel材料表轉入Autocad - (二)
+11
yesfish
ctest
W-LIN
jk0924
et1029et
ccsu009
poiuyy
li60830
ddr3463
Tiger&蘋果爸
vincera
15 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]VBA分享 Excel材料表轉入Autocad - (二)
前幾天分享了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
轉入後材料表是以一個一般圖塊的方式插入
這幾天想了一下,這個方式對於之後要在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>
[公告]關於團隊成員的回文及貢獻
- 附件
vincera 在 2016-02-24, 21:39 作了第 3 次修改
vincera- 初級會員
- 文章總數 : 15
年齡 : 34
來自 : kashsiung
職業 : me. eng.
愛好 : none
個性 : normal
使用年資 : 11
使用版本 : 2008
積分 : 2
經驗值 : 3484
威望值 : 93
注冊日期 : 2015-10-15
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
哇...還有加強版~
大家真是有福氣喔~
自訂指令的方式非常方便,尤其是我們喜歡KEY指令的人!
大家真是有福氣喔~
自訂指令的方式非常方便,尤其是我們喜歡KEY指令的人!
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
恩恩~超方便實用的
而且很貼心的是兩種都有,超棒的
感謝大大分享啊!!!
而且很貼心的是兩種都有,超棒的
感謝大大分享啊!!!
ddr3463- 一般會員
- 文章總數 : 34
年齡 : 38
來自 : 台灣~
職業 : 機械繪圖員
愛好 : 跑步、爬山、布袋戲
個性 : 隨和~~
使用年資 : 10
使用版本 : AUTOCAD 2012
經驗值 : 5935
威望值 : 0
注冊日期 : 2008-10-02
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
果然好強~但感覺電腦負擔越來越重了~
謝謝樓主的分享~
謝謝樓主的分享~
li60830- 初級會員
- 文章總數 : 345
年齡 : 53
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 5
經驗值 : 5957
威望值 : 340
注冊日期 : 2013-04-17
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝版主大大的無私分享
poiuyy- 初級會員
- 文章總數 : 226
年齡 : 50
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 4731
威望值 : 84
注冊日期 : 2014-06-24
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝樓主的分享! 超方便的.
使用上我有點問題? 是否有其他搭配條件?
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!
使用上我有點問題? 是否有其他搭配條件?
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- 初級會員
- 文章總數 : 39
年齡 : 62
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 3412
威望值 : 30
注冊日期 : 2015-12-04
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
ccsu009 寫到:
2. 載入AcadExcel.dvb , 執行巨集 BomExcelToBlk ,點選插入點後,跳出選項 (N\T\B),
輸入任一選項都沒有任何效果,只結束指令.
方便提供你用的dwg檔讓我測試看看嗎?
vincera- 初級會員
- 文章總數 : 15
年齡 : 34
來自 : kashsiung
職業 : me. eng.
愛好 : none
個性 : normal
使用年資 : 11
使用版本 : 2008
積分 : 2
經驗值 : 3484
威望值 : 93
注冊日期 : 2015-10-15
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
實驗結果, Execl 檔案條件會影響,執行巨集 BomExcelToBlk 成功與否的因素.
1. Excel 標題列, 於 A1(儲存格) 和 非A1(儲存格)上, 執行巨集 BomFromExcel ,均可成功貼上Execl 資料.
2. Excel 標題列, 非A1(儲存格)上,執行巨集 BomExcelToBlk 會無法成功貼上Execl 資料,
且若非乾淨資料,儲存格資料會亂跳位.
3. 當重複貼上Execl 資料,兩巨集均會將前一個Execl 資料清除.
Good Day!
1. Excel 標題列, 於 A1(儲存格) 和 非A1(儲存格)上, 執行巨集 BomFromExcel ,均可成功貼上Execl 資料.
2. Excel 標題列, 非A1(儲存格)上,執行巨集 BomExcelToBlk 會無法成功貼上Execl 資料,
且若非乾淨資料,儲存格資料會亂跳位.
3. 當重複貼上Execl 資料,兩巨集均會將前一個Execl 資料清除.
Good Day!
ccsu009- 初級會員
- 文章總數 : 39
年齡 : 62
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 3412
威望值 : 30
注冊日期 : 2015-12-04
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
謝謝ccsu009大測試!!ccsu009 寫到:實驗結果, Execl 檔案條件會影響,執行巨集 BomExcelToBlk 成功與否的因素.
1. Excel 標題列, 於 A1(儲存格) 和 非A1(儲存格)上, 執行巨集 BomFromExcel ,均可成功貼上Execl 資料.
2. Excel 標題列, 非A1(儲存格)上,執行巨集 BomExcelToBlk 會無法成功貼上Execl 資料,
且若非乾淨資料,儲存格資料會亂跳位.
3. 當重複貼上Execl 資料,兩巨集均會將前一個Execl 資料清除.
錯誤原因是EXCEL儲存格的位置使用了絕對位置,而非選取範圍的相對的位置,因此在換列時錯判所造成
VBA已修改,放在最上面了~~
再次謝謝了!!
至於第3點,是程式在插入圖塊前,會檢查是否有BOM及TITLE同名的圖塊及圖塊參考,若有就會先刪掉
vincera- 初級會員
- 文章總數 : 15
年齡 : 34
來自 : kashsiung
職業 : me. eng.
愛好 : none
個性 : normal
使用年資 : 11
使用版本 : 2008
積分 : 2
經驗值 : 3484
威望值 : 93
注冊日期 : 2015-10-15
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝樓主的用心!很快就更新了.
感謝提供第3點的資訊.
這樣當我要重複貼表格時只要事先使用圖塊更名[RENAME],更改BOM及TITLE兩圖塊名即可
再次謝謝提供好用的小程式.
感謝提供第3點的資訊.
這樣當我要重複貼表格時只要事先使用圖塊更名[RENAME],更改BOM及TITLE兩圖塊名即可
再次謝謝提供好用的小程式.
ccsu009- 初級會員
- 文章總數 : 39
年齡 : 62
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 3412
威望值 : 30
注冊日期 : 2015-12-04
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
想不到還有加強版!
感謝大大無私分享~
感謝大大無私分享~
et1029et- 初級會員
- 文章總數 : 356
年齡 : 43
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5866
威望值 : 324
注冊日期 : 2013-07-02
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝大大的分享!!很實用的工具,下載來用!!
jk0924- 一般會員
- 文章總數 : 48
年齡 : 50
來自 : 台灣台北
職業 : 土木工程
愛好 : 聽音樂,打球
個性 : 隨和
使用年資 : 認真專注
使用版本 : 2006
經驗值 : 4142
威望值 : 0
注冊日期 : 2013-12-15
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝分享,工作上需要時,會拿來用
先下載了
先下載了
W-LIN- 初級會員
- 文章總數 : 136
年齡 : 42
來自 : 台北
職業 : 繪圖
愛好 : 園藝
個性 : 喜歡研習新事物
使用年資 : 不定
使用版本 : 2016
積分 : 2
經驗值 : 6054
威望值 : 60
注冊日期 : 2009-06-25
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝版主大大的無私分享,下載來用!!
ctest- 一般會員
- 文章總數 : 59
年齡 : 55
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 5035
威望值 : 12
注冊日期 : 2011-09-19
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
工作上務必會用的到.感謝大大無私的分享!!
yesfish- 一般會員
- 文章總數 : 12
年齡 : 59
來自 : tainan
職業 : 測量,規劃
愛好 : 木工,園藝工
個性 : 自然就好
使用年資 : 22
使用版本 : map2004
經驗值 : 5332
威望值 : 6
注冊日期 : 2010-04-27
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
有點看不懂~
實際來測試一下!~
謝謝大大
實際來測試一下!~
謝謝大大
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4199
威望值 : 0
注冊日期 : 2014-04-18
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
再次感謝過樓主的分享...
另請教樓主.是否有修改的值.如果表格內有計算,是否可以重新計算(例如加總)...
好像不可以....我試試看說.
另請教樓主.是否有修改的值.如果表格內有計算,是否可以重新計算(例如加總)...
好像不可以....我試試看說.
yesfish- 一般會員
- 文章總數 : 12
年齡 : 59
來自 : tainan
職業 : 測量,規劃
愛好 : 木工,園藝工
個性 : 自然就好
使用年資 : 22
使用版本 : map2004
經驗值 : 5332
威望值 : 6
注冊日期 : 2010-04-27
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
感謝樓主跟各位大大的測試~~使用OK~~
afuw2- 一般會員
- 文章總數 : 26
年齡 : 43
來自 : Hsinchu
職業 : 工程師
愛好 : 網路資源搜尋
個性 : 打破砂鍋問到底
使用年資 : 中等約5年
使用版本 : MTD2014
經驗值 : 3858
威望值 : 0
注冊日期 : 2014-06-27
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
收藏了,非常感谢,学到了很多!
____________________________________________________________________________________
坚持下去,就会成功!
zhujinshan- 一般會員
- 文章總數 : 64
年齡 : 38
來自 : 中国
職業 : 技术员
愛好 : 画图
個性 : 活泼,开朗
使用年資 : 3年
使用版本 : 2014版
經驗值 : 3276
威望值 : 0
注冊日期 : 2016-07-22
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
來測試一下,謝謝版大。
denniskc- 一般會員
- 文章總數 : 46
年齡 : 55
來自 : Taoyuan
職業 : Civil
愛好 : game
個性 : SONG
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4625
威望值 : 6
注冊日期 : 2012-08-21
回復: [討論]VBA分享 Excel材料表轉入Autocad - (二)
苹果爸你好,这个DVB文件可以做个视频讲解下操作步骤吗?我加载后输入E2A或者E2B没反应,谢谢!
____________________________________________________________________________________
坚持下去,就会成功!
zhujinshan- 一般會員
- 文章總數 : 64
年齡 : 38
來自 : 中国
職業 : 技术员
愛好 : 画图
個性 : 活泼,开朗
使用年資 : 3年
使用版本 : 2014版
經驗值 : 3276
威望值 : 0
注冊日期 : 2016-07-22
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章