VB开发SolidWorks实现机械产品参数化设计

Dim swapp As SldWorks.SldWorks

Dim PatFilePath As String

Dim part As SldWorks.PartDoc

Private Sub Command1_Click()

Set swapp = GetObject("D:Program FilesSolidWorks CorpSolidWorksSLDWORKS.exe","SldWorks.Application")

If Err Then

Set swapp = CreateObject("SldWorks.SldWorks")

If Err Then

MsgBox ("无法创建SolidWorks")

Exit Sub

Else

swapp.Visible = True

End If

End If

swapp.Visible = True

PatFilePath = "c:AgilewspacesDefault5090050031.SLDPRT "

Set part = swapp.NewDocument(PatFilePath,0#,0#)

part.SaveToFile

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!