' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/27/03 by hamilton
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\MOOS\Flotation Clamp\FloTec\dwg-02062.dwg", "5 3"
Set Part = swApp.ActiveDoc
Part.ViewZoomtofit2
Part.ViewZoomTo2 11.2408, 9.22136, -1.67251e-013, 17.8513, 4.67425, -1.35499e-013
Part.ViewZoomTo2 12.1578, 8.02647, -1.76742e-013, 13.8929, 6.50249, -1.661e-013
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.793651
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 0.862069
Part.ActiveView().ZoomByFactor 0.769231
Part.ActiveView().ZoomByFactor 0.729927
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.826446
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.900901
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.680272
Part.ActiveView().ZoomByFactor 0.854701
Part.ViewZoomTo2 14.5446, 8.73542, -2.19031e-013, 17.2794, 5.25488, -1.94726e-013
Part.ViewZoomTo2 14.5442, 6.46697, -2.14568e-013, 17.002, 5.47793, -2.07662e-013
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub