' ******************************************************************************
' 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\collar\100499A.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("100499A - Sheet1")
Part.EditSketch
Part.ViewZoomtofit
Part.EditSketch
Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2492016346718, 0.2202385419049, 0
Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2492016346718, 0.2202385419049, 0
Part.EditSketch
Part.EditSketch
Part.InsertNewNote3 "(see note 7)", 1, 1, 1, 0, 0, 0, 0, 1
Part.SelectByID "DetailItem96@Drawing View1", "NOTE", 0.2581566960961, 0.2196788505659, 0
Part.InsertNewNote3 "(see note 8)", 1, 1, 1, 0, 0, 0, 0, 1
Part.SelectByID "DetailItem89@Sheet1", "NOTE", 0.08017485028732, 0.0523311401985, 0
Part.InsertNewNote3 "Notes:" & Chr(13) & Chr(10) &_
	"7. Threads not shown for clarity" & Chr(13) & Chr(10) &_
	"8. Apply Loctite 243 to threads prior to installation", 1, 1, 1, 0, 0, 0, 0, 1
Part.Save
Part.PrintDirect
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\cylinder\COVER.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("COVER - Sheet1")
Part.SelectByID "DetailItem84@Sheet1", "NOTE", 0.1902916080638, 0.1658650961088, 0
Part.InsertNewNote3 "ASSEMBLY DRAWINGS FOR SEMIPOWER" & Chr(13) & Chr(10) &_
	"DRIVEBLOK MOTOR CONTROLLER ASS'Y", 1, 1, 1, 0, 0, 0, 0, 1
Part.ClearSelection
Part.SelectByID "Sheet1", "SHEET", 0.1023323488045, 0.1235555789967, 0
Part.SelectByID "Sheet1", "SHEET", 0.1719203703704, 0.2365665260197, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.144085161744, 0.08124606188467, 0
Part.EditDelete
Part.SelectByID "Sheet1", "SHEET", 0.04276500234412, 0.1307927332396, 0
Part.Paste
Part.SelectByID "Worksheet", "OLEITEM", 0.2387248710736, 0.24324697609, 0
Part.EditDelete
Part.SelectByID "Sheet1", "SHEET", 0.1084560947023, 0.08068935771214, 0
Part.Paste
Part.SelectByID "Worksheet", "OLEITEM", 0.31944697609, 0.315061814346, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.3316944678856, 0.3200721518987, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.2030958040319, 0.223205625879, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.3083128926395, 0.04450358649789, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.2793642756681, 0.05563766994843, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.1719203703704, 0.1424835208626, 0
Part.SelectByID "Sheet1", "SHEET", 0.3005190342241, 0.1113080872011, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.1246005157056, 0.1218854664791, 0
Part.SelectByID "Worksheet", "OLEITEM", 0.1246005157056, 0.1218854664791, 0
Part.SelectByID "Sheet1", "SHEET", 0.1797142287857, 0.1346896624473, 0
Part.Save
Part.PrintDirect
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "COVER - Sheet1"
Set Part = swApp.ActivateDoc ("100499A - Sheet1")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "100499A - Sheet1"
swApp.ExitApp
End Sub