24小时热门版块排行榜

>论坛更新日志 (1273)
>虫友互识 (34)
>论文投稿 (24)
>导师招生 (23)
>考研 (21)
>基金申请 (17)
>教师之家 (17)
>硕博家园 (17)
>找工作 (17)
>考博 (16)
>公派出国 (16)
>休闲灌水 (15)
>博后之家 (14)
>论文道贺祈福 (11)
>有机交流 (11)
>文献求助 (9)

返回列表

1990chs

银虫 (小有名气)

应助: 1 (幼儿园)
金币: 299
帖子: 139
在线: 50.9小时
虫号: 2443088
注册: 2013-04-30
性别: GG
专业: 机械结构强度学

[求助] SolidWorks的VB开发的问题

我做的是http://wenku.baidu.com/view/bc3621fdc8d376eeaeaa3101.html这个网页上的例子，就是编一个VBS脚本，解析尺寸参数，然后输出为X_T格式，运行的时候报错！有没有大神能不能帮忙看一下错在哪了？代码：
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 = CreatObject("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
On Error GoTo 0

Call ChangePara(Part,0.05,0.02,0.02,0.02,0.05,0.02,0.2 )
Sub ChangePara(Part,Val1,Val2,Val3,Val4,Val5,Val6,Val7 )
Part.Parameter("HeightUp@草图1" ).SystemValue = Val1
Part.Parameter("HeightDown@草图1" ).SystemValue = Val2
Part.Parameter("FlangeRight@草图1" ).SystemValue = Val3
Part.Parameter("FlangeLeft@草图1" ).SystemValue = Val4
Part.Parameter("Height@草图1" ).SystemValue = Val5
Part.Parameter("Width@草图1" ).SystemValue = Val6
Part.Parameter("Length@凸台-拉伸1" ).SystemValue = Val7

Part.EditRebuild
End Sub

Part.SaveAs(objFSO.GetParentFolderName(objFile) & "\" & "beam.X_T" )
swApp.CloseDoc "beam.SLDPRT"
错误：

附件为模型[ Last edited by 1990chs on 2013-11-25 at 22:58 ]

回复此楼