标题: 基于VB的solidworks二次开发编了一个小程序，总是出现问题，望大神们指点！ [打印本页] 作者: jx54321 时间: 2015-7-7 08:14 标题: 基于VB的solidworks二次开发编了一个小程序，总是出现问题，望大神们指点！ 总是出现实时错误，-2147417848（80010108）自动化错误，调试的时候是红色语句显示错误，望大神们指点
Option Explicit
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long
Dim assem As Object
Dim D1 As Double
Dim D2 As Double
Private Sub Command1_Click()
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible (True)
Set Part = swApp.OpenDoc4("F : SolidWorks 套. SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc("套")
Part.Parameter("D1@草图1").SystemValue = Val(Text1.Text)
Part.Parameter("D2@草图1").SystemValue = Val(Text2.Text)
Part.Parameter("D1@拉伸1").SystemValue = Val(Text3.Text)
Part.EditRebuild
Part.EditRebuild
End Sub
Private Sub Command2_Click()
'swApp.Exitapp
End
End Sub作者: flying008 时间: 2015-7-7 08:24
大神们赶紧帮一下忙吧，不胜感激，很着急！作者: wj257 时间: 2015-7-7 08:26
改Set Part = swApp.ActivateDoc作者: rutstyle 时间: 2015-7-7 08:39
直接去掉这一句也可以作者: sxwcyj 时间: 2015-9-30 12:48
好好学习，天天向上！