' ****************************************************************************** ' swxJRNL.swj - journal recorded on 05/17/00 by gashler ' ****************************************************************************** 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 ("C:\Altex\altex_jbox\11010601.SLDDRW", 3) Set Part = swApp.ActivateDoc ("11010601 - Sheet1") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameWidth = 900 swApp.ActiveDoc.ActiveView.FrameHeight = 561 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.ViewZoomTo2 0.0504205, 0.370989, -4.78933e-015, 0.242183, 0.112418, -2.98374e-015 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0643576, 0.414871, -5.63968e-015, 0.211582, 0.0622749, -3.17752e-015 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomTo2 0.679017, 0.282183, -5.87298e-015, 0.779, 0.226873, -5.48675e-015 Part.EditSketch Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.5 Part.ActiveView().ZoomByFactor 0.5 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.1 Part.ActiveView().ZoomByFactor 1.04 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 Set Part = swApp.OpenDoc ("C:\Altex\altex_jbox\11010602.SLDDRW", 3) Set Part = swApp.ActivateDoc ("11010602 - Sheet1") Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameWidth = 900 swApp.ActiveDoc.ActiveView.FrameHeight = 561 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.214056, 0.513846, -8.1471e-015, 0.508505, 0.403737, -7.37821e-015 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.178178, 0.220634, -7.22771e-015, 0.470153, 0.14764, -6.718e-015 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.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.12 Part.ActiveView().ZoomByFactor 1.1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.09 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.787402 Part.ActiveView().ZoomByFactor 0.561798 Part.ActiveView().ZoomByFactor 0.763359 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.819672 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.900901 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.724638 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.45 Part.ActiveView().ZoomByFactor 1.39 Part.ActiveView().ZoomByFactor 1.43 Part.ActiveView().ZoomByFactor 1.28 Part.ActiveView().ZoomByFactor 1.01 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.35 Part.ActiveView().ZoomByFactor 1.13 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.943396 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.OpenDoc ("C:\Altex\altex_jbox\11010602.SLDDRW", 3) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("11010602 - Sheet1") Part.EditSketch Set Part = swApp.OpenDoc ("C:\Altex\altex_jbox\JboxAft.SLDASM", 2) Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("JboxAft") swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "FACE", 0.07447055601546, 0.1179948464519, 0 Part.SelectByID "", "FACE", 0.07810780593663, 0.1494423058768, 0 Part.ActiveView().RotateAboutCenter 0, -0.0109014 Part.ActiveView().RotateAboutCenter 0.0088609, -0.201676 Part.ActiveView().RotateAboutCenter 0.0398741, -0.174423 Part.ActiveView().RotateAboutCenter 0.0797481, -0.119916 Part.ActiveView().RotateAboutCenter 0.0531654, -0.147169 Part.ActiveView().RotateAboutCenter -0.00443045, -0.114465 Part.ActiveView().RotateAboutCenter -0.0753177, -0.0109014 Part.ActiveView().RotateAboutCenter -0.0398741, -0.0817607 Part.ActiveView().RotateAboutCenter -0.0221523, -0.0981128 Part.ActiveView().RotateAboutCenter -0.00443045, -0.0109014 Part.ActiveView().RotateAboutCenter -0.00443045, 0 Part.ActiveView().RotateAboutCenter 0, -0.00545071 Part.ActiveView().RotateAboutCenter 0.0265827, -0.327043 Part.ActiveView().RotateAboutCenter 0.0088609, -0.185324 Part.ActiveView().RotateAboutCenter 0, -0.0545071 Part.ActiveView().RotateAboutCenter 0, -0.119916 Part.ActiveView().RotateAboutCenter -0.00443045, -0.0490564 Part.ActiveView().RotateAboutCenter -0.0132914, -0.0817607 Part.ActiveView().RotateAboutCenter -0.0354436, -0.141719 Part.ActiveView().RotateAboutCenter -0.0354436, -0.15262 Part.ActiveView().RotateAboutCenter 0, -0.0654086 Part.ActiveView().RotateAboutCenter 0.0088609, 0.00545071 Part.ActiveView().RotateAboutCenter 0.048735, 0.261634 Part.ActiveView().RotateAboutCenter -0.0310132, 0.239831 Part.ActiveView().RotateAboutCenter 0.0177218, 0.207127 Part.ActiveView().RotateAboutCenter 0.0310132, 0.22893 Part.ActiveView().RotateAboutCenter 0, 0.038155 Part.ActiveView().RotateAboutCenter 0.00443045, 0.0436057 Part.ActiveView().RotateAboutCenter 0.048735, 0.103564 Part.ActiveView().RotateAboutCenter 0.0221523, 0.0490564 Part.ActiveView().RotateAboutCenter 0.110761, 0.218029 Part.ActiveView().RotateAboutCenter 0.141774, 0.190775 Part.ActiveView().RotateAboutCenter 0.119622, 0.174423 Part.ActiveView().RotateAboutCenter 0.00443045, 0.0109014 Part.ActiveView().RotateAboutCenter -0.0177218, 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection swApp.ExitApp End Sub