如何切換當前選擇零組件的封包/不封包狀態??

ㄚ水

SW202有內建此功能嗎? 不然每次都要跳到屬性頁裡做勾選很麻煩...

如果是巨集要如何寫出切換當前選擇零組件的封包/不封包狀態??isPackaged = Part.GetPackAndGoStatus  這段出現黃標

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   
5. 
   
6. 
   
7. 
   
8. Sub main()
   
9. 
   
10. Set swApp = Application.SldWorks
    
11. 
    
12. Set Part = swApp.ActiveDoc
    
13. 
    
14. Dim selectedComponentID As String
    
15. 
    
16. '獲取當前選中的零件ID
    
17. selectedComponentID = Part.SelectionManager.GetSelectedObject6(1, -1).Name
    
18. 
    
19. '使用當前選中的零件ID來選擇零件
    
20. boolstatus = Part.Extension.SelectByID2(selectedComponentID, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
    
21. 
    
22. '判斷當前是否為封包狀態
    
23. Dim isPackaged As Boolean
    
24. isPackaged = Part.GetPackAndGoStatus
    
25. 
    
26. '根據封包狀態執行不同的操作
    
27. If isPackaged Then
    
28. 
    
29. boolstatus = Part.CompConfigProperties6(2, 0, True, True, "預設", False, False, 0) ' 不封包
    
30. 
    
31. Else
    
32. 
    
33. boolstatus = Part.CompConfigProperties6(2, 0, True, True, "預設", False, True, 0) ' 封包
    
34. 
    
35. End If
    
36. 
    
37. boolstatus = Part.EditRebuild3()
    
38. End Sub
    

複製代碼

kkovgto

改寫了一點 試試

ㄚ水

kkovgto 發表於 2023/5/11 17:51
改寫了一點 試試

我測試了一下不行欸...

If comp.IsEnvelope Then 這行黃標

而且我發現我原本的內容好像也沒關係多選零件後執行封包
多選後執行只有第一個會變更封包狀態而已...

kkovgto

整個記事本的文字都有複製上去嗎

ㄚ水

kkovgto 發表於 2023/5/12 13:39
整個記事本的文字都有複製上去嗎

可以了  現在可以做切換

但多選後執行只有第一個會變更封包狀態而已...

大大有辦法改嗎??

kkovgto

'使用當前選中的零件ID來選擇零件
boolstatus = Part.Extension.SelectByID2(selectedComponentID, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
↑這一行刪掉

ㄚ水

kkovgto 發表於 2023/5/12 18:17
'使用當前選中的零件ID來選擇零件
boolstatus = Part.Extension.SelectByID2(selectedComponentID, "COMPON ...

OK了!!  感謝大大~

但似乎是沒辦法同時選取有封包跟沒封包的狀態一起變更

因為好像SW本身就無法這樣變更了~

DaveChan

ㄚ水 發表於 2023/5/19 13:10
OK了!!  感謝大大~

但似乎是沒辦法同時選取有封包跟沒封包的狀態一起變更

1.     Dim swApp                   As SldWorks.SldWorks
   
2.     Dim swModel                 As SldWorks.ModelDoc2
   
3.     Dim swAssembly              As SldWorks.AssemblyDoc
   
4.     Dim swSelMgr                As SldWorks.SelectionMgr
   
5.     Dim swSelComp               As SldWorks.Component2
   
6.     Dim SelCount                As Long
   
7.     Dim n                       As Long
   
8.     Dim ArrSelectedObjects()    As Variant
   
9.     Dim swSelData               As SldWorks.SelectData
   
10.     Dim RefCfgN                 As String
    
11. 
    
12. Sub main()
    
13.     Set swApp = Application.SldWorks
    
14.     Set swModel = swApp.ActiveDoc
    
15.     Set swSelMgr = swModel.SelectionManager
    
16.     SelCount = swSelMgr.GetSelectedObjectCount
    
17.     If SelCount <> 0 Then
    
18.         ReDim ArrSelectedObjects(1 To SelCount)
    
19.         For n = 1 To SelCount
    
20.             Set ArrSelectedObjects(n) = swSelMgr.GetSelectedObjectsComponent2(n)
    
21.         Next n
    
22.         swModel.ClearSelection
    
23.         For n = 1 To SelCount
    
24.             Set swSelComp = ArrSelectedObjects(n)
    
25.             Set swSelData = swSelMgr.CreateSelectData
    
26.             swSelComp.Select4 False, swSelData, False
    
27.             Set swAssembly = swModel
    
28.             RefCfgN = swSelComp.ReferencedConfiguration
    
29.             If swSelComp.IsEnvelope Then
    
30.                 swAssembly.CompConfigProperties5 2, 0, True, True, RefCfgN, False, False
    
31.             Else
    
32.                 swAssembly.CompConfigProperties5 2, 0, True, True, RefCfgN, False, True
    
33.             End If
    
34.         Next
    
35.     End If
    
36. End Sub
    

複製代碼