' ****************************************************************************** ' swxJRNL.swj - journal recorded on 06/22/04 by fejo ' ***************************************************************************** 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 ("X:\200126 canyon dynamics\Canyon Dynamics_2001\rin-bin\rin_V7.SLDASM", 2, 0, "", longstatus, longwarnings) ' MSGBOX ' The internal ID of document X:\200126 canyon dynamics\Canyon Dynamics_2001\rin-bin\batteryPack\basePlate.SLDPRT does not match the internal ID saved with the referencing document. Select YES to accept this document anyway. Select NO to browse for a replacement model. Set Part = swApp.ActivateDoc ("rin_V7.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0.0129107 Part.ActiveView().RotateAboutCenter -0.0095683, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0239208, 0 Part.ActiveView().RotateAboutCenter -0.0430574, 0 Part.ActiveView().RotateAboutCenter -0.0382732, -0.0129107 Part.ActiveView().RotateAboutCenter -0.0287049, -0.00645533 Part.ActiveView().RotateAboutCenter -0.0287049, -0.019366 Part.ActiveView().RotateAboutCenter -0.0526257, -0.019366 Part.ActiveView().RotateAboutCenter -0.0287049, 0 Part.ActiveView().RotateAboutCenter -0.0143525, 0 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.0095683, 0.019366 Part.ActiveView().RotateAboutCenter -0.0334891, 0.038732 Part.ActiveView().RotateAboutCenter -0.0287049, 0.0258213 Part.ActiveView().RotateAboutCenter -0.0239208, 0.019366 Part.ActiveView().RotateAboutCenter -0.0334891, 0.019366 Part.ActiveView().RotateAboutCenter -0.0430574, 0.0322766 Part.ActiveView().RotateAboutCenter -0.00478415, 0.00645533 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter 0.0430574, 0 Part.ActiveView().RotateAboutCenter 0.100467, 0 Part.ActiveView().RotateAboutCenter 0.133956, -0.00645533 Part.ActiveView().RotateAboutCenter 0.100467, -0.0129107 Part.ActiveView().RotateAboutCenter 0.0478415, -0.00645533 Part.ActiveView().RotateAboutCenter 0.062194, -0.038732 Part.ActiveView().RotateAboutCenter 0.11482, -0.0839193 Part.ActiveView().RotateAboutCenter 0.0908989, -0.0645533 Part.ActiveView().RotateAboutCenter 0.0669781, -0.019366 Part.ActiveView().RotateAboutCenter 0.0669781, -0.0322766 Part.ActiveView().RotateAboutCenter 0.0574098, -0.019366 Part.ActiveView().RotateAboutCenter 0.0669781, -0.0258213 Part.ActiveView().RotateAboutCenter 0.0908989, -0.0516426 Part.ActiveView().RotateAboutCenter 0.0908989, -0.0645533 Part.ActiveView().RotateAboutCenter 0.157877, -0.135562 Part.ActiveView().RotateAboutCenter 0.0574098, -0.0968299 Part.ActiveView().RotateAboutCenter 0.00478415, 0 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.0516426 Part.ActiveView().RotateAboutCenter -0.0095683, -0.0903746 Part.ActiveView().RotateAboutCenter -0.0143525, -0.129107 Part.ActiveView().RotateAboutCenter -0.00478415, -0.0710086 Part.ActiveView().RotateAboutCenter 0.0095683, -0.109741 Part.ActiveView().RotateAboutCenter 0.0095683, -0.135562 Part.ActiveView().RotateAboutCenter 0, -0.187204 Part.ActiveView().RotateAboutCenter 0.0239208, -0.0903746 Part.ActiveView().RotateAboutCenter 0.0430574, -0.0516426 Part.ActiveView().RotateAboutCenter 0.0908989, -0.0580979 Part.ActiveView().RotateAboutCenter 0.100467, -0.0322766 Part.ActiveView().RotateAboutCenter 0.095683, 0 Part.ActiveView().RotateAboutCenter 0.0717623, 0.019366 Part.ActiveView().RotateAboutCenter 0.0430574, 0.0580979 Part.ActiveView().RotateAboutCenter 0, 0.103285 Part.ActiveView().RotateAboutCenter 0, 0.038732 Part.ActiveView().RotateAboutCenter -0.0143525, -0.0129107 Part.ActiveView().RotateAboutCenter -0.0526257, -0.019366 Part.ActiveView().RotateAboutCenter -0.177014, -0.038732 Part.ActiveView().RotateAboutCenter -0.210503, -0.0839193 Part.ActiveView().RotateAboutCenter -0.330106, -0.161383 Part.ActiveView().RotateAboutCenter -0.243992, -0.296945 Part.ActiveView().RotateAboutCenter -0.105251, -0.48415 Part.ActiveView().RotateAboutCenter 0.095683, -0.38732 Part.ActiveView().RotateAboutCenter 0.62194, -0.471239 Part.ActiveView().RotateAboutCenter 0.468847, -0.0774639 Part.ActiveView().RotateAboutCenter 0.306186, 0.0322766 Part.ActiveView().RotateAboutCenter 0.110035, 0.0258213 Part.ActiveView().RotateAboutCenter 0.0765464, 0.0129107 Part.ActiveView().RotateAboutCenter 0.0717623, 0.0322766 Part.ActiveView().RotateAboutCenter 0.0861147, 0.0258213 Part.ActiveView().RotateAboutCenter 0.0765464, 0.0129107 Part.ActiveView().RotateAboutCenter 0.0526257, 0 Part.ActiveView().RotateAboutCenter 0.00478415, 0 Part.ActiveView().RotateAboutCenter 0, -0.019366 Part.ActiveView().RotateAboutCenter -0.0239208, -0.103285 Part.ActiveView().RotateAboutCenter -0.0478415, -0.142017 Part.ActiveView().RotateAboutCenter -0.0143525, -0.116196 Part.ActiveView().RotateAboutCenter -0.0095683, -0.0258213 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter -0.0095683, -0.0451873 Part.ActiveView().RotateAboutCenter -0.0239208, -0.109741 Part.ActiveView().RotateAboutCenter -0.00478415, -0.0129107 Part.ActiveView().RotateAboutCenter -0.0095683, 0 Part.ActiveView().RotateAboutCenter -0.0861147, -0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.0239208, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0143525, 0 Part.ActiveView().RotateAboutCenter -0.0095683, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0095683, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0430574, 0.0258213 Part.ActiveView().RotateAboutCenter -0.0478415, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0334891, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0143525, 0 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.0239208, -0.00645533 Part.ActiveView().RotateAboutCenter -0.0191366, -0.00645533 Part.ActiveView().RotateAboutCenter -0.0143525, 0 Part.ActiveView().RotateAboutCenter -0.0382732, -0.0129107 Part.ActiveView().RotateAboutCenter -0.0191366, -0.019366 Part.ActiveView().RotateAboutCenter -0.0191366, -0.0322766 Part.ActiveView().RotateAboutCenter -0.00478415, -0.00645533 Part.ActiveView().RotateAboutCenter -0.0239208, -0.019366 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter 0.00478415, 0 Part.ActiveView().RotateAboutCenter 0.00478415, 0.00645533 Part.ActiveView().RotateAboutCenter 0.00478415, 0.00645533 Part.ActiveView().RotateAboutCenter 0, 0.0129107 Part.ActiveView().RotateAboutCenter 0, 0.0322766 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter 0, 0.0258213 Part.ActiveView().RotateAboutCenter -0.00478415, 0.019366 Part.ActiveView().RotateAboutCenter 0, 0.0129107 Part.ActiveView().RotateAboutCenter 0, 0.0451873 Part.ActiveView().RotateAboutCenter 0.00478415, 0.0516426 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0.019366 Part.ActiveView().RotateAboutCenter 0, 0.0129107 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.0095683, 0.019366 Part.ActiveView().RotateAboutCenter -0.00478415, 0.0129107 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0.038732 Part.ActiveView().RotateAboutCenter 0, 0.0322766 Part.ActiveView().RotateAboutCenter 0, 0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.0129107 Part.ActiveView().RotateAboutCenter -0.00478415, -0.0129107 Part.ActiveView().RotateAboutCenter -0.00478415, -0.019366 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.019366 Part.ActiveView().RotateAboutCenter 0, -0.0258213 Part.ActiveView().RotateAboutCenter 0.0095683, -0.0322766 Part.ActiveView().RotateAboutCenter 0.0143525, -0.0580979 Part.ActiveView().RotateAboutCenter 0.0095683, -0.0580979 Part.ActiveView().RotateAboutCenter 0.00478415, -0.0258213 Part.ActiveView().RotateAboutCenter 0.00478415, -0.0258213 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.0129107 Part.ActiveView().RotateAboutCenter 0, -0.0258213 Part.ActiveView().RotateAboutCenter 0, -0.019366 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0.0095683, -0.00645533 Part.ActiveView().RotateAboutCenter 0.0191366, -0.019366 Part.ActiveView().RotateAboutCenter 0.0334891, -0.0258213 Part.ActiveView().RotateAboutCenter 0.0430574, -0.0322766 Part.ActiveView().RotateAboutCenter 0.0430574, -0.0129107 Part.ActiveView().RotateAboutCenter 0.0287049, -0.00645533 Part.ActiveView().RotateAboutCenter 0.0478415, 0.00645533 Part.ActiveView().RotateAboutCenter 0.0574098, 0.0129107 Part.ActiveView().RotateAboutCenter 0.0143525, 0 Part.ActiveView().RotateAboutCenter 0.0191366, -0.019366 Part.ActiveView().RotateAboutCenter 0.0382732, -0.0451873 Part.ActiveView().RotateAboutCenter 0, -0.0129107 Part.ActiveView().RotateAboutCenter 0.00478415, 0 Part.ActiveView().RotateAboutCenter 0.0095683, -0.00645533 Part.ActiveView().RotateAboutCenter 0.0143525, -0.00645533 Part.ActiveView().RotateAboutCenter 0.0191366, -0.0129107 Part.ActiveView().RotateAboutCenter 0.0334891, -0.00645533 Part.ActiveView().RotateAboutCenter -0.00478415, 0 Part.ActiveView().RotateAboutCenter -0.0574098, 0.00645533 Part.ActiveView().RotateAboutCenter -0.0478415, -0.00645533 Part.ActiveView().RotateAboutCenter -0.0765464, -0.0516426 Part.ActiveView().RotateAboutCenter -0.148309, -0.213026 Part.ActiveView().RotateAboutCenter -0.110035, -0.335677 Part.ActiveView().RotateAboutCenter -0.0717623, -0.735907 Part.ActiveView().RotateAboutCenter -0.0334891, -0.555158 Part.ActiveView().RotateAboutCenter 0, -0.200115 Part.ActiveView().RotateAboutCenter 0.00478415, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0, -0.0258213 Part.ActiveView().RotateAboutCenter 0, -0.0516426 Part.ActiveView().RotateAboutCenter 0, -0.219481 Part.ActiveView().RotateAboutCenter 0.00478415, -0.129107 Part.ActiveView().RotateAboutCenter 0.0239208, -0.0516426 Part.ActiveView().RotateAboutCenter 0.0526257, -0.0774639 Part.ActiveView().RotateAboutCenter 0.0526257, -0.0645533 Part.ActiveView().RotateAboutCenter 0.0334891, -0.0774639 Part.ActiveView().RotateAboutCenter 0.0095683, -0.0322766 Part.ActiveView().RotateAboutCenter 0.0143525, -0.0451873 Part.ActiveView().RotateAboutCenter 0.0191366, -0.0322766 Part.ActiveView().RotateAboutCenter 0.0143525, -0.00645533 Part.ActiveView().RotateAboutCenter 0.0143525, -0.019366 Part.ActiveView().RotateAboutCenter 0.00478415, 0 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().RotateAboutCenter 0.00478415, -0.019366 Part.ActiveView().RotateAboutCenter 0.00478415, -0.0258213 Part.ActiveView().RotateAboutCenter 0, -0.00645533 Part.ActiveView().TranslateBy 0.000422505, -0.000422505 Part.ActiveView().TranslateBy 0.00211252, -0.00211252 Part.ActiveView().TranslateBy 0.0122526, -0.0088726 Part.ActiveView().TranslateBy 0.0040138, -0.00359129 Part.ActiveView().TranslateBy 0.00422505, -0.00359129 Part.ActiveView().TranslateBy 0.00464755, -0.00570382 Part.ActiveView().TranslateBy 0.00422505, -0.00676008 Part.ActiveView().TranslateBy 0.000633757, -0.00084501 boolstatus = Part.Extension.SelectByID("", "FACE", 0.1563821891508, 0.2219455821636, 0.5139055, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Inst_Cage_V7_Assem-1@rin_V7/8pinWetMate.Plug-3@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Inst_Cage_V7_Assem-1@rin_V7/8PinWet MateBlkhd-1@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub