|
我做的是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"
错误:
[url=http://swbbsc.solidworks.com.cn/forum.php?mod=attachment&aid=NTUwNTR8NzY1YmI5M2F8MTQwNzE2MDcwN3w4NzA4fDQwNzA4]beam.SLDPRT[/url] |
|