' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/07/01 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.OpenDoc4 ("I:\Work In Progress\rin-bin\Concrete.Assembly\Concrete.Assem_V2.sldasm", 2, 0, "", longstatus)
' MSGBOX
'  I:\Work In Progress\rin-bin\Concrete.Assembly\Concrete.Assem_V2.sldasm is being used by Magene.  Do you want to open a copy?

Set Part = swApp.ActivateDoc ("Concrete.Assem_V2.sldasm")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "I:\Work In Progress\rin-bin\Concrete.Assembly\Concrete.Assem.sldasm", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("I:\Work In Progress\rin-bin\Concrete.Assembly\Concrete.Assem.sldasm", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Concrete.Assem.sldasm")
Part.ActiveView().RotateAboutCenter 0.0272536, 0.0245961
Part.ActiveView().RotateAboutCenter 0.218029, 0.0491922
Part.ActiveView().RotateAboutCenter 0.30524, 0.0737883
Part.ActiveView().RotateAboutCenter 0.348846, 0.166024
Part.ActiveView().RotateAboutCenter 0.15262, 0.0983844
Part.ActiveView().RotateAboutCenter 0.07631, 0.0676393
Part.ActiveView().RotateAboutCenter 0.359747, 0.202918
Part.ActiveView().RotateAboutCenter 0.15262, 0.0860863
Part.ActiveView().RotateAboutCenter 0.0654086, 0.0430432
Part.ActiveView().RotateAboutCenter 0.218029, 0.0922354
Part.ActiveView().RotateAboutCenter 0.207127, 0.0860863
Part.ActiveView().RotateAboutCenter 0.22893, 0.19062
Part.ActiveView().RotateAboutCenter 0.0654086, 0.0676393
Part.ActiveView().RotateAboutCenter 0.0109014, 0.012298
Part.ActiveView().RotateAboutCenter 0.0163521, 0.0245961
Part.ActiveView().RotateAboutCenter 0.125366, 0.141428
Part.ActiveView().RotateAboutCenter 0.0436057, 0.0430432
Part.ActiveView().RotateAboutCenter -0.00545071, 0.00614902
Part.ActiveView().RotateAboutCenter -0.0981128, 0
Part.ActiveView().RotateAboutCenter -0.163521, -0.0430432
Part.ActiveView().RotateAboutCenter -0.0926621, 0
Part.ActiveView().RotateAboutCenter -0.22893, -0.012298
Part.ActiveView().RotateAboutCenter -0.136268, 0
Part.ActiveView().RotateAboutCenter -0.0109014, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter 0, 0.00614902
Part.ActiveView().RotateAboutCenter -0.00545071, 0.012298
Part.ActiveView().RotateAboutCenter -0.0218029, 0.0184471
Part.ActiveView().RotateAboutCenter -0.0327043, 0
Part.ActiveView().RotateAboutCenter -0.0109014, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter 0.00545071, 0
Part.ActiveView().RotateAboutCenter 0.0272536, -0.0245961
Part.ActiveView().RotateAboutCenter 0.0327043, -0.0245961
Part.ActiveView().RotateAboutCenter 0.0327043, -0.0245961
Part.ActiveView().RotateAboutCenter 0.0490564, -0.0245961
Part.ActiveView().RotateAboutCenter 0.0926621, -0.00614902
Part.ActiveView().RotateAboutCenter 0.0545071, 0
Part.ActiveView().RotateAboutCenter 0.0926621, 0.0245961
Part.ActiveView().RotateAboutCenter 0.0708593, 0.0799373
Part.ActiveView().RotateAboutCenter 0.0599578, 0.0860863
Part.ActiveView().RotateAboutCenter 0.0272536, 0.0799373
Part.ActiveView().RotateAboutCenter -0.0163521, 0.0614902
Part.ActiveView().RotateAboutCenter -0.0599578, 0.0307451
Part.ActiveView().RotateAboutCenter -0.0817607, 0.0368941
Part.ActiveView().RotateAboutCenter -0.0708593, 0.0245961
Part.ActiveView().RotateAboutCenter -0.0708593, 0.0245961
Part.ActiveView().RotateAboutCenter -0.0926621, 0.012298
Part.ActiveView().RotateAboutCenter -0.0436057, 0
Part.ActiveView().RotateAboutCenter -0.0163521, 0
Part.ActiveView().RotateAboutCenter -0.0218029, 0
Part.ActiveView().RotateAboutCenter -0.0109014, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter 0, -0.00614902
Part.ActiveView().RotateAboutCenter -0.0272536, -0.0676393
Part.ActiveView().RotateAboutCenter -0.0654086, -0.12913
Part.ActiveView().RotateAboutCenter -0.00545071, -0.0368941
Part.ActiveView().RotateAboutCenter -0.00545071, -0.0245961
Part.ActiveView().RotateAboutCenter -0.00545071, -0.0368941
Part.ActiveView().RotateAboutCenter 0, -0.00614902
Part.ActiveView().RotateAboutCenter 0.00545071, 0
Part.ActiveView().RotateAboutCenter 0.00545071, -0.00614902
Part.ActiveView().RotateAboutCenter 0.0327043, -0.0307451
Part.ActiveView().RotateAboutCenter 0.0599578, -0.0860863
Part.ActiveView().RotateAboutCenter 0.0545071, -0.116831
Part.ActiveView().RotateAboutCenter 0.038155, -0.0553412
Part.ActiveView().RotateAboutCenter 0.038155, -0.0307451
Part.ActiveView().RotateAboutCenter 0.0817607, -0.0491922
Part.ActiveView().RotateAboutCenter 0.218029, -0.012298
Part.ActiveView().RotateAboutCenter 0.0817607, 0
Part.ActiveView().RotateAboutCenter 0.15262, 0.0676393
Part.ActiveView().RotateAboutCenter 0.141719, 0.166024
Part.ActiveView().RotateAboutCenter 0.038155, 0.0614902
Part.ActiveView().RotateAboutCenter -0.00545071, 0.012298
Part.ActiveView().RotateAboutCenter -0.0163521, 0.012298
Part.ActiveView().RotateAboutCenter -0.0490564, 0.0307451
Part.ActiveView().RotateAboutCenter -0.0163521, 0.00614902
Part.ActiveView().RotateAboutCenter -0.0327043, 0.00614902
Part.ActiveView().RotateAboutCenter -0.0163521, 0
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter 0, 0.00614902
Part.ActiveView().RotateAboutCenter -0.00545071, 0
Part.ActiveView().RotateAboutCenter -0.038155, 0
Part.ActiveView().RotateAboutCenter -0.0109014, -0.00614902
Part.ActiveView().RotateAboutCenter 0, -0.00614902
Part.ActiveView().RotateAboutCenter 0, -0.012298
Part.ActiveView().RotateAboutCenter 0, -0.0184471
Part.ActiveView().RotateAboutCenter 0, -0.0245961
Part.ActiveView().RotateAboutCenter -0.0327043, -0.0799373
Part.ActiveView().RotateAboutCenter -0.0545071, -0.0922354
Part.ActiveView().RotateAboutCenter -0.0545071, -0.12913
Part.ActiveView().RotateAboutCenter -0.038155, -0.135279
Part.ActiveView().RotateAboutCenter 0, -0.184471
Part.ActiveView().RotateAboutCenter -0.0109014, -0.350494
Part.ActiveView().RotateAboutCenter 0, -0.0553412
Part.ActiveView().RotateAboutCenter 0.00545071, 0
Part.ActiveView().RotateAboutCenter 0.0109014, 0
Part.ActiveView().RotateAboutCenter 0.0109014, 0.00614902
Part.ActiveView().RotateAboutCenter 0.0327043, 0.0184471
Part.ActiveView().RotateAboutCenter 0.0545071, 0.0799373
Part.ActiveView().RotateAboutCenter 0.136268, 0.295153
Part.ActiveView().RotateAboutCenter 0.0599578, 0.12298
Part.ActiveView().RotateAboutCenter 0.00545071, 0.0368941
Part.ActiveView().RotateAboutCenter 0, 0.202918
Part.ActiveView().RotateAboutCenter -0.0436057, 0.172173
Part.ActiveView().RotateAboutCenter -0.0436057, 0.104533
Part.ActiveView().RotateAboutCenter -0.0163521, 0.0430432
Part.ActiveView().RotateAboutCenter -0.0109014, 0.0307451
Part.ActiveView().RotateAboutCenter -0.0163521, 0.0368941
Part.ActiveView().RotateAboutCenter -0.00545071, 0.0245961
Part.ActiveView().RotateAboutCenter 0, -0.00614902
Part.ActiveView().RotateAboutCenter -0.00545071, -0.0553412
Part.ActiveView().RotateAboutCenter -0.0109014, -0.270557
Part.ActiveView().RotateAboutCenter -0.0218029, -0.578008
Part.ActiveView().RotateAboutCenter -0.00545071, -0.245961
Part.ActiveView().RotateAboutCenter 0, 0.0184471
Part.ActiveView().RotateAboutCenter 0.0163521, 0.0430432
Part.ActiveView().RotateAboutCenter 0.0163521, 0.0737883
Part.ActiveView().RotateAboutCenter 0, 0.0491922
Part.ActiveView().RotateAboutCenter 0, 0.0491922
Part.ActiveView().RotateAboutCenter 0, 0.0491922
Part.ActiveView().RotateAboutCenter -0.00545071, 0.0307451
Part.ActiveView().RotateAboutCenter -0.0163521, 0.0491922
Part.ActiveView().RotateAboutCenter -0.0163521, 0.0614902
Part.ActiveView().RotateAboutCenter -0.0109014, 0.0430432
Part.ActiveView().RotateAboutCenter -0.00545071, 0.0491922
Part.ActiveView().RotateAboutCenter 0, 0.0307451
Part.ActiveView().RotateAboutCenter 0, 0.00614902
Part.ActiveView().RotateAboutCenter 0, 0.00614902
Part.ActiveView().RotateAboutCenter 0, 0.00614902
Part.ActiveView().RotateAboutCenter 0.00545071, 0
Part.ActiveView().RotateAboutCenter 0.0163521, 0
Part.ActiveView().RotateAboutCenter 0.0163521, 0.012298
Part.ActiveView().RotateAboutCenter 0.0109014, 0.00614902
Part.ActiveView().RotateAboutCenter 0.00545071, 0.00614902
Part.ActiveView().RotateAboutCenter 0.0163521, 0.0184471
Part.ActiveView().RotateAboutCenter 0.0109014, 0.00614902
Part.ActiveView().RotateAboutCenter 0.00545071, 0.00614902
Part.ActiveView().RotateAboutCenter 0.0163521, 0.0245961
Part.SelectByID "", "FACE", 0.05365489496057, 0.1219722580861, -0.1087065065813
Part.SelectByID "", "FACE", 0.1214768068526, 0.1400696134464, -0.2047916078296
Part.ClearSelection
Part.FileFind
' MSGBOX
' Preserve directory structure?

swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub