' ****************************************************************************** ' 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") Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100702.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100702 - Sheet1") Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100703.SLDDRW", 3) Set Part = swApp.ActivateDoc ("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 Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100705.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareNose\10-100706.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch 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-100705.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ShowNamedView2 "*Front", 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110713.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-110713 - Sheet1") Part.EditSketch 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 Part.EditSketch Part.EditSketch Part.EditSketch 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.EditSketch Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110710.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-110710 - 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 Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110705.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-110705 - Sheet1") Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110707.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.OpenDoc ("E:\Leo\Vehicle.SLDASM", 2) Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("Vehicle") Part.RotateComponent Part.SelectByID "", "EDGE", -0.1645427269577, -0.1044028237512, 0.2190651862787 Part.EditSketch Part.ViewZoomTo2 -0.211349, -0.200734, 1.3689e-015, -0.0690947, -0.283334, 1.94569e-015 Part.ViewDisplayWireframe Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Vehicle" Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.ActivateDoc ("10-100701 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100701 - Sheet1" Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-110707 - Sheet1" Set Part = swApp.ActivateDoc ("10-110705 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-110705 - Sheet1" Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-110706 - Sheet1" Set Part = swApp.ActivateDoc ("10-110710 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-110710 - Sheet1" Set Part = swApp.ActivateDoc ("10-110711 - Sheet1") Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-110711 - Sheet1" Set Part = swApp.ActivateDoc ("10-110712 - Sheet1") Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "10-110712 - Sheet1" Set Part = swApp.ActivateDoc ("10-110713 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-110713 - Sheet1" Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100705 - Sheet1" Set Part = swApp.ActivateDoc ("10-100706 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100706 - Sheet1" Set Part = swApp.ActivateDoc ("10-100704 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100704 - Sheet1" Set Part = swApp.ActivateDoc ("10-100703 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100703 - Sheet1" Set Part = swApp.ActivateDoc ("10-100702 - Sheet1") Set Part = Nothing swApp.CloseDoc "10-100702 - Sheet1" Set Part = swApp.OpenDoc ("E:\Users\Sam\Projects\ALTEX\models\Shell\Shell_Bottom_Parallel.SLDPRT", 1) Set Part = swApp.ActivateDoc ("Shell_Bottom_Parallel") swApp.ExitApp End Sub