批量開檔寫入模型組態指定之屬性

scliang

在輸入SW檔案路徑下,批量開啟零件及組件檔,並寫入" 模型組態指定 "之屬性
是他網的練習做參考(簡體版 "配置特定",繁體版 "模型組態指定")
OpenFile_Configuration.rar (11.62 KB, 下載次數: 145)

2015/12/4 13:56 上傳

點擊文件名下載附件

SWP檔2015/12/4 13:55更新

1. '
   
2. ' 在某文件路徑下批量開零件及裝配件並寫入配置特定
   
3. ' 開 SW 軟件,執行 main 主程式
   
4. ' sc liang 2015/12/3
   
5. ' 測試版 2012 sp4
   
6. '
   
7. 
   
8. '定義變數型態
   
9. Dim swApp            As SldWorks.SldWorks
   
10. Dim swModel          As SldWorks.ModelDoc
    
11. Dim boolstatus       As Boolean
    
12. Dim Part             As Object
    
13. Dim sFileName        As String
    
14. Dim path             As String
    
15. Dim Type_            As String
    
16. Dim nErrors          As Long
    
17. Dim nWarnings        As Long
    
18. Dim S1               As Integer
    
19. Dim S2               As Integer
    
20. Dim Path_Name        As String
    
21. Dim Code_Name_C      As String
    
22. Dim Code_            As String
    
23. Dim Name_            As String
    
24. Dim strmat           As String
    
25. Dim strmas           As String
    
26. Dim swModelDoc       As SldWorks.ModelDoc2
    
27. Dim swConfig         As SldWorks.Configuration
    
28. Dim CustPropMgr      As SldWorks.CustomPropertyManager
    
29. 
    
30. 
    
31. '~~~ 主程式 ~~~
    
32. Sub Main()
    
33.     Set swApp = Application.SldWorks
    
34.     Set swModel = swApp.ActiveDoc
    
35.     path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test\ '' )", "Parts path location") '鍵入存檔路徑
    
36.     sFileName = Dir(path & "*.sld*") '取出SW檔
    
37. 
    
38. '循環開檔
    
39.      Do Until sFileName = ""
    
40.         Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位
    
41.         Select Case Type_ '判定SW文件型式
    
42. '開零件檔
    
43.             Case "PRT"
    
44.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
45.                 Call Configuration_ '呼叫副程式
    
46. '開組件檔
    
47.             Case "ASM"
    
48.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
49.                 Call Configuration_ '呼叫副程式
    
50.         End Select

複製代碼

臭臉翔

感謝梁兄分享好物

scliang

臭臉翔 發表於 2015/12/4 10:11
感謝梁兄分享好物

謝謝版主贊助

臭臉翔

請問梁兄這個該如何操作

我研究不出來

臭臉翔

直接開啟巨集顯示錯誤

scliang

臭臉翔 發表於 2015/12/4 10:49
直接開啟巨集顯示錯誤

開 SW 軟件,執行 main 主程式
開始時鼠標要在 main 主程式 之內

請問甚麼版本?

臭臉翔

scliang 發表於 2015/12/4 10:55
開 SW 軟件,執行 main 主程式
開始時鼠標要在 main 主程式 之內

我用的是SW2015

我是這樣操作的...



以這方式選用梁兄的巨集。

巨集需要跟欲處理的檔案放置同一資料夾嗎？

scliang

臭臉翔 發表於 2015/12/4 11:18
我用的是SW2015

我是這樣操作的...

不需要,如下補加紅色兩句,找到  "工程圖"  不做存檔關檔之處理.

           Case "ASM"

                Set swModel =swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent,"", nErrors, nWarnings)

                Call Configuration_ '呼叫副程式

       End Select

       If Type_ <> "DRW" Then

       swModel.Save '存檔

       swApp.CloseDoc swModel.GetTitle '關檔

       End If

       Set swModel = Nothing

       sFileName = Dir '同路徑取出下個SW文件檔名

   Loop

End Sub

臭臉翔

scliang 發表於 2015/12/4 13:39
不需要

報告梁兄：

俺成功了！

再次感謝分享好物。

scliang

臭臉翔 發表於 2015/12/4 13:45
報告梁兄：

俺成功了！

謝謝支持

注意8#,請補加紅字兩句

臭臉翔

scliang 發表於 2015/12/4 13:52
謝謝支持

注意8#,請補加紅字兩句

我這樣加完之後結果不能用，肯定是我做錯了，請問該如何做。



另外想請教，我想改成"圖號/型號 DESCRIPTION"以"空格"分，剛剛嘗試過，結果也改錯，請問該如何改。

scliang

"圖號/型號 DESCRIPTION"以"空格"分   上傳圖片說明較清楚

臭臉翔

scliang 發表於 2015/12/4 14:15
"圖號/型號 DESCRIPTION"以"空格"分   上傳圖片說明較清楚

紅框刪除後，正常沒錯誤了。


檔案名稱以空格來區隔"圖號/型號"及"DESCRIPTION"

scliang

臭臉翔 發表於 2015/12/4 14:30
紅框刪除後，正常沒錯誤了。

道理是一樣的,
本主題是寫入 "模型組態指定" 和寫入 "自訂"屬性指令會有差異.

臭臉翔

scliang 發表於 2015/12/4 17:14
道理是一樣的,
本主題是寫入 "模型組態指定" 和寫入 "自訂"屬性指令會有差異. ...

我有試著將_改成空格、代號改成圖號/型號...，改完之後不能執行了

scliang

臭臉翔 發表於 2015/12/4 17:27
我有試著將_改成空格、代號改成圖號/型號...，改完之後不能執行了

依據13#之巨集,參考了!
OpenFile_Configuration.swp (59 KB, 下載次數: 107)

2015/12/4 20:53 上傳

點擊文件名下載附件

臭臉翔

scliang 發表於 2015/12/4 20:53
依據13#之巨集,參考了!

梁兄佛心來著！

竟然幫我完整修改好，非常感謝。

試用過順利運行無誤，我比對原版跟修改版應該就能找出如何修改了，日後便可輕鬆增減。

scliang

臭臉翔 發表於 2015/12/4 21:14
梁兄佛心來著！

竟然幫我完整修改好，非常感謝。

不謝,使用愉快!

臭臉翔

修改的成果