| 查看: 555 | 回复: 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
» 猜你喜欢
各位大佬，面上项目预算多少合适？预算有用吗？
已经有21人回复
-
工学085800能动专硕，初试307分求调剂，满足B区国家线
已经有1人回复
-
金属材料论文润色/翻译怎么收费?
已经有230人回复
-
0856材料306分调剂
已经有4人回复
-
非晶合金
已经有2人回复
-
面上参与人员重要吗？找不到参与人
已经有7人回复
-
【博士招生】英国拉夫堡大学博士招生 （LU-CSC scholarship, 暂免ATAS）
已经有0人回复
-
北京理工大学 空天学院-招收发动机相关专业（力学、燃烧传热等方向）博士生
已经有2人回复
-
力学研究所某专项团队支撑岗位和特别研究助理岗位招聘启事(长期有效)
已经有10人回复
-
力学研究所某专项团队支撑岗位和特别研究助理岗位招聘启事
已经有10人回复
找到一些相关的精华帖子，希望有用哦~
机械“参数化”一键出图，solidworks参数化二次开发，autoCAD2012参数化尺寸驱动
已经有14人回复
- VB与solidworks代码问题
已经有3人回复
- 用vb进行二次开发，具体如题
已经有6人回复
- solidworks二次开发 基准面绘制草图
已经有11人回复
- 【求助】VC++.NET编程，MFC基于对话框应用程序编写
已经有18人回复
- 【求助】求助有没有做VC++ 对SolidWorks二次开发的
已经有3人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人