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 Files\SolidWorks Corp\SolidWorks\SLDWORKS.exe", "

Dim swapp As SlDWorks.SlDWorks

Dim PatfilePath As String

Dim part As SlDWorks.PartDoc

Private Sub Command1_Click()

Set swapp = Getobject("D:\Program files\SolIDWorks Corp\SolIDWorks\SLDWORKS.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:\Agile\wspaces\Default\5090050031.SLDPRT "

Set part = swapp.Newdocument(PatfilePath,0#,0#)

part.Savetofile

End Sub

总结

以上是内存溢出为你收集整理的VB开发SolidWorks实现机械产品参数化设计全部内容，希望文章能够帮你解决VB开发SolidWorks实现机械产品参数化设计所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。