' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/04/04 by fejo
' *****************************************************************************
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 ("X:\364000 vantana\minipulator part.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("minipulator part - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().TranslateBy 0.000446998, 0
Part.ActiveView().TranslateBy 0.000446998, 0
Part.ActiveView().TranslateBy 0.00893996, 0.00223499
Part.ActiveView().TranslateBy 0.00849296, -0.00178799
Part.ActiveView().TranslateBy 0.00670497, -0.00268199
Part.ActiveView().TranslateBy 0.0169859, -0.00893996
Part.ActiveView().TranslateBy 0.00536398, -0.0138569
Part.ActiveView().TranslateBy 0.00983395, -0.0147509
Part.ActiveView().TranslateBy 0.0138569, -0.0201149
Part.ActiveView().TranslateBy 0.0187739, -0.0393358
Part.ActiveView().TranslateBy 0.0165389, -0.0263729
Part.ActiveView().TranslateBy 0.00223499, -0.00223499
Part.ActiveView().TranslateBy 0.000446998, 0
Part.ActiveView().TranslateBy 0.00134099, 0.000446998
Part.ActiveView().TranslateBy 0.010728, 0.00625797
Part.ActiveView().TranslateBy 0.0111749, 0.010281
Part.ActiveView().TranslateBy 0.00446998, 0.00581097
Part.ActiveView().TranslateBy 0.00536398, 0.00357598
Part.ActiveView().TranslateBy 0.000446998, 0.000446998
Part.ActiveView().TranslateBy 0, -0.000446998
Part.ActiveView().TranslateBy 0, -0.00178799
Part.ActiveView().TranslateBy -0.000893996, -0.00983395
Part.ActiveView().TranslateBy -0.000893996, -0.00402298
Part.ActiveView().TranslateBy -0.000446998, -0.00134099
Part.ActiveView().TranslateBy -0.000893996, -0.00581097
Part.ActiveView().TranslateBy -0.000446998, -0.00581097
Part.ActiveView().TranslateBy -0.000446998, -0.00223499
Part.ActiveView().TranslateBy -0.000446998, -0.00223499
Part.ActiveView().TranslateBy -0.000446998, -0.00268199
Part.ActiveView().TranslateBy -0.000446998, -0.00178799
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2202879783496, 0.2208181645718, 0, False, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection2 True
swApp.ExitApp
End Sub