[討論]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

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

哇...還有加強版～
大家真是有福氣喔～


自訂指令的方式非常方便，尤其是我們喜歡KEY指令的人！

恩恩~超方便實用的
而且很貼心的是兩種都有，超棒的
感謝大大分享啊!!!

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

感謝版主大大的無私分享

感謝樓主的分享! 超方便的.
使用上我有點問題? 是否有其他搭配條件?
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 寫到:
2. 載入AcadExcel.dvb , 執行巨集 BomExcelToBlk ,點選插入點後,跳出選項 (N\T\B),
         輸入任一選項都沒有任何效果,只結束指令.

方便提供你用的dwg檔讓我測試看看嗎？

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

Good Day!

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

謝謝ccsu009大測試!!
錯誤原因是EXCEL儲存格的位置使用了絕對位置，而非選取範圍的相對的位置，因此在換列時錯判所造成
VBA已修改，放在最上面了~~
再次謝謝了!!

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

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

想不到還有加強版！
感謝大大無私分享~

感謝大大的分享!!很實用的工具,下載來用!!

感謝分享，工作上需要時，會拿來用
先下載了

感謝版主大大的無私分享,下載來用!!

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

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

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

感謝樓主跟各位大大的測試~~使用OK~~

收藏了，非常感谢，学到了很多！

來測試一下，謝謝版大。

苹果爸你好，这个DVB文件可以做个视频讲解下操作步骤吗？我加载后输入E2A或者E2B没反应，谢谢！