有前辈可以修改下吗，实现 打包装配里选中件的 宏吗 ？

sunsu168

   经典图书

有前辈可以修改下吗，实现  打包装配里选中件的 宏吗 ？

下面这个链接是坛友发的打包宏
https://www.swbbsc.com/thread-350001-1-1.html

sunsu168

SolidWorks机械工程师网，顶一下。

sunsu168

   经典图书

顶                              顶

zheng820828

活到老学到老！

sunsu168

   经典案例图书

SolidWorks机械工程师网，顶一下。

sunsu168

SolidWorks机械工程师网，顶一下。

sunsu168

   经典案例图书

找到一段代码 ，不知是不是选择用的

1. '获取选择的零部件
   
2. Function GetSelectedComponents(selMgr As SldWorks.SelectionMgr) As Variant
   
3.     Dim isInit As Boolean
   
4.     isInit = False
   
5.     Dim swComps() As SldWorks.Component2
   
6.     Dim i As Integer
   
7.     For i = 1 To selMgr.GetSelectedObjectCount2(-1)
   
8.         Dim swComp As SldWorks.Component2
   
9.                 '按序号选择零部件
   
10.         Set swComp = selMgr.GetSelectedObjectsComponent4(i, -1)
    
11.         If Not swComp Is Nothing Then
    
12.             If Not isInit Then
    
13.                 ReDim swComps(0)
    
14.                 Set swComps(0) = swComp
    
15.                 isInit = True
    
16.             Else
    
17.                                 '让零部件唯一
    
18.                 If Not Contains(swComps, swComp) Then
    
19.                     ReDim Preserve swComps(UBound(swComps) + 1)
    
20.                     Set swComps(UBound(swComps)) = swComp
    
21.                 End If
    
22.             End If
    
23.         End If
    
24.     Next
    
25.     If isInit Then
    
26.         GetSelectedComponents = swComps
    
27.     Else
    
28.         GetSelectedComponents = Empty
    
29.     End If
    
30. End Function
    
31. 
    
32. '浏览保存文件的地址
    
33. Function BrowseForFileSave(title As String, filters As String, initFilePath As String) As String
    
34.     Dim ofn As OPENFILENAME
    
35.     Const FILE_PATH_BUFFER_SIZE As Integer = 260
    
36.     Dim initFileName As String
    
37.     initFileName = Right(initFilePath, Len(initFilePath) - InStrRev(initFilePath, "\"))
    
38.     ofn.lpstrFilter = Replace(filters, "|", Chr(0)) & Chr(0)
    
39.     ofn.lpstrTitle = title
    
40.     ofn.nMaxFile = FILE_PATH_BUFFER_SIZE
    
41.     ofn.nMaxFileTitle = FILE_PATH_BUFFER_SIZE
    
42.     ofn.lpstrInitialDir = Left(initFilePath, InStrRev(initFilePath, "\") - 1)
    
43.     ofn.lpstrFile = initFileName & String(FILE_PATH_BUFFER_SIZE - Len(initFileName), Chr(0))
    
44.     ofn.lStructSize = LenB(ofn)
    
45.     Dim res As Boolean
    
46.     res = GetSaveFileName(ofn)
    
47.     If res Then
    
48.         Dim filePath As String
    
49.         filePath = Left(ofn.lpstrFile, InStr(ofn.lpstrFile, vbNullChar) - 1)
    
50.         Dim vFilters As Variant
    
51.         vFilters = Split(filters, "|")
    
52.         Dim ext As String
    
53.         ext = vFilters((ofn.nFilterIndex - 1) * 2 + 1)
    
54.         ext = Right(ext, Len(ext) - InStrRev(ext, ".") + 1)
    
55.         If LCase(Right(filePath, Len(ext))) <> LCase(ext) Then
    
56.             filePath = filePath & ext
    
57.         End If
    
58.         BrowseForFileSave = filePath
    
59.     Else
    
60.         BrowseForFileSave = ""
    
61.     End If
    
62. End Function
    
63. 
    
64. '判断是否包含
    
65. Function Contains(vArr As Variant, item As Object) As Boolean
    
66.     Dim i As Integer
    
67.     For i = 0 To UBound(vArr)
    
68.         If vArr(i) Is item Then
    
69.             Contains = True
    
70.             Exit Function
    
71.         End If
    
72.     Next
    
73.     Contains = False
    
74. End Function
    

复制代码

1. 
   

复制代码

richiwei

顶一个！谢谢分享了

sunsu168

SolidWorks机械工程师网，顶一下。

sunsu168

   经典图书

SolidWorks机械工程师网，顶一下。

zj78711340

感谢楼主分享，很不错！

葛特曼

SolidWorks机械工程师网，顶一下。

葛特曼

SolidWorks机械工程师网，顶一下。