' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/27/00 by Administrator
' ******************************************************************************

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 ("E:\Leo\ALTEX DWGS\HardwareTail\10-110701.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110701 - Sheet1")
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110702.SLDDRW", 3)
' MSGBOX
' Unable to locate the file E:\CLAMP3.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Cannot open E:\CLAMP3.SLDPRT.
' 
External model E:\CLAMP3.SLDPRT could not be found.

' MSGBOX
' Cannot open E:\CLAMP3.SLDPRT.
' 
External model E:\CLAMP3.SLDPRT could not be opened because of an unexpected error.

Set Part = swApp.ActivateDoc ("10-110702 - Sheet1")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110703.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110703 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110701.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110701 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110701 - Sheet1"
Set Part = swApp.ActivateDoc ("10-110703 - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110703 - Sheet1"
Set Part = swApp.ActivateDoc ("10-110702 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "10-110702 - Sheet1"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110703.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110703 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110703 - Sheet1"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110704.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110704 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110704 - Sheet1"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110705.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110705 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110705 - Sheet1"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110706.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110706 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110706 - Sheet1"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110707.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Launch\FlBarRightTail.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("FlBarRightTail")
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("10-110707 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110710.SLDDRW", 3)
Part.EditSketch
Set Part = swApp.ActivateDoc ("10-110710 - Sheet1")
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110710 - Sheet1"
Set Part = swApp.ActivateDoc ("10-110707 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110707 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110711.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110711 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110711 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110712.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110712 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110712 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110712.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110712 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110712 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110713.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110713 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110713 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100200.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100200 - 10-010200")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100200 - 10-010200"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100201.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\Shell_Bottom.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("10-100201 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100201 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100202.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100202 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100202 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100202.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100202 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100202 - Sheet1"
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = swApp.ActivateDoc ("Shell_Bottom")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("FlBarRightTail")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100203.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\ShelfNose.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("10-100203 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100205.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100205 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100205 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100203 - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100203 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100205.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100205 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100205 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100206.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\GussetNose.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("10-100206 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100206 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100207.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\GussetNose2.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("10-100207 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100206.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100206 - Sheet1")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100205.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100205 - Sheet1")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100204.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100204 - Sheet1")
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100203.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100203 - Sheet1")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100208.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100208 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100208 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100203 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "10-100203 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100204 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100204 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100205 - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100205 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100206 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100206 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100207 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100207 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100207.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100207 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100207 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100206.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100206 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100206 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100206.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100206 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "10-100206 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100205.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100205 - Sheet1")
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100205 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100204.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100204 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100204 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100202.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100202 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-100202 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100204.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100204 - Sheet1")
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100204 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100203.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100203 - Sheet1")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100203 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE BOTTOM\10-100200.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100200 - 10-010200")
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE SPHERE\10-100300.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100300 - Sheet1")
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100300 - Sheet1"
Set Part = swApp.ActivateDoc ("10-100200 - 10-010200")
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100200 - 10-010200"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE SPHERE\10-100303.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100303 - Sheet1")
Part.PrintDirect
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-100303 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\NOSE SPHERE\10-100304.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100304 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-100304 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110200.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110200 - Sheet1")
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110200 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110201.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110201 - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110201 - Sheet1"
Set Part = swApp.ActivateDoc ("Shell_Bottom")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110202.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110202 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "10-110202 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Shell_Bottom")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Shell_Bottom"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("FlBarRightTail")
Set Part = Nothing
swApp.CloseDoc "FlBarRightTail"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ShelfNose")
Set Part = Nothing
swApp.CloseDoc "ShelfNose"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("GussetNose")
Set Part = Nothing
swApp.CloseDoc "GussetNose"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("GussetNose2")
Set Part = Nothing
swApp.CloseDoc "GussetNose2"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110203.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\ShelfTail.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("ShelfTail")
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("10-110203 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110203 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110203.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110203 - Sheet1")
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "10-110203 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110204.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110204 - Sheet1")
Part.EditSketch
Part.PrintDirect
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-110204 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110205.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110205 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-110205 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110206.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\GussetTail1.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("10-110206 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-110206 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110207.SLDDRW", 3)
Set Part = swApp.OpenDoc ("E:\Leo\Shell\GussetTail2.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("10-110207 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-110207 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL BOTTOM\10-110206.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-110206 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-110206 - Sheet1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.ActivateDoc ("GussetTail2")
Set Part = Nothing
swApp.CloseDoc "GussetTail2"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = swApp.ActivateDoc ("GussetTail1")
Set Part = Nothing
swApp.CloseDoc "GussetTail1"
Set Part = swApp.ActivateDoc ("ShelfTail")
Set Part = Nothing
swApp.CloseDoc "ShelfTail"
Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\TAIL SPHERE\10-100304-1.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("10-100304-1 - Sheet1")
Part.EditSketch
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "10-100304-1 - Sheet1"
Set Part = swApp.OpenDoc ("E:\Leo\altex_jbox\11010601.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("11010601 - 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
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SelectByID "Sheet1", "SHEET", 0.3602092995452, 0.1756291169591, 0
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Set Part = swApp.OpenDoc ("E:\Leo\Clamp\Clamp.SLDASM", 2)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Clamp")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Clamp"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("11010601 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc ("E:\Leo\Clamp\T-bolt.SLDPRT", 1)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("T-bolt")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc ("E:\Leo\Launch\Bolt.625-11x3.0.SLDPRT", 1)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bolt.625-11x3.0")
Set Part = swApp.OpenDoc ("E:\Leo\Launch\Bow.SLDPRT", 1)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bow")
Set Part = swApp.OpenDoc ("E:\Leo\Vehicle.SLDASM", 2)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Vehicle")
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bow")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bolt.625-11x3.0")
swApp.ExitApp
End Sub