' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/28/00 by hlundin
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("H:\Vault\Single_Shutter\BodyClmp.Assem.SLDASM", 2)
Set Part = swApp.ActivateDoc ("BodyClmp.Assem.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc ("C:\Herb's work\drawings\Profiler\SK-HL100-00.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SK-HL100-00 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Set Part = swApp.OpenDoc ("C:\Herb's work\drawings\Profiler\SK-HL100-02.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("SK-HL100-02 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "SK-HL100-02 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SK-HL100-00 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "SK-HL100-00 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BodyClmp.Assem.SLDASM")
Part.SelectByID "BodyClmp_Shutter-1@BodyClmp.Assem", "COMPONENT", 0, 0, 0
Part.OpenCompFile
Set Part = swApp.OpenDoc ("H:\Vault\Single_Shutter\BodyClmp_Shutter.SLDPRT", 1)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BodyClmp_Shutter.SLDPRT")
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Set Part = Nothing
swApp.CloseDoc "BodyClmp_Shutter.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BodyClmp.Assem.SLDASM")
Set Part = swApp.OpenDoc ("H:\Vault\Single_Shutter\End.Caps.SLDDRW", 3)
' MSGBOX
' Unable to locate the file D:\Jon\SW_files\JON.Spectro.Shutter\Mod_Shutter_V4\Top.EndCap.SLDPRT.  Would you like to find it yourself?

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("End.Caps - Sheet1")
' MSGBOX
' Cannot open D:\Jon\SW_files\JON.Spectro.Shutter\Mod_Shutter_V4\Top.EndCap.SLDPRT.
' 
External model D:\Jon\SW_files\JON.Spectro.Shutter\Mod_Shutter_V4\Top.EndCap.SLDPRT could not be found.

' MSGBOX
' Cannot open D:\Jon\SW_files\JON.Spectro.Shutter\Mod_Shutter_V4\Top.EndCap.SLDPRT.
' 
External model D:\Jon\SW_files\JON.Spectro.Shutter\Mod_Shutter_V4\Top.EndCap.SLDPRT could not be opened because of an unexpected error.

Set Part = Nothing
swApp.CloseDoc "End.Caps - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BodyClmp.Assem.SLDASM")
Set Part = Nothing
swApp.CloseDoc "BodyClmp.Assem.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SK-HL100-01 - Sheet1")
Part.Customize
Set Part = Nothing
swApp.CloseDoc "SK-HL100-01 - Sheet1"
swApp.ExitApp
End Sub