' ****************************************************************************** ' 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\HardwareNose\10-100701.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100701 - Sheet1") Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100702.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100702 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100701 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100701 - Sheet1" Set Part = swApp.ActivateDoc ("10-100702 - Sheet1") Part.EditSketch Part.PrintDirect Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-100702 - Sheet1" Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100703.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100703 - Sheet1") Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-100703 - Sheet1" Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100704.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100704 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-100704 - Sheet1" Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100705.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.282303286308, 0.3363499754728, 0 Part.ClearSelection Part.EditSketch Part.EditSketch 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.ShowNamedView2 "*Front", 1 Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-100705 - Sheet1" Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100706.SLDDRW", 3) Set Part = swApp.OpenDoc ("E:\Leo\Launch\FlBarRightNose.SLDPRT", 1) Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameState = 2 Set Part = swApp.ActivateDoc ("10-100706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch 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.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110701.SLDDRW", 3) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("10-110701 - Sheet1") Part.PrintDirect Set Part = Nothing swApp.CloseDoc "10-110701 - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("10-100706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-100706 - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "FlBarRightNose" 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") swApp.ExitApp End Sub