razzendahcuben
Mechanical
- Jan 10, 2009
- 79
The following code fails to open a part in SW Viewer. It opens the Viewer, but the OpenDoc6 method doesn't seem to work. Any ideas? Thanks.
========
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Long, longwarnings As Long
Sub main()
'Set swApp = Application.SldWorks
'Set part = swApp.ActiveDoc
Set swApp = CreateObject("SWViewer.Application")
swApp.Visible = True
'Set retval = swApp.opendoc6(vFile, iType, 2, "", SWerror, SWwarning)
Set part = swApp.opendoc6("C:\1Keith\1types\2009\Assembly.SLDASM", 1, 0, "", longstatus, longwarnings)
End Sub
========
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Long, longwarnings As Long
Sub main()
'Set swApp = Application.SldWorks
'Set part = swApp.ActiveDoc
Set swApp = CreateObject("SWViewer.Application")
swApp.Visible = True
'Set retval = swApp.opendoc6(vFile, iType, 2, "", SWerror, SWwarning)
Set part = swApp.opendoc6("C:\1Keith\1types\2009\Assembly.SLDASM", 1, 0, "", longstatus, longwarnings)
End Sub