24小时热门版块排行榜    

CyRhmU.jpeg
查看: 477  |  回复: 0

1990chs

银虫 (小有名气)

[求助] 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"
错误:
SolidWorks的VB开发的问题
附件为模型[ Last edited by 1990chs on 2013-11-25 at 22:58 ]
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : beam.zip
  • 2013-11-25 22:55:47, 48.62 K

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 1990chs 的主题更新
信息提示
请填处理意见