麻煩各位大佬看一下，這個(gè)程序能打開(kāi)模型，能另存為模型，但是就是不能改變參數(shù)，不知道問(wèn)題出在哪里，求教！

Dim swApp

Dim Part

On Error Resume Next

Set swapp = GetObject(, "SldWorks.Application")

If Err Then

Err.Clear

Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

swApp.Visible = true

swApp.UserControl = True

End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("beam.SLDPRT")

Set Part = swApp.OpenDoc(objFSO.GetAbsolutePathName(objFile),1)

Set Part = swApp.ActivateDoc("beam.SLDPRT")

'swApp.Visible = true

Call ChangePara(Part, 0.3, 0.3)

Sub ChangePara(Part, Val1, Val2)

Part.Parameter("D1@草圖2").System Value = Val1

Part.Parameter("D1@凸臺(tái)-拉伸1").System Value = Val2

Part.EditRebuild

End Sub

Part.SaveAs(objFSO.GetParentFolderName(objFile) & "\" & "beam1.SLDPRT")

swApp.CloseDoc "beam.SLDPRT"