' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/05/01 by grma
' ******************************************************************************

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 = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc3 ("H:\Mark-2000\Projects 2000\Mbari Vetrical Profiler\Profilier-1.SLDASM", 2, 0, 0, 0, 0, longstatus)
' MSGBOX
' Unable to locate the file J:\Part Library\Hydraulic\Swagelok\SS-400-1-4ST.SLDPRT.  Would you like to find it yourself?

Set Part = swApp.ActivateDoc ("Profilier-1.SLDASM")
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.00447636, 0
Part.ActiveView().RotateAboutCenter -0.313345, -0.0112382
Part.ActiveView().RotateAboutCenter -0.0626691, -0.0224764
Part.ActiveView().RotateAboutCenter -0.134291, -0.0337147
Part.ActiveView().RotateAboutCenter -0.0268582, -0.0337147
Part.ActiveView().RotateAboutCenter -0.00447636, -0.213526
Part.ActiveView().RotateAboutCenter 0.0179055, -0.477624
Part.ActiveView().RotateAboutCenter 0.0537164, -0.415814
Part.ActiveView().RotateAboutCenter 0.00447636, -0.219145
Part.ActiveView().RotateAboutCenter 0.00447636, -0.0899057
Part.ActiveView().RotateAboutCenter 0, -0.00561911
Part.ActiveView().RotateAboutCenter 0, -0.00561911
Part.ActiveView().RotateAboutCenter -0.00447636, 0.00561911
Part.ActiveView().RotateAboutCenter -0.0537164, 0.0786675
Part.ActiveView().RotateAboutCenter -0.120862, 0.269717
Part.ActiveView().RotateAboutCenter -0.0581927, 0.157335
Part.ActiveView().RotateAboutCenter 0.111909, 0.236003
Part.ActiveView().RotateAboutCenter 0.228294, 0.348385
Part.ActiveView().RotateAboutCenter 0.416302, 0.539434
Part.ActiveView().RotateAboutCenter 0.223818, 0.258479
Part.ActiveView().RotateAboutCenter 0.358109, 0.275336
Part.ActiveView().RotateAboutCenter 0.0716218, 0.342766
Part.ActiveView().RotateAboutCenter -0.0895273, 0.12362
Part.ActiveView().RotateAboutCenter -0.14772, 0.0730484
Part.ActiveView().RotateAboutCenter -0.179055, -0.325908
Part.ActiveView().RotateAboutCenter -0.335727, -1.08449
Part.ActiveView().RotateAboutCenter -0.19696, -0.826009
Part.ActiveView().RotateAboutCenter -0.0716218, -0.303432
Part.ActiveView().RotateAboutCenter 0, -0.162954
Part.ActiveView().RotateAboutCenter 0.0268582, -0.12362
Part.ActiveView().RotateAboutCenter 0, -0.00561911
Part.ActiveView().RotateAboutCenter 0, -0.0168573
Part.ActiveView().RotateAboutCenter 0.0179055, -0.0168573
Part.ActiveView().RotateAboutCenter 0.0626691, -0.219145
Part.ActiveView().RotateAboutCenter 0.161149, -0.0955248
Part.ActiveView().RotateAboutCenter 0.367062, 0.0280955
Part.ActiveView().RotateAboutCenter 0.183531, 0.342766
Part.ActiveView().RotateAboutCenter -0.00447636, 0.472005
Part.ActiveView().RotateAboutCenter -0.156673, 0.146097
Part.ActiveView().RotateAboutCenter -0.107433, 0.297813
Part.ActiveView().RotateAboutCenter 0, 0.146097
Part.ActiveView().RotateAboutCenter -0.0805745, 0.134859
Part.ActiveView().RotateAboutCenter -0.134291, 0.398957
Part.ActiveView().RotateAboutCenter -0.00447636, -0.0168573
Part.ActiveView().RotateAboutCenter 0.0671454, -0.988963
Part.ActiveView().RotateAboutCenter 0.326774, -0.651817
Part.ActiveView().RotateAboutCenter 0.452113, -0.286575
Part.ActiveView().RotateAboutCenter 0.34468, 0.179811
Part.ActiveView().RotateAboutCenter 0.0447636, 0.528196
Part.ActiveView().RotateAboutCenter -0.349156, 0.516958
Part.ActiveView().RotateAboutCenter -0.461065, 0.0449529
Part.ActiveView().RotateAboutCenter -0.0805745, 0.0561911
Part.ActiveView().RotateAboutCenter 0, 0.00561911
Part.ActiveView().RotateAboutCenter 0.00447636, 0
Part.ActiveView().RotateAboutCenter 0.0671454, -0.0449529
Part.ActiveView().RotateAboutCenter 0.0358109, -0.0449529
Part.ActiveView().RotateAboutCenter 0.0537164, -0.00561911
Part.ActiveView().RotateAboutCenter 0.456589, 0.342766
Part.ActiveView().RotateAboutCenter 0.407349, 0.634959
Part.ActiveView().RotateAboutCenter 0.241724, 0.264098
Part.ActiveView().RotateAboutCenter 0.134291, -0.0786675
Part.ActiveView().RotateAboutCenter 0.0581927, -0.157335
Part.ActiveView().RotateAboutCenter 0.00895273, -0.202288
Part.ActiveView().RotateAboutCenter 0.0268582, -0.12924
Part.ActiveView().RotateAboutCenter 0.00447636, -0.0337147
Part.ActiveView().RotateAboutCenter 0.0895273, -0.0561911
Part.ActiveView().RotateAboutCenter 0.14772, 0.00561911
Part.ActiveView().RotateAboutCenter 0.134291, 0.0674293
Part.ActiveView().RotateAboutCenter 0, 0.101144
Part.ActiveView().RotateAboutCenter 0, 0.0112382
Part.ActiveView().RotateAboutCenter 0, 0.0561911
Part.ActiveView().RotateAboutCenter -0.0268582, 0.12362
Part.ActiveView().RotateAboutCenter -0.0313345, 0.12924
Part.ActiveView().RotateAboutCenter -0.0134291, 0.0561911
Part.ActiveView().RotateAboutCenter 0, 0.0337147
Part.ActiveView().RotateAboutCenter -0.00895273, 0.0561911
Part.ActiveView().RotateAboutCenter 0, 0.00561911
Part.ActiveView().RotateAboutCenter -0.0223818, 0.118001
Part.ActiveView().RotateAboutCenter -0.00895273, 0.0449529
Part.ActiveView().RotateAboutCenter 0, 0.00561911
Part.PrintPreview
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintDirect
Part.PrintDirect
Part.ActiveView().RotateAboutCenter 0, -0.00561911
Part.ActiveView().RotateAboutCenter -0.192484, -0.398957
Part.ActiveView().RotateAboutCenter 0.04924, -0.309051
Part.ActiveView().RotateAboutCenter 0.0940036, -0.12362
Part.ActiveView().RotateAboutCenter 0.447636, -0.0955248
Part.ActiveView().RotateAboutCenter 0.268582, 0.258479
Part.ActiveView().RotateAboutCenter 0, 0.269717
Part.ActiveView().RotateAboutCenter -0.478971, 0.151716
Part.ActiveView().RotateAboutCenter -0.407349, 0.174192
Part.ActiveView().RotateAboutCenter -0.273058, -0.151716
Part.ActiveView().RotateAboutCenter 0.0402873, -0.387719
Part.ActiveView().RotateAboutCenter 0.174578, -0.320289
Part.ActiveView().RotateAboutCenter 0.120862, -0.185431
Part.ActiveView().RotateAboutCenter 0.14772, -0.0561911
Part.ActiveView().RotateAboutCenter 0.170102, 0.494482
Part.ActiveView().RotateAboutCenter -0.174578, 0.280955
Part.ActiveView().RotateAboutCenter -0.102956, 0.0842866
Part.ActiveView().RotateAboutCenter 0.152196, -0.0955248
Part.ActiveView().RotateAboutCenter 0.0671454, -0.118001
Part.ActiveView().RotateAboutCenter -0.0895273, -0.050572
Part.ActiveView().RotateAboutCenter -0.170102, -0.118001
Part.ActiveView().RotateAboutCenter -0.00447636, -0.0730484
Part.ActiveView().RotateAboutCenter 0.0895273, -0.247241
Part.ActiveView().RotateAboutCenter 0.425254, 0.162954
Part.ActiveView().RotateAboutCenter 0.165625, 0.516958
Part.ActiveView().RotateAboutCenter 0.152196, 0.679912
Part.ActiveView().RotateAboutCenter 0.299916, 0.258479
Part.ActiveView().RotateAboutCenter 0.438684, -0.118001
Part.ActiveView().RotateAboutCenter 0.0358109, -0.320289
Part.ActiveView().RotateAboutCenter 0.0447636, -0.455148
Part.ActiveView().RotateAboutCenter 0.0268582, -0.174192
Part.ActiveView().RotateAboutCenter 0.0179055, -0.247241
Part.ActiveView().RotateAboutCenter 0.00895273, -0.0337147
Part.ActiveView().RotateAboutCenter -0.00447636, 0.0337147
Part.ActiveView().RotateAboutCenter -0.00447636, 0.157335
Part.ActiveView().RotateAboutCenter -0.0537164, 0.0561911
Part.ActiveView().RotateAboutCenter -0.165625, 0.0449529
Part.ActiveView().RotateAboutCenter -0.183531, 0.0168573
Part.ActiveView().RotateAboutCenter -0.0134291, 0
Part.ActiveView().RotateAboutCenter 0.00447636, -0.12924
Part.ActiveView().RotateAboutCenter 0.0268582, -0.162954
Part.ActiveView().RotateAboutCenter 0.04924, -0.207907
Part.ActiveView().RotateAboutCenter 0.165625, -0.050572
Part.ActiveView().RotateAboutCenter 0.232771, 0.196669
Part.ActiveView().RotateAboutCenter 0.0581927, 0.264098
Part.ActiveView().RotateAboutCenter -0.232771, 0.247241
Part.ActiveView().RotateAboutCenter -0.138767, -0.157335
Part.ActiveView().RotateAboutCenter -0.116385, -0.106763
Part.ActiveView().RotateAboutCenter -0.165625, -0.202288
Part.ActiveView().RotateAboutCenter -0.00447636, -0.0168573
Part.ActiveView().RotateAboutCenter -0.214865, -0.0561911
Part.ActiveView().RotateAboutCenter -0.514782, -0.0280955
Part.ActiveView().RotateAboutCenter -0.290964, 0.0112382
Part.ActiveView().RotateAboutCenter -0.0402873, -0.134859
Part.ActiveView().RotateAboutCenter 0.0537164, -0.31467
Part.ActiveView().RotateAboutCenter 0.308869, -0.241622
Part.ActiveView().RotateAboutCenter 0.59088, 0.0899057
Part.ActiveView().RotateAboutCenter 0.29544, 0.303432
Part.ActiveView().RotateAboutCenter 0.0313345, 0.146097
Part.ActiveView().RotateAboutCenter -0.120862, 0.269717
Part.ActiveView().RotateAboutCenter -0.0223818, 0.0449529
Part.ActiveView().RotateAboutCenter 0, -0.0112382
Part.ActiveView().RotateAboutCenter 0.129815, -0.207907
Part.ActiveView().RotateAboutCenter 0.0850509, -0.118001
Part.ActiveView().RotateAboutCenter 0.04924, -0.050572
Part.ActiveView().RotateAboutCenter 0.0223818, -0.00561911
Part.ActiveView().RotateAboutCenter 0.00447636, -0.00561911
Part.ShowNamedView2 "*Front", 1
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.ClearSelection
Part.SelectByID "", "VERTEX", -0.07701230296897, 0.4626092592593, 0.02414075116615
Part.AndSelectByID "", "VERTEX", -0.06760823679352, -1.141476, -0.01755416809966
Part.AddDimension -0.819193, -0.427216, 1.45358e-016
Part.ClearSelection
Part.SelectByID "", "VERTEX", -0.2609906604211, 0.10795, 0.05488866160663
Part.AndSelectByID "", "EDGE", 0.2708165236845, 0.01181531375936, 0
Part.SetPickMode
Part.ClearSelection
Part.EditUndo 1
Part.SelectByID "DetailItem1@Annotations", "NOTE", -0.09251985750012, 0.01560006773003, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.ClearSelection
Part.EditRebuild
Part.SelectByID "", "VERTEX", -0.07701230296897, 0.4626092592593, 0.02414075116615
Part.AndSelectByID "", "VERTEX", -0.07917803725744, -1.141476, -0.02335253553813
Part.AddDimension -0.841901, -0.449925, 3.03931e-016
Part.ClearSelection
Part.SelectByID "", "VERTEX", -0.2609906604211, 0.10795, 0.05488866160663
Part.AndSelectByID "", "EDGE", 0.2670317697138, 0.1102189169969, 0
Part.AddDimension 0.172413, 0.674147, -7.54543e-015
Part.ClearSelection
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "DetailItem1@Annotations", "NOTE", 0.600090119133, 0.2616090758238, 0
Part.SelectByID "DetailItem1@Annotations", "NOTE", 0.5925206111917, 0.3070261234718, 0
Part.EditDelete
Part.SelectByID "DetailItem1@Annotations", "NOTE", 0.762834539872, -0.5066959802228, 0
Part.EditDelete
Part.SelectByID "DetailItem1@Annotations", "NOTE", 0.762834539872, -0.5937453215483, 0
Part.EditDelete
Part.SelectByID "DetailItem1@Annotations", "NOTE", 0.7666192938426, -0.6240233533137, 0
Part.EditDelete
' MSGBOX
' There are parts that have features defined in the context of H:\Mark-2000\Projects 2000\Mbari Vetrical Profiler\Profilier-1.SLDASM.  If you select  OK to continue this operation,  these features will not update in the context of the newly saved assembly . It is highly recommended that you consider saving new versions of these parts now which will update in the context of this newly saved assembly.  To do this,  select Cancel,  select References from the Save As dialog box, then input new names for those parts that you want to update in the new assembly.

Part.SaveAs2 "D:\Projects\MOOS\Profiler\moos_profiler.SLDASM", 0, FALSE, FALSE
Part.SelectByID "RD1@Annotations", "DIMENSION", 0.03616177750276, 0.4129992346507, 0
Part.EditDelete
Part.SelectByID "RD2@Annotations", "DIMENSION", 0.02102276162006, 0.3600126790613, 0
Part.EditDelete
Part.SelectByID "RD1@Annotations", "DIMENSION", 0.03616177750276, -0.5521130278709, 0
Part.SelectByID "RD1@Annotations", "DIMENSION", 0.0437312854441, -0.4385704087507, 0
Part.EditDelete
Part.PrintDirect
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub