' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/11/05 by keeferc
' *****************************************************************************
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 ("\\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\110410-100 XA.SLDDRW", 3, 0, "", longstatus, longwarnings)
' MSGBOX
'  \\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\110410-100 XA.SLDDRW is not available for write access.  Do you want to open document(s) read-only?

Set Part = swApp.ActivateDoc ("110410-100 XA - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 0.660782, 0.0709223, -4.02559e-016, 0.831698, 0.00737667, 4.11785e-017
Part.ViewZoomtofit2
Part.FileFind
' MSGBOX
' Document \\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\110410-100 XA.SLDDRW, and/or some of its references, has been modified since last saved.  Save changes before copying?

' 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?

' MSGBOX
' \\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\110410-100 XA.SLDASM is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

' MSGBOX
' \\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\1033249.SLDASM is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

' MSGBOX
' \\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\1034823.SLDASM is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

' MSGBOX
' \\Mpserver0\MARS\110410   MARS LV POWER COMMS HOUSING ASSY\110410-100 XA.SLDASM is being referenced by other open documents.  "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references.  

Part.SaveAs2 "C:\Documents and Settings\keeferc\Desktop\BACK UP FILES\110410-100 XA.SLDDRW", 0, FALSE, FALSE
' MSGBOX
' Preserve directory structure?

' MSGBOX
' Can't overwrite document C:\Documents and Settings\keeferc\Desktop\BACK UP FILES\110410-100 XA.SLDDRW.  It is a "Read-Only" document or is currently in use.

Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "110410-100 XA - Sheet1"