' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/13/05 by grda
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("T:\scji\Umbilical Compass\DGH HOUSING.SLDDRW", 3, 0, "", longstatus, longwarnings)
' MSGBOX
' Cannot open U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP1.SLDPRT.
' 
External model U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP1.SLDPRT could not be found.

' MSGBOX
' Cannot open U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP1.SLDPRT.
' 
External model U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP1.SLDPRT could not be opened because of an unexpected error.

' MSGBOX
' Cannot open U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP1.SLDPRT.
' 
External model U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP1.SLDPRT could not be opened because of an unexpected error.

' MSGBOX
' Cannot open U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP2.SLDPRT.
' 
External model U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP2.SLDPRT could not be found.

' MSGBOX
' Cannot open U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP2.SLDPRT.
' 
External model U:\my docs\SolidWorks Files\dgh housing\DGH HOUSING ENDCAP2.SLDPRT could not be opened because of an unexpected error.

Set Part = swApp.ActivateDoc ("DGH HOUSING - Sheet2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub