' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/15/03 by mob
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc4 ("I:\Vault\600024-Dorado\Dorado Tailcone\altex\drawings\ductprop\altex-prop-1.0.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("altex-prop-1.0.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00453426, 0
Part.ActiveView().RotateAboutCenter 0.0498768, -0.0733779
Part.ActiveView().RotateAboutCenter 0.0498768, -0.0667072
Part.ActiveView().RotateAboutCenter 0.176836, -0.193451
Part.ActiveView().RotateAboutCenter 0.0770824, -0.0667072
Part.ActiveView().RotateAboutCenter 0.108822, -0.0867194
Part.ActiveView().RotateAboutCenter 0.126959, -0.0933901
Part.ActiveView().RotateAboutCenter 0.108822, -0.0800487
Part.ActiveView().RotateAboutCenter 0.0136028, -0.0133414
Part.ActiveView().RotateAboutCenter 0.104288, -0.100061
Part.ActiveView().RotateAboutCenter 0.0453426, -0.0333536
Part.ActiveView().RotateAboutCenter 0.0544111, -0.0333536
Part.ActiveView().RotateAboutCenter 0.0589453, -0.0333536
Part.ActiveView().RotateAboutCenter 0.00906851, 0
Part.ActiveView().RotateAboutCenter 0.00453426, 0
Part.ActiveView().RotateAboutCenter 0.018137, 0
Part.ActiveView().RotateAboutCenter 0.0680139, 0.0266829
Part.ActiveView().RotateAboutCenter 0.0362741, 0.00667072
Part.ActiveView().RotateAboutCenter 0.00453426, 0.00667072
Part.ActiveView().RotateAboutCenter 0.0136028, 0.00667072
Part.ActiveView().RotateAboutCenter 0.0226713, 0.0266829
Part.ActiveView().RotateAboutCenter 0.00453426, 0.0466951
Part.ActiveView().RotateAboutCenter 0, 0.0200122
Part.ActiveView().RotateAboutCenter 0.00906851, 0.0333536
Part.ActiveView().RotateAboutCenter 0.00906851, 0.0400243
Part.ActiveView().RotateAboutCenter 0, 0.0133414
Part.ActiveView().RotateAboutCenter 0, 0.00667072
Part.ActiveView().RotateAboutCenter -0.018137, 0.0266829
Part.ActiveView().RotateAboutCenter -0.0544111, 0.0466951
Part.ActiveView().RotateAboutCenter -0.0952194, 0.0533658
Part.ActiveView().RotateAboutCenter -0.136028, 0.0533658
Part.ActiveView().RotateAboutCenter -0.113356, 0.0333536
Part.ActiveView().RotateAboutCenter -0.126959, 0.0266829
Part.ActiveView().RotateAboutCenter -0.117891, 0.0200122
Part.ActiveView().RotateAboutCenter -0.131493, 0.0400243
Part.ActiveView().RotateAboutCenter -0.117891, 0.0667072
Part.ActiveView().RotateAboutCenter -0.0997537, 0.0867194
Part.ActiveView().RotateAboutCenter -0.0952194, 0.126744
Part.ActiveView().RotateAboutCenter -0.0498768, 0.0867194
Part.ActiveView().RotateAboutCenter 0.108822, 0.120073
Part.ActiveView().RotateAboutCenter 0.163233, 0.146756
Part.ActiveView().RotateAboutCenter 0.0362741, 0
Part.ActiveView().RotateAboutCenter 0.0680139, 0
Part.ActiveView().RotateAboutCenter 0.122425, 0
Part.ActiveView().RotateAboutCenter 0.0634796, 0
Part.ActiveView().RotateAboutCenter 0.0226713, 0
Part.ActiveView().RotateAboutCenter 0, -0.0133414
boolstatus = Part.Extension.SelectByID("", "FACE", -0.09133604511564, -0.0005048935810805, -0.04405171602303, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0107938081408, 0.001181217629778, 0.1334951740049, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Base-Loft", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.00667072
Part.ActiveView().RotateAboutCenter 0.0426552, -0.00667072
Part.ActiveView().RotateAboutCenter 0.0947894, -0.00667072
Part.ActiveView().RotateAboutCenter 0.113747, -0.0133414
Part.ActiveView().RotateAboutCenter 0.0521342, -0.00667072
Part.ActiveView().RotateAboutCenter 0.0236974, -0.00667072
Part.ActiveView().RotateAboutCenter 0.0758315, -0.0200122
Part.ActiveView().RotateAboutCenter 0.0379158, 0
Part.ActiveView().RotateAboutCenter 0.0284368, 0
Part.ActiveView().RotateAboutCenter 0.00947894, 0
Part.ActiveView().RotateAboutCenter 0.00947894, -0.00667072
Part.ActiveView().RotateAboutCenter 0.0331763, -0.00667072
Part.ActiveView().RotateAboutCenter 0.00473947, 0
Part.ActiveView().RotateAboutCenter 0.00473947, -0.00667072
Part.ActiveView().RotateAboutCenter 0.00947894, 0
Part.ActiveView().RotateAboutCenter 0.0947894, -0.0466951
Part.ActiveView().RotateAboutCenter 0.080571, -0.0266829
Part.ActiveView().RotateAboutCenter 0.0189579, 0
Part.ActiveView().RotateAboutCenter 0.0142184, -0.00667072
Part.ActiveView().RotateAboutCenter 0.00473947, 0
Part.ActiveView().RotateAboutCenter 0.0995289, -0.0400243
Part.ActiveView().RotateAboutCenter 0.0473947, -0.0133414
Part.ActiveView().RotateAboutCenter 0, -0.00667072
Part.ActiveView().RotateAboutCenter 0.0426552, -0.0200122
Part.ActiveView().RotateAboutCenter 0.0379158, -0.0266829
Part.ActiveView().RotateAboutCenter 0, -0.00667072
Part.ActiveView().RotateAboutCenter -0.0473947, -0.126744
Part.ActiveView().RotateAboutCenter 0, -0.0200122
Part.ActiveView().RotateAboutCenter 0, -0.00667072
Part.ActiveView().RotateAboutCenter 0, -0.120073
Part.ActiveView().RotateAboutCenter 0, -0.0466951
Part.ActiveView().RotateAboutCenter 0, -0.00667072
Part.ActiveView().RotateAboutCenter 0.0189579, -0.420256
Part.ActiveView().RotateAboutCenter 0.00947894, -0.0800487
Part.ActiveView().RotateAboutCenter 0.0142184, -0.133414
Part.ActiveView().RotateAboutCenter 0.00947894, -0.0800487
Part.ActiveView().RotateAboutCenter -0.0189579, 0.00667072
Part.ActiveView().RotateAboutCenter -0.104268, 0
Part.ActiveView().RotateAboutCenter -0.0616131, 0
Part.ActiveView().RotateAboutCenter -0.0426552, 0
Part.ActiveView().RotateAboutCenter -0.0189579, 0
Part.ActiveView().RotateAboutCenter -0.00947894, -0.00667072
Part.ActiveView().RotateAboutCenter -0.00947894, 0.0133414
Part.ActiveView().RotateAboutCenter -0.0284368, 0.0800487
Part.ActiveView().RotateAboutCenter -0.00473947, 0.0133414
Part.ActiveView().RotateAboutCenter -0.0189579, 0.0266829
Part.ActiveView().RotateAboutCenter -0.0426552, 0.0800487
Part.ActiveView().RotateAboutCenter -0.0331763, 0.0867194
Part.ActiveView().RotateAboutCenter -0.080571, 0.0867194
Part.ActiveView().RotateAboutCenter -0.113747, 0.100061
Part.ActiveView().RotateAboutCenter -0.0568737, 0.0266829
Part.ActiveView().RotateAboutCenter -0.080571, 0.0266829
Part.ActiveView().RotateAboutCenter -0.00473947, 0
Part.ActiveView().RotateAboutCenter -0.00473947, 0
Part.ActiveView().RotateAboutCenter 0.0189579, 0.0200122
Part.ActiveView().RotateAboutCenter 0.1801, 0.146756
Part.ActiveView().RotateAboutCenter 0.0616131, 0.0733779
Part.ActiveView().RotateAboutCenter 0.0473947, 0.153427
Part.ActiveView().RotateAboutCenter 0.0426552, 0.153427
Part.ActiveView().RotateAboutCenter 0.113747, 0.100061
Part.ActiveView().RotateAboutCenter 0.0710921, 0.0533658
Part.ActiveView().RotateAboutCenter 0.0947894, 0.0333536
Part.ActiveView().RotateAboutCenter 0.127966, 0.0200122
Part.ActiveView().RotateAboutCenter 0.132705, 0
Part.ActiveView().RotateAboutCenter 0.0758315, 0.0333536
Part.ActiveView().RotateAboutCenter 0.0379158, 0.0200122
Part.ActiveView().RotateAboutCenter 0.00473947, 0.00667072
Part.ActiveView().RotateAboutCenter 0.0331763, 0.0133414
Part.ActiveView().RotateAboutCenter 0.0379158, 0.00667072
Part.ActiveView().RotateAboutCenter 0.0142184, 0
Part.ActiveView().RotateAboutCenter 0.0142184, 0
Part.ActiveView().RotateAboutCenter -0.00473947, 0
Part.ActiveView().RotateAboutCenter -0.109008, -0.0200122
Part.ActiveView().RotateAboutCenter -0.132705, -0.0200122
Part.ActiveView().RotateAboutCenter -0.246453, -0.0400243
Part.ActiveView().RotateAboutCenter -0.208537, -0.0533658
Part.ActiveView().RotateAboutCenter -0.137445, -0.0200122
Part.ActiveView().RotateAboutCenter -0.137445, 0
Part.ActiveView().RotateAboutCenter -0.123226, 0
Part.ActiveView().RotateAboutCenter -0.0568737, 0
boolstatus = Part.Extension.SelectByID("", "FACE", -0.08389125261655, -0.003985564617551, -0.04702849825043, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Base-Loft", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Base-Loft", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Curve1", "REFERENCECURVES", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Curve1", "REFERENCECURVES", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Curve6", "REFERENCECURVES", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Curve6", "REFERENCECURVES", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
' MSGBOX
' Highlight the whole row.

Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.00667072
Part.ActiveView().RotateAboutCenter -0.137445, -0.0867194
Part.ActiveView().RotateAboutCenter -0.184839, -0.126744
Part.ActiveView().RotateAboutCenter -0.0758315, -0.0466951
Part.ActiveView().RotateAboutCenter -0.0758315, -0.0466951
Part.ActiveView().RotateAboutCenter -0.00947894, -0.00667072
Part.ActiveView().RotateAboutCenter -0.0284368, -0.0133414
Part.ActiveView().RotateAboutCenter -0.00947894, -0.0133414
Part.ActiveView().RotateAboutCenter -0.00473947, -0.00667072
Part.ActiveView().RotateAboutCenter 0, -0.00667072
Part.ActiveView().RotateAboutCenter 0, -0.0133414
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "altex-prop-1.0.SLDPRT"
swApp.ExitApp
End Sub