SolidWorks的VB开发的问题

1990chs

我做的是http://wenku.baidu.com/view/bc3621fdc8d376eeaeaa3101.html这个网页上的例子，就是编一个VBS脚本，解析尺寸参数，然后输出为X_T格式，运行的时候报错！有没有大神能不能帮忙看一下错在哪了？代码：
  G# O8 H" C! W* C' C6 wDim swApp
Dim Part

' M. `6 c* w/ K) ~" r( ?On Error Resume Next
Set swApp = GetObject(, "SldWorks.Application")
If Err Then
    Err.Clear
    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
- l' P" @" }( L( ~    swApp.Visible = true
    swApp.UserControl = True
End If
. a5 D, c/ X3 M  h  k    Set objFSO = CreatObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile("beam.SLDPRT")
4 U; a6 I1 K. V- c# V. z    Set Part = swApp.OpenDoc(objFSO.GetAbsolutePathName(objFile),1)
$ m  }! C, x/ h1 Y9 p7 D( Q    Set Part = swApp.ActivateDoc("beam.SLDPRT")
+ P& n5 b! s9 Q: w' x% D! o    swApp.Visible = true
On Error GoTo 0
. [" a4 h) B( Y0 i
Call ChangePara(Part,0.05,0.02,0.02,0.02,0.05,0.02,0.2)
& s8 B9 T. s2 D7 }& B. |! cSub ChangePara(Part,Val1,Val2,Val3,Val4,Val5,Val6,Val7)
Part.Parameter("HeightUp@草图1").SystemValue = Val1
- c& \; I2 D* U) H# lPart.Parameter("HeightDown@草图1").SystemValue = Val2
2 R. N0 u; |8 Z6 F, `Part.Parameter("FlangeRight@草图1").SystemValue = Val3
Part.Parameter("FlangeLeft@草图1").SystemValue = Val4
! w+ `2 o' X5 r+ m6 Q+ f6 vPart.Parameter("Height@草图1").SystemValue = Val5
Part.Parameter("Width@草图1").SystemValue = Val6
Part.Parameter("Length@凸台-拉伸1").SystemValue = Val7

3 Q5 k& Z  j4 Y; j' R( SPart.EditRebuild
# Z4 R9 q+ J/ ?+ {End Sub

Part.SaveAs(objFSO.GetParentFolderName(objFile) & "\" & "beam.X_T")
7 i+ f6 r4 b; B3 |* M3 [& ], NswApp.CloseDoc "beam.SLDPRT"
错误：

模型：
/ h" B8 o% C+ O- H. M4 V- x& I beam.zip (49.22 KB, 下载次数: 1)

2013-11-25 19:30 上传

点击文件名下载附件