' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/20/00 by grma
' ******************************************************************************

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 = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc2 ("D:\Projects\HDTV\ring2.SLDASM", 2, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("ring2.SLDASM")
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
Part.ViewZoomtofit2
Part.ActiveView().RotateAboutCenter -0.00414856, 0
Part.ActiveView().RotateAboutCenter -0.120308, -0.125969
Part.ActiveView().RotateAboutCenter -0.0539313, -0.0839794
Part.ActiveView().RotateAboutCenter 0.0788227, -0.176357
Part.ActiveView().RotateAboutCenter 0.00829712, -0.0251938
Part.ActiveView().RotateAboutCenter 0, -0.0461887
Part.ActiveView().RotateAboutCenter 0.0705255, -0.0965763
Part.ActiveView().RotateAboutCenter -0.0124457, -0.00419897
Part.ActiveView().RotateAboutCenter -0.124457, 0.0209948
Part.ActiveView().RotateAboutCenter -0.00414856, 0
Part.FileFind
' MSGBOX
' Document D:\Projects\HDTV\ring2.SLDASM,  and/or some of its references, has been modified since last saved.  Save changes before copying?

' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "ring2.SLDASM"
swApp.ExitApp
End Sub