Question

利用vb打开solidworks指定的文件？ 还是打不开，solidworks打开之后闪一下，又没有了，请您指教啊！

Dim swApp As Object

Dim Part As Object

Dim errors As Long

Dim warnings As Long
Private Sub Cmd_part_Click()

Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

swApp.Visible (True)

Set Part = swApp.OpenDoc6("F:\SW+VB\VB_first_圆筒\vb_first_圆筒.sldpart", swDocPART, swOpenDocOptions_Silent, "", errors, warnings)

End Sub

Answer 1

应该是opendoc6函数中swOpenDocOptions_Silent项你选的不正确。
我试了下你的swapp.opendoc6（*****），提示错误。
其实你直接写成set part =swApp.OpenDoc6（filepath,swpartdoc）就行，其他的默认。其中filepath就是零件路径。

追问

确实是哪一行错了，呵呵，犯了一个低级的错误：零件的后缀打错了！
您那里还有vb开发SolidWorks的资料吗？能给我传一些吗？
我的邮箱是：280047159@qq.com