' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/31/05 by bryan
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\362000 tiburon\tiburon lasers\lasers and mounts\laser and mount assy.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("laser and mount assy - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "laser and mount assy - Sheet1"
Set Part = swApp.OpenDoc6 ("\\Tornado\ProjectLibrary\362000 tiburon\tiburon lasers\lasers and mounts\laser holder block.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("laser holder block - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
' 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.SaveAs2 "C:\Documents and Settings\bryan\My Documents\laser holder block.SLDDRW", 0, FALSE, FALSE
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub