求助，批量打开及保存的 宏制作方法，原因内详

我有些搞糊塗了…
樓主的具體要求，是要在「總裝配」的BOM中顯示鈑金的展開尺寸，對不？
您的版本是多少？
現在是直接用焊件屬性清單中的邊界框長寬？
還是仍用手動標註邊界框另做自定義屬性呢？

不同的版本有不同的做法…
而焊件屬性的調用更是有版本的限制…
盼覆…

暫時不管樓主處理屬性方法是否正確, 基本素求(批量處理類同鳥事)不無道理.
樓主可參閱:
https://www.icax.org/thread-926875-1-1.html

Francis 发表于 2014-9-23 13:22
暫時不管樓主處理屬性方法是否正確, 基本素求(批量處理類同鳥事)不無道理.
樓主可參閱:
https://bbs.icax. ...

原本還在想就版本的新舊與樓主討論不同的做法。
但最多只能討論正確的連結方式和設置新模板，以備將來可以使用。
然而對於這些「已經做好」的舊文件，批量修改就完全仰賴悶大分享的宏代碼了！
謝謝悶大無私分享！

搭配悶大#12 連結中分享的宏代碼，再多加幾行代碼，
應當可以「批次解決」樓主目前遇到的問題。執行結果如下：

【已設變的鈑金件】底面長寬按零件AA~DD：30X20, 35X25, 40X30, 45X35


【工程圖並未跟著更新】


【全部關閉後執行代碼】再次打開資料夾內所有工程圖，都更新了！

Francis 发表于 2014-9-23 13:22
暫時不管樓主處理屬性方法是否正確, 基本素求(批量處理類同鳥事)不無道理.
樓主可參閱:
https://bbs.icax. ...

下方是將「特定資料夾」底下的零件檔批次處理的代碼，
另#24有悶大教學：運行宏代碼時可以指定資料夾的代碼！-----2014/09/25
===============================================================
再次謝謝悶大的即時雨！
以下是阿丹按悶大分享的代碼新增的內容，請悶大指導不足之處，

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. Sub Test()
   
6. Set swApp = Application.SldWorks
   
7. PartPath = "C:\自行輸入資料夾路徑" '設定目錄
   
8. PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
   
9. Do Until PartFileName = "" '直至搜尋到空值
   
10.     Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
    
11.     '展開鈑金
    
12.     boolstatus = Part.Extension.SelectByID2("Flat-Pattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    
13.     Part.ClearSelection2 True
    
14.     longstatus = Part.SetBendState(2)
    
15.     boolstatus = Part.EditRebuild3()
    
16.     '抑制展開
    
17.     boolstatus = Part.Extension.SelectByID2("Flat-Pattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    
18.     Part.ClearSelection2 True
    
19.     longstatus = Part.SetBendState(3)
    
20.     boolstatus = Part.EditRebuild3()
    
21.     Part.Save '保存
    
22.     swApp.CloseDoc (PartFileName) '關閉零件
    
23.     PartFileName = Dir '搜尋下一個零件檔案名稱
    
24. Loop '循環搜尋
    
25. End Sub

复制代码

軟件是一直在進步的…
2014版本，邊界框會隨零件設變自動更新尺寸。

樓主失踪了, 只剩下丹哥和悶人傻呼呼討論, 還打算提供"多目錄"的更新宏, 看來可以節省一下了.

Francis 发表于 2014-9-23 21:49
樓主失踪了, 只剩下丹哥和悶人傻呼呼討論, 還打算提供"多目錄"的更新宏, 看來可以節省一下了.

悶大！阿丹要！！能不能接續討論！！(乞討狀…)

gt.adan 发表于 2014-9-23 12:45
我有些搞糊塗了…
樓主的具體要求，是要在「總裝配」的BOM中顯示鈑金的展開尺寸，對不？
您的版本是多少？ ...

谢谢版主大神回复，昨天比较忙，没有上，用的是12板，边界框用切割和手动标注是一样的，只是切割的时候多一行，要调整，现有的还是用的手动标注边界框

Francis 发表于 2014-9-23 13:22
暫時不管樓主處理屬性方法是否正確, 基本素求(批量處理類同鳥事)不無道理.
樓主可參閱:
https://bbs.icax. ...

太感谢了，我先学习下