' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/08/04 by jfeldman
' *****************************************************************************
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

Set Part = swApp.OpenDoc4 ("T:\scji\lab stand\lab stand.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("lab stand.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type A Narrow_AI-1@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Hex Finished Bolt_AI-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("bead3-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type A Narrow_AI-1@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Flat Washer Type A Narrow_AI-1@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Hex Finished Bolt_AI-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-1@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@lab stand", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@lab stand", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "lab stand.SLDASM"
swApp.ExitApp
End Sub