Question

在做基于Solidworks的二次开发时，用VB连接Solidworks出现了下面的问题，谁能帮我解决一下啊，跪谢。

Answer 1

Private Sub Command1_Click()
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
'连接solidworks
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible (True)

'新建零件
Set Part = swApp.NewPart()
Set Part = swApp.ActiveDoc

前面的定义为题 按照这个改一下就好了