' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/22/00 by shfa
' ******************************************************************************

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")
' MSGBOX
' .\pworks\lworks.dll cannot be loaded. Either the Add-in or one of its components is missing

Set Part = swApp.OpenDoc ("F:\Work In Progress\Glass_Sampler\Impact.Sampler.SLDASM", 2)
Set Part = swApp.ActivateDoc ("Impact.Sampler.SLDASM")
Part.ViewZoomtofit2
Part.ViewDisplayShaded
Part.ViewZoomTo2 -0.0883472, 0.162579, -5.23592e-016, 0.151796, -0.115561, 1.41865e-015
Part.ViewDisplayHiddengreyed
Part.SelectByID "InContextFeature1", "INCONTEXTFEATS", 0, 0, 0
Part.SelectByID "Nose_Piece-1@Impact.Sampler", "COMPONENT", 0, 0, 0
Part.SelectByID "Nose_Piece-1@Impact.Sampler", "COMPONENT", 0, 0, 0
Part.SelectByID "Nose_Piece-1@Impact.Sampler", "COMPONENT", 0, 0, 0
Part.SelectByID "Base-Revolve@Nose_Piece-1@Impact.Sampler", "BODYFEATURE", 0, 0, 0
Part.SetPickMode
Part.ClearSelection
Part.ViewZoomtofit2
Part.ViewZoomTo2 -0.0450303, 0.283664, -1.36912e-015, 0.0851737, -0.0334866, 8.4553e-016
Part.SelectByID "Punch_Shaft-1@Impact.Sampler", "COMPONENT", 0, 0, 0
Part.SelectByID "Punch_Point-1@Impact.Sampler", "COMPONENT", 0, 0, 0
Part.SelectByID "Base-Revolve@Punch_Point-1@Impact.Sampler", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Sketch1@Punch_Point-1@Impact.Sampler", "SKETCH", 0, 0, 0
Part.SelectByID "Sketch1@Punch_Point-1@Impact.Sampler", "SKETCH", 0, 0, 0
Part.UnblankSketch
Set Part = swApp.OpenDoc ("F:\Work In Progress\Glass_Sampler\Ratchet_Assem.SLDASM", 2)
Set Part = swApp.ActivateDoc ("Ratchet_Assem.SLDASM")
Part.ViewDisplayHiddengreyed
Set Part = Nothing
swApp.CloseDoc "Ratchet_Assem.SLDASM"
Set Part = swApp.ActivateDoc ("Impact.Sampler.SLDASM")
Part.SelectByID "Comp Spring - ground-1@Impact.Sampler", "COMPONENT", 0, 0, 0
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Impact.Sampler.SLDASM"
swApp.ExitApp
End Sub