' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/18/99 by grma
' ******************************************************************************

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 ("D:\Projects\moog\1_ATM_HOUSING\bulkhead\100484A.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("100484A - Sheet1")
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.0277271, 0.225208, -3.7176e-015, 0.248851, -0.0040848, -2.11645e-015
Part.SetPickMode
Part.SelectByID "DetailItem98@Drawing View5", "NOTE", 0.1674623511905, 0.04948518808596, 0
Part.EditDelete
Part.SelectByID "DetailItem93@Drawing View5", "NOTE", 0.1637090402511, 0.05630938979393, 0
Part.EditDelete
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\bulkhead\bulk.SLDASM", 2)
Set Part = swApp.ActivateDoc ("bulk.SLDASM")
Part.SelectByID "pin_guide-2@bulk", "COMPONENT", 0, 0, 0
Part.SelectByID "AI_dpm_1.8_0.375-2@bulk", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "AI_dpm_1.8_0.375-2@bulk", "COMPONENT", 0, 0, 0
Part.CompConfigProperties2 0, 1, 1
Part.ClearSelection
Part.SelectByID "AI_dpm_1.8_0.375-4@bulk", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "AI_dpm_1.8_0.375-4@bulk", "COMPONENT", 0, 0, 0
Part.CompConfigProperties2 0, 1, 1
Part.ClearSelection
Set Part = swApp.ActivateDoc ("100484A - Sheet1")
Part.SelectByID "DetailItem90@Sheet1", "NOTE", 0.05042729189873, 0.02321201151026, 0
Part.InsertNewNote3 "Notes:" & Chr(13) & Chr(10) &_
	"7) Apply Loctite 243 to threads prior to installation", 1, 1, 1, 0, 0, 0, 0, 1
Part.SelectByID "DetailItem94@Drawing View5", "NOTE", 0.13709465359, 0.04880276791516, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.1497194267497, 0.04914397800056, 0
Part.ClearSelection
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.142212804871, 0.04812034774436, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.1425540149564, 0.04812034774436, 0
Part.InsertNewNote3 "(see note 7)", 1, 1, 1, 0, 0, 0, 0, 1
Part.SelectByID "DetailItem98@Drawing View5", "NOTE", 0.1476721662374, 0.04641429731737, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.1486957964935, 0.05016760825675, 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "BOM", 0.3162299484243, 0.07439352432006, 0
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "BOM", 0.3326080325234, 0.07882925543024, 0
Part.SelectByID "", "BOM", 0.3346552930358, 0.09384249918778, 0
Part.SelectByID "", "BOM", 0.3370437636336, 0.089747978163, 0
Part.EditSketch
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.2531060826255, 0.06995779320988, 0
Part.EditSketch
Part.SelectByID "", "BOM", 0.3332904526942, 0.08292377645503, 0
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "BOM", 0.3227129400469, 0.08224135628423, 0
Part.EditSketch
Part.EditSketch
Part.SelectByID "", "BOM", 0.3677526713195, 0.08565345713822, 0
Part.SelectByID "", "BOM", 0.3599048393553, 0.089747978163, 0
Part.SelectByID "", "BOM", 0.3575163687575, 0.08019409577184, 0
Part.EditSketch
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.2459406708322, 0.05801544022092, 0
Part.ViewZoomtofit
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save
Part.PrintDirect
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\wedge\100501.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("100501 - Sheet1")
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "100501 - Sheet1"
Set Part = swApp.ActivateDoc ("100484A - Sheet1")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "100484A - Sheet1"
Set Part = swApp.ActivateDoc ("bulk.SLDASM")
Set Part = Nothing
swApp.CloseDoc "bulk.SLDASM"
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\cylinder\100503.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("100503 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.Save
Set Part = Nothing
swApp.CloseDoc "100503 - Sheet3"
swApp.ExitApp
End Sub