| 查看: 523 | 回复: 0 | ||
[求助]
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 ] |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : beam.zip
2013-11-25 22:55:47, 48.62 K
» 猜你喜欢
一志愿西北工业大学机械学硕080200 367分求调剂
已经有0人回复
-
求调剂
已经有3人回复
-
机械工程论文润色/翻译怎么收费?
已经有147人回复
-
动力工程求调剂
已经有0人回复
-
一志愿南航机械391分调剂
已经有1人回复
-
求调剂
已经有2人回复
-
一志愿211求调剂学校273分英语69
已经有10人回复
-
智能微系统实验室-北京信息科技大学-2026年秋季入学博士招生
已经有7人回复
-
非全博士求助
已经有18人回复
-
申请博士求职
已经有1人回复
找到一些相关的精华帖子，希望有用哦~
机械“参数化”一键出图，solidworks参数化二次开发，autoCAD2012参数化尺寸驱动
已经有14人回复
- VB与solidworks代码问题
已经有3人回复
- 用vb进行二次开发，具体如题
已经有6人回复
- solidworks二次开发 基准面绘制草图
已经有11人回复
- 【求助】VC++.NET编程，MFC基于对话框应用程序编写
已经有18人回复
- 【求助】求助有没有做VC++ 对SolidWorks二次开发的
已经有3人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
10