关于Solidworks 二次开发中打包问题

本人在学习SOLIDWORKS 二次开发，有很多不懂的地方，想请教一下论坛前辈关于打包一些问题。
在API帮助中有关于 Pack And Go 章节我已经仔细阅读过，现在已经能获取到打包文件的原始路径、数量及文件名，也可以设置要保存的路径。但在设置要打包保存的路径、数量及文件名时遇到了困难，在swPackAndGo.SetDocumentSaveToNames（PathNameList）方法中，要求（PathNameList）数组中要保存的文档的数量、顺序和类型必须与 swPackAndGo.GetDocumentNames(PathNameList ）所返回的数组匹配，请高手帮忙看一下，如何获取（PathNameList）数组中的参数，并修改文件名、路径及删除不要打包的文件，并返回给（PathNameList），谢谢！

贴上vb.net 代码：

1.         Dim Swapp As SldWorks.SldWorks
   
2.         Dim Prat As SldWorks.ModelDoc2
   
3.         Dim swModelDocExt As SldWorks.ModelDocExtension
   
4.         Dim swPackAndGo As SldWorks.PackAndGo
   
5.         Dim namesCount As Integer
   
6.         Dim status As Boolean
   
7.         Dim pgFileNames As Object = Nothing
   
8.         Dim Kei As String
   
9.         Dim myPath As String
   
10.         Dim Qianz As Boolean
    
11.         Dim Hoz As Boolean
    
12.         'Dim pgGetFileNames As Object
    
13.         'Dim pgDocumentStatus As Object
    
14.         Dim statuses As Object
    
15.         Dim i As Integer
    
16.         Dim tempArray As String
    
17.         'Dim Dabao() As String
    
18.         Dim pgFileStatus As Object = Nothing
    
19. 
    
20. 
    
21.         tempArray = RichTextBox1.Text
    
22.         Swapp = CreateObject("Sldworks.application")
    
23.         Prat = Swapp.ActiveDoc
    
24.         swModelDocExt = Prat.Extension
    
25. 
    
26.         '准备打包
    
27.         'Debug.Print("Pack and Go")
    
28.         swPackAndGo = swModelDocExt.GetPackAndGo
    
29. 
    
30.         '获得获取装配中的文档数量
    
31.         namesCount = swPackAndGo.GetDocumentNamesCount
    
32.         Debug.Print("  Number of model documents: " & namesCount)
    
33. 
    
34.         '是否打包工程图
    
35.         swPackAndGo.IncludeDrawings = RadioButton1.Checked
    
36.         Debug.Print("  Include drawings: " & swPackAndGo.IncludeDrawings)
    
37.         Debug.Print（RadioButton1.Checked）
    
38. 
    
39.         ''是否打包标准件
    
40.         'swPackAndGo.IncludeToolboxComponents = RadioButton3.Checked
    
41.         'Debug.Print（RadioButton3.Checked）
    
42. 
    
43.         '获取打开模型路径和文件名
    
44.         status = swPackAndGo.GetDocumentNames(pgFileNames)
    
45.         If Not pgFileNames Is Nothing Then
    
46.             For i = 0 To UBound(pgFileNames)
    
47.                 pgFileNames(i) = pgFileNames(i).Toupper()
    
48.                 Kei = pgFileNames（i）
    
49.                 RichTextBox1.Text &= Kei & vbNewLine
    
50.                 Debug.Print(Kei)
    
51.             Next i
    
52.         End If
    
53. 
    
54.         '设置保存模型的文件夹
    
55.         myPath = TextBox1.Text
    
56.         status = swPackAndGo.SetSaveToName(True, myPath)
    
57. 
    
58.         '获取用于打包的模型文档路径和名称
    
59.         status = swPackAndGo.GetDocumentSaveToNames(pgFileNames, 0)
    
60.         If Not pgFileNames Is Nothing Then
    
61.             For i = 0 To UBound(pgFileNames)
    
62.                 pgFileNames(i) = pgFileNames(i).Toupper()
    
63.             Next i
    
64.         End If
    
65. 
    
66.         '设置更改打包的文档的路径和文件名
    
67.         Dim FavetoNames As Boolean
    
68.         FavetoNames = swPackAndGo.SetDocumentSaveToNames(pgFileNames)
    
69. 
    
70.         '向文件名添加前辍和后辍
    
71.         Qianz = CheckBox1.Checked
    
72.         Hoz = CheckBox2.Checked
    
73.         If Qianz = True Then
    
74.             swPackAndGo.AddPrefix = TextBox3.Text
    
75.         ElseIf Hoz = True Then
    
76.             swPackAndGo.AddSuffix = TextBox4.Text
    
77.         End If
    
78. 
    
79.         ''如果向文件名添加前辍和后辍，则验证文件名和文件路径
    
80.         'ReDim pgGetFileNames(namesCount - 1)
    
81.         'ReDim pgDocumentStatus(namesCount - 1)
    
82.         'status = swPackAndGo.GetDocumentSaveToNames(pgGetFileNames, pgDocumentStatus)
    
83.         'For i = 0 To (namesCount - 1)
    
84.         '    Debug.Print("    My path and filename is: " & pgGetFileNames(i))
    
85.         'Next i
    
86. 
    
87.         '平展到单一文件夹，将所有文件保存到根目录
    
88.         swPackAndGo.FlattenToSingleFolder = True
    
89. 
    
90.         '打包
    
91.         statuses = swModelDocExt.SavePackAndGo(swPackAndGo)

复制代码

好东西,谢谢分享!!

已解决，谢谢大家关心！！

好东西,谢谢分享,本人是个VB白痴不会用，可否上传你的宏谢谢！！！

来学习学习

二次开发好难啊

我复制进去，代码还是显示出错

735057167 发表于 2019-4-16 15:45
我复制进去，代码还是显示出错

这个代码是VB.NET的，不是VBA，VBA我也不会！

学习学习