' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/09/02 by fejo
' ******************************************************************************

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.OpenDoc4 ("D:\Work In Progress\ESP-2002\Filter-Holder\Top#2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Top#2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewDisplayShaded
Part.ActiveView().RotateAboutCenter 0.00324441, 0
Part.ActiveView().RotateAboutCenter 0.0194665, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0227109, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0227109, -0.0172242
Part.ActiveView().RotateAboutCenter 0.0389329, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0583994, -0.0430604
Part.ActiveView().RotateAboutCenter 0.0843546, -0.0430604
Part.ActiveView().RotateAboutCenter 0.149243, -0.0344484
Part.ActiveView().RotateAboutCenter 0.181687, -0.0215302
Part.ActiveView().RotateAboutCenter 0.129776, 0.00861209
Part.ActiveView().RotateAboutCenter 0.123288, 0.0344484
Part.ActiveView().RotateAboutCenter 0.0486661, 0.0473665
Part.ActiveView().RotateAboutCenter 0.00324441, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0.00324441, 0.0129181
Part.ActiveView().RotateAboutCenter 0.0291997, 0.0775088
Part.ActiveView().RotateAboutCenter 0.0259553, 0.189466
Part.ActiveView().RotateAboutCenter 0.0194665, 0.16363
Part.ActiveView().RotateAboutCenter 0, 0.0301423
Part.ActiveView().RotateAboutCenter -0.0356885, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00973323, 0.00861209
Part.ActiveView().RotateAboutCenter -0.00973323, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0519105, 0.150712
Part.ActiveView().RotateAboutCenter -0.0356885, 0.129181
Part.ActiveView().RotateAboutCenter -0.00973323, 0.0473665
Part.ActiveView().RotateAboutCenter -0.0324441, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0486661, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0519105, -0.0516725
Part.ActiveView().RotateAboutCenter -0.0389329, -0.0516725
Part.ActiveView().RotateAboutCenter -0.0454217, -0.0602846
Part.ActiveView().RotateAboutCenter -0.136265, -0.137793
Part.ActiveView().RotateAboutCenter -0.116799, -0.0559786
Part.ActiveView().RotateAboutCenter -0.0843546, -0.0258363
Part.ActiveView().RotateAboutCenter -0.168709, 0.00430604
Part.ActiveView().RotateAboutCenter -0.155732, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0908434, 0.00861209
Part.ActiveView().RotateAboutCenter -0.165465, -0.0344484
Part.ActiveView().RotateAboutCenter -0.0291997, -0.0258363
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0129181
Part.ActiveView().RotateAboutCenter -0.00973323, -0.0387544
Part.ActiveView().RotateAboutCenter -0.00973323, -0.223914
Part.ActiveView().RotateAboutCenter 0.0129776, -0.344484
Part.ActiveView().RotateAboutCenter 0.0486661, -0.275587
Part.ActiveView().RotateAboutCenter 0.0291997, -0.094733
Part.ActiveView().RotateAboutCenter 0.00324441, -0.0559786
Part.ActiveView().RotateAboutCenter -0.107065, -0.176548
Part.ActiveView().RotateAboutCenter -0.0519105, -0.129181
Part.ActiveView().RotateAboutCenter -0.0259553, -0.0258363
Part.ActiveView().RotateAboutCenter -0.0356885, -0.0258363
Part.ActiveView().RotateAboutCenter -0.116799, 0.0344484
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0430604
Part.ActiveView().RotateAboutCenter -0.0421773, -0.241138
Part.ActiveView().RotateAboutCenter -0.0778658, -0.258363
Part.ActiveView().RotateAboutCenter -0.11031, -0.155018
Part.ActiveView().RotateAboutCenter -0.194665, 0
Part.ActiveView().RotateAboutCenter -0.142754, 0.0387544
Part.ActiveView().RotateAboutCenter -0.0519105, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0389329, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0389329, 0.0516725
Part.ActiveView().RotateAboutCenter -0.00324441, 0.00861209
Part.ActiveView().RotateAboutCenter 0.00324441, 0
Part.ActiveView().RotateAboutCenter 0.00973323, -0.0172242
Part.ActiveView().RotateAboutCenter -0.016222, -0.236832
Part.ActiveView().RotateAboutCenter -0.00324441, -0.16363
Part.ActiveView().RotateAboutCenter 0.016222, -0.0602846
Part.ActiveView().RotateAboutCenter 0.149243, -0.107651
Part.ActiveView().RotateAboutCenter 0.327685, -0.0688967
Part.ActiveView().RotateAboutCenter 0.00324441, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, -0.0172242
Part.ActiveView().RotateAboutCenter -0.0421773, -0.176548
Part.ActiveView().RotateAboutCenter -0.0486661, -0.275587
Part.ActiveView().RotateAboutCenter -0.0421773, -0.361708
Part.ActiveView().RotateAboutCenter -0.0454217, -0.103345
Part.ActiveView().RotateAboutCenter -0.0291997, -0.00861209
Part.ActiveView().RotateAboutCenter -0.0291997, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0324441, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0227109, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0194665, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0227109, 0.0430604
Part.ActiveView().RotateAboutCenter -0.0194665, 0.0516725
Part.ActiveView().RotateAboutCenter -0.016222, 0.120569
Part.ActiveView().RotateAboutCenter -0.00648882, 0.0215302
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter 0, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00324441, -0.0344484
Part.ActiveView().RotateAboutCenter 0.00324441, -0.142099
Part.ActiveView().RotateAboutCenter 0.016222, -0.223914
Part.ActiveView().RotateAboutCenter 0, -0.378932
Part.ActiveView().RotateAboutCenter -0.0356885, -0.167936
Part.ActiveView().RotateAboutCenter -0.142754, -0.0301423
Part.ActiveView().RotateAboutCenter -0.22062, 0.0301423
Part.ActiveView().RotateAboutCenter -0.0454217, 0.0430604
Part.ActiveView().RotateAboutCenter -0.0194665, 0.0516725
Part.ActiveView().RotateAboutCenter -0.0356885, 0.099039
Part.ActiveView().RotateAboutCenter -0.0129776, 0.0387544
Part.ActiveView().RotateAboutCenter -0.0129776, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0129776, 0.0473665
Part.ActiveView().RotateAboutCenter -0.0227109, 0.0516725
Part.ActiveView().RotateAboutCenter -0.0194665, 0.0172242
Part.ActiveView().RotateAboutCenter -0.0356885, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0291997, -0.00430604
Part.ActiveView().RotateAboutCenter -0.016222, -0.0129181
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter -0.00973323, -0.00861209
Part.ActiveView().RotateAboutCenter -0.0356885, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0291997, 0.0215302
Part.ActiveView().RotateAboutCenter -0.0194665, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0129776, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0194665, 0.0258363
Part.ActiveView().RotateAboutCenter -0.0129776, 0.0258363
Part.ActiveView().RotateAboutCenter -0.00324441, 0
Part.ActiveView().RotateAboutCenter -0.016222, 0
Part.ActiveView().RotateAboutCenter -0.0291997, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0227109, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0291997, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00973323, 0.00861209
Part.ActiveView().RotateAboutCenter 0.00648882, 0.0301423
Part.ActiveView().RotateAboutCenter 0.0356885, 0.223914
Part.ActiveView().RotateAboutCenter 0.0194665, 0.361708
Part.ActiveView().RotateAboutCenter 0, 0.0387544
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00648882, 0.0215302
Part.ActiveView().RotateAboutCenter -0.00324441, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00324441, 0.0301423
Part.ActiveView().RotateAboutCenter -0.00648882, 0.0215302
Part.ActiveView().RotateAboutCenter -0.0194665, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0194665, 0
Part.ActiveView().RotateAboutCenter -0.0227109, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0356885, 0
Part.ActiveView().RotateAboutCenter -0.0227109, -0.00861209
Part.ActiveView().RotateAboutCenter -0.016222, -0.0129181
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0.00324441, -0.0387544
Part.ActiveView().RotateAboutCenter -0.00973323, -0.310035
Part.ActiveView().RotateAboutCenter -0.00973323, -0.167936
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0387544
Part.ActiveView().RotateAboutCenter -0.0194665, -0.0430604
Part.ActiveView().RotateAboutCenter -0.00973323, -0.0129181
Part.ActiveView().RotateAboutCenter -0.00648882, 0
Part.ActiveView().RotateAboutCenter -0.016222, 0
Part.ActiveView().RotateAboutCenter -0.0227109, 0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.094733
Part.ActiveView().RotateAboutCenter 0, -0.301423
Part.ActiveView().RotateAboutCenter 0.016222, -0.249751
Part.ActiveView().RotateAboutCenter 0.016222, -0.0215302
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0559786
Part.ActiveView().RotateAboutCenter 0.0259553, -0.142099
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0645907
Part.ActiveView().RotateAboutCenter 0.00973323, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0129776, -0.0129181
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0.00324441, -0.0215302
Part.ActiveView().RotateAboutCenter 0, -0.0258363
Part.ActiveView().RotateAboutCenter 0.00324441, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00648882, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00648882, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0194665, -0.00861209
Part.ActiveView().RotateAboutCenter -0.0421773, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0551549, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0583994, 0.0602846
Part.ActiveView().RotateAboutCenter -0.0421773, 0.0473665
Part.ActiveView().RotateAboutCenter -0.0454217, 0.0645907
Part.ActiveView().RotateAboutCenter -0.0551549, 0.0775088
Part.ActiveView().RotateAboutCenter -0.0259553, 0.0215302
Part.ActiveView().RotateAboutCenter -0.016222, 0.0172242
Part.ActiveView().RotateAboutCenter -0.0227109, 0.0172242
Part.ActiveView().RotateAboutCenter -0.0583994, 0.0473665
Part.ActiveView().RotateAboutCenter -0.0519105, 0.0258363
Part.ActiveView().RotateAboutCenter -0.0389329, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0486661, 0
Part.ActiveView().RotateAboutCenter -0.0486661, 0
Part.ActiveView().RotateAboutCenter -0.0389329, 0
Part.ActiveView().RotateAboutCenter -0.0843546, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0486661, 0.00861209
Part.ActiveView().RotateAboutCenter -0.016222, 0.00861209
Part.ActiveView().RotateAboutCenter 0.00324441, 0.0215302
Part.ActiveView().RotateAboutCenter 0.0194665, 0.0387544
Part.ActiveView().RotateAboutCenter 0.0129776, 0.0172242
Part.ActiveView().RotateAboutCenter 0.0259553, 0.0430604
Part.ActiveView().RotateAboutCenter 0.016222, 0.0258363
Part.ActiveView().RotateAboutCenter 0.00973323, 0.0516725
Part.ActiveView().RotateAboutCenter 0.00324441, 0.111957
Part.ActiveView().RotateAboutCenter 0.120043, 0.663131
Part.ActiveView().RotateAboutCenter 0.00324441, 0.00430604
Part.ActiveView().RotateAboutCenter 0.016222, 0.142099
Part.ActiveView().RotateAboutCenter 0.0259553, 0.16363
Part.ActiveView().RotateAboutCenter 0, 0.0172242
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0129776, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0194665, 0.00861209
Part.ActiveView().RotateAboutCenter -0.016222, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0227109, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0291997, 0.0473665
Part.ActiveView().RotateAboutCenter -0.00648882, 0.0129181
Part.ActiveView().RotateAboutCenter -0.016222, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0259553, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0129776, 0
Part.ActiveView().RotateAboutCenter -0.00973323, 0
Part.ActiveView().RotateAboutCenter -0.00324441, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00861209
Part.ActiveView().RotateAboutCenter 0, -0.0172242
Part.ActiveView().RotateAboutCenter 0, -0.0301423
Part.ActiveView().RotateAboutCenter 0, -0.0387544
Part.ActiveView().RotateAboutCenter 0, -0.0430604
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0258363
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0172242
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0129181
Part.ActiveView().RotateAboutCenter -0.00648882, -0.0172242
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0387544
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0904269
Part.ActiveView().RotateAboutCenter 0, -0.0129181
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, 0.00861209
Part.ActiveView().RotateAboutCenter 0, 0.0301423
Part.ActiveView().RotateAboutCenter 0, 0.0215302
Part.ActiveView().RotateAboutCenter 0, 0.0172242
Part.ActiveView().RotateAboutCenter 0, 0.0301423
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0.00324441, 0.0430604
Part.ActiveView().RotateAboutCenter 0.0129776, 0.0559786
Part.ActiveView().RotateAboutCenter 0.0129776, 0.0129181
Part.ActiveView().RotateAboutCenter 0.0259553, 0.0215302
Part.ActiveView().RotateAboutCenter 0.0129776, 0.0129181
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00648882, -0.00430604
Part.ActiveView().RotateAboutCenter -0.016222, -0.0172242
Part.ActiveView().RotateAboutCenter -0.0194665, -0.0301423
Part.ActiveView().RotateAboutCenter -0.0129776, -0.0430604
Part.ActiveView().RotateAboutCenter -0.016222, -0.172242
Part.ActiveView().RotateAboutCenter -0.0129776, -0.318647
Part.ActiveView().RotateAboutCenter 0.0129776, -0.155018
Part.ActiveView().RotateAboutCenter 0.0356885, -0.0645907
Part.ActiveView().RotateAboutCenter 0.227109, -0.0775088
Part.ActiveView().RotateAboutCenter 0.214131, -0.0602846
Part.ActiveView().RotateAboutCenter 0.129776, -0.00430604
Part.ActiveView().RotateAboutCenter 0.0648882, 0.0387544
Part.ActiveView().RotateAboutCenter 0.123288, 0.0473665
Part.ActiveView().RotateAboutCenter 0.0291997, 0.0172242
Part.ActiveView().RotateAboutCenter 0.00324441, 0
Part.ActiveView().RotateAboutCenter 0.0291997, -0.00861209
Part.ActiveView().RotateAboutCenter 0.11031, -0.0344484
Part.ActiveView().RotateAboutCenter 0.0908434, -0.0172242
Part.ActiveView().RotateAboutCenter 0.0551549, 0.0387544
Part.ActiveView().RotateAboutCenter 0.100577, 0.421992
Part.ActiveView().RotateAboutCenter 0.0227109, 0.439216
Part.ActiveView().RotateAboutCenter -0.142754, 0.232526
Part.ActiveView().RotateAboutCenter -0.343907, 0.0172242
Part.ActiveView().RotateAboutCenter -0.0908434, -0.0258363
Part.ActiveView().RotateAboutCenter -0.00648882, -0.00861209
Part.ActiveView().RotateAboutCenter 0.0778658, -0.0559786
Part.ActiveView().RotateAboutCenter 0.149243, -0.0344484
Part.ActiveView().RotateAboutCenter 0.0324441, 0.00430604
Part.ActiveView().RotateAboutCenter 0.0227109, 0.0215302
Part.ActiveView().RotateAboutCenter 0.0259553, 0.00861209
Part.ActiveView().RotateAboutCenter 0.0389329, -0.099039
Part.ActiveView().RotateAboutCenter 0.0129776, -0.404768
Part.ActiveView().RotateAboutCenter 0.00973323, -0.516725
Part.ActiveView().RotateAboutCenter 0.016222, -0.0387544
Part.ActiveView().RotateAboutCenter 0.0356885, -0.0258363
Part.ActiveView().RotateAboutCenter 0.240086, -0.0301423
Part.ActiveView().RotateAboutCenter 0.116799, 0
Part.ActiveView().RotateAboutCenter 0.0551549, 0.00430604
Part.ActiveView().RotateAboutCenter 0.016222, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00324441, -0.0129181
Part.ActiveView().RotateAboutCenter -0.0291997, -0.0645907
Part.ActiveView().RotateAboutCenter -0.0324441, -0.0516725
Part.ActiveView().RotateAboutCenter -0.0356885, -0.0387544
Part.ActiveView().RotateAboutCenter -0.00324441, -0.00430604
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Front", 1
Part.ViewDisplayWireframe
Part.InsertSketch
Part.SetPickMode
Part.SetPickMode
Part.EditRebuild
' MSGBOX
' Please select a planar face.

Part.ViewDisplayShaded
swApp.LoadFile2 "C:\PROGRA~1\SOLIDW~1\data\templates\MBARI_B.drwdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\MBARI_TEMP_B.slddrt", 12, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1596
swApp.ActiveDoc.ActiveView.FrameHeight = 511
Set Part = swApp.ActivateDoc ("Top#2")
Part.SelectByID "Top#2.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Top#2 - Sheet1")
Part.Create3rdAngleViews "D:\Work In Progress\ESP-2002\Filter-Holder\Top#2.SLDPRT"
Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.2892966939655, 0.08319375862069, 0
Part.EditDelete
Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1363613232759, 0.1790086896552, 0
Part.SelectByID "Sheet1", "SHEET", 0.2555157887931, 0.1415425948276, 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Part.ClearSelection
Set Part = swApp.ActivateDoc ("Top#2")
Set Part = swApp.ActivateDoc ("Top#2 - Sheet1")
Part.CreateDrawViewFromModelView "D:\Work In Progress\ESP-2002\Filter-Holder\Top#2.SLDPRT", "*Isometric", 0.3114078318966, 0.1747093017241, 0
Set Part = swApp.ActivateDoc ("Top#2")
Part.Save2 FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Top#2"
Set Part = swApp.ActivateDoc ("Top#2 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' There are currently no drawing views from which a section could be made

Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1379027883636, 0.08588672872727, 0
' MSGBOX
' There are currently no drawing views from which a section could be made

Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1430278618182, 0.08076165527273, 0
Part.EditSketch
Part.CreateLine2 0, 0.009940266909091, 0, 0, -0.01120066109091, 0
Part.CreateSectionViewAt2 0.2621858196364, 0.06985, 0, 0, 0, "A", 0, 0, 0, 0 
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Sheet1", "SHEET", 0.1776221076364, 0.1230435112727, 0
Part.EditSketch
Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1388637396364, 0.08620704581818, 0
Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1571218138182, 0.2082478574545, 0
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.3557184101818, 0.2152948334545, 0
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.3521949221818, 0.2184980043636, 0
Part.SelectByID "Sheet1", "SHEET", 0.2295134763636, 0.203122784, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.31279592, 0.1771770996364, 0
Part.SelectByID "Sheet1", "SHEET", 0.2218258661818, 0.2265059316364, 0
Part.SelectByID "Sheet1", "SHEET", 0.2685921614545, 0.1762161483636, 0
Part.SelectByID "Sheet1", "SHEET", 0.2118960363636, 0.1662863185455, 0
boolstatus = Part.InsertModelAnnotations (0, 0, 8, 1)
Part.SelectByID "Sheet1", "SHEET", 0.2336775985455, 0.2338732247273, 0
Part.SelectByID "D15@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1452700814545, 0.1694894894545, 0
Part.SelectByID "D15@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1539186429091, 0.1733332945455, 0
Part.SelectByID "D12@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1026679083636, 0.160840928, 0
Part.SelectByID "D15@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1837081323636, 0.2143338821818, 0
Part.SelectByID "D8@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.09882410327273, 0.150270464, 0
Part.SelectByID "D6@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.09337871272727, 0.1390593658182, 0
Part.SelectByID "D4@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.08857395636364, 0.1284889018182, 0
Part.SelectByID "Sheet1", "SHEET", 0.2538575752727, 0.2178573701818, 0
Part.SelectByID "D16@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.3397025556364, 0.08844926545455, 0
Part.SelectByID "Sheet1", "SHEET", 0.3566793614545, 0.1339342923636, 0
Part.ViewZoomTo2 0.292616, 0.110231, -2.56907e-015, 0.339062, 0.0593004, -2.21343e-015
Part.ViewZoomtofit2
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2231071345455, 0.1259263650909, 0
Part.SelectByID "D1@Chamfer3@Section-1@Drawing View5", "DIMENSION", 0.2186226952727, 0.115035584, 0
Part.SelectByID "Sheet1", "SHEET", 0.2420058429091, 0.1768567825455, 0
Part.SelectByID "D1@Cut-Extrude1@Top#2-1@Drawing View1", "DIMENSION", 0.1292542269091, 0.1393796829091, 0
Part.EditDelete
Part.SelectByID "D1@Plane2@Top#2-1@Drawing View1", "DIMENSION", 0.1529576916364, 0.1294498530909, 0
Part.EditDelete
Part.SelectByID "D18@Sketch1@Top#2-1@Drawing View1", "DIMENSION", 0.1462310327273, 0.1195200232727, 0
Part.EditDelete
Part.SelectByID "D15@Sketch1@Top#2-1@Drawing View1", "DIMENSION", 0.08921459054545, 0.08140228945455, 0
Part.EditDelete
Part.SelectByID "D2@Chamfer3@Top#2-1@Drawing View1", "DIMENSION", 0.1452700814545, 0.1576377570909, 0
Part.SelectByID "Sheet1", "SHEET", 0.2621858196364, 0.1627628305455, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.1045898109091, 0.1979977105472, 249.9518374461
Part.AddDimension 0.0725581, 0.243483, 0
Part.ClearSelection
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0.07544095563636, 0.2438030545455, 0
Part.EditDelete
Part.SelectByID "D14@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.3275305061818, 0.1124730472727, 0
Part.EditDelete
Part.SelectByID "D15@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1641687898182, 0.2502093963636, 0
Part.EditDelete
Part.SelectByID "D4@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1984427185455, 0.2447640058182, 0
Part.EditDelete
Part.SelectByID "D12@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.2019662065455, 0.2040837352727, 0
Part.EditDelete
Part.SelectByID "D8@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.1865909861818, 0.1903101003636, 0
Part.EditDelete
Part.SelectByID "D6@Base-Revolve@Top#2-2@Drawing View2", "DIMENSION", 0.2038881090909, 0.1685285381818, 0
Part.EditDelete
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2323963301818, 0.1323327069091, 0
Part.SelectByID "Sheet1", "SHEET", 0.2480918676364, 0.1742942458182, 0
Part.SelectByID "D1@Chamfer3@Section-1@Drawing View5", "DIMENSION", 0.2234274516364, 0.1147152669091, 0
Part.ViewZoomTo2 0.211576, 0.14002, -2.77709e-015, 0.288772, 0.0865274, -2.40355e-015
Part.ViewZoomtofit2
Part.SelectByID "D5@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.2010052552727, 0.1121527301818, 0
Part.SelectByID "Sheet1", "SHEET", 0.2288728421818, 0.1874272465455, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.1478326181818, 0.2252246632745, 249.9486624461
Part.AddDimension 0.180185, 0.252131, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.1481529352727, 0.2178573701836, 249.9518374461
Part.AddDimension 0.192357, 0.2406, 0
Part.ClearSelection
Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0, 0, 0
Part.SelectByID "", "EDGE", 0.1465513498182, 0.2114510283654, 249.9518374461
Part.AddDimension 0.0824879, 0.238998, 0
Part.ClearSelection
Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0, 0, 0
Part.ClearSelection
Part.SelectByID "D1@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2801235767273, 0.129129536, 0
Part.SelectByID "", "EDGE", 0.3025457730909, 0.114074632729, 249.95262
Part.AndSelectByID "", "EDGE", 0.2583420145455, 0.1127933643654, 249.95262
Part.AddDimension 0.281405, 0.140981, 0
Part.ClearSelection
Part.SelectByID "D1@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2801235767273, 0.129129536, 0
Part.EditDelete
Part.ViewZoomTo2 0.225349, 0.138098, -2.76367e-015, 0.340984, 0.0695506, -2.28501e-015
Part.SelectByID "D1@Chamfer3@Section-1@Drawing View5", "DIMENSION", 0.2353569919334, 0.1152617861057, 0
Part.EditDelete
Part.SelectByID "D16@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.3288737413427, 0.07960432050354, 0
Part.ViewZoomTo2 0.30129, 0.104665, -2.79145e-015, 0.314998, 0.0851548, -2.65521e-015
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.3095466715505, 0.09046559959386, 249.95262
Part.AndSelectByID "", "EDGE", 0.3057236311921, 0.09464646146365, 249.9459591911
Part.AddDimension 0.315837, 0.0923677, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.3096596678172, 0.09046559959386, 249.95262
Part.AndSelectByID "", "EDGE", 0.3081530509272, 0.09632257275379, 249.9491315409
Part.AddDimension 0.303878, 0.0936672, 0
Part.ClearSelection
Part.SelectByID "RD1@Drawing View5", "DIMENSION", 0, 0, 0
Part.ViewZoomtofit2
Part.ViewZoomTo2 0.232076, 0.128489, -2.69657e-015, 0.362765, 0.0570582, -2.19777e-015
Part.SelectByID "RD1@Drawing View5", "DIMENSION", 0.3144816032508, 0.09267849936502, 0
Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.3064026238233, 0.09353392071617, 0
Part.EditDelete
Part.SelectByID "D11@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.328168344869, 0.1000921510749, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.3096342155943, 0.09039737576373, 249.95262
Part.AndSelectByID "", "EDGE", 0.306117483373, 0.09876149564155, 249.9480467567
Part.AddDimension 0.355542, 0.0947695, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.3559220153727, 0.09486457615127, 0
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.ActiveView().TranslateBy 0, 0.000942109
Part.ActiveView().TranslateBy 0, 0.000314036
Part.ActiveView().TranslateBy -0.000314036, 0.000314036
Part.SelectByID "D5@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.2177738290197, 0.1118556582123, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.3100440347618, 0.09056253381198, 249.95262
Part.AndSelectByID "", "EDGE", 0.3032594608102, 0.1036097914113, 249.9466177116
Part.AddDimension 0.335408, 0.109872, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.3100440347618, 0.09035377769039, 249.95262
Part.AndSelectByID "", "EDGE", 0.3049295097829, 0.1050710842624, 249.95262
Part.AddDimension 0.323718, 0.116657, 0
Part.ClearSelection
Part.SelectByID "RD3@Drawing View5", "DIMENSION", 0, 0, 0
Part.SelectByID "D1@Chamfer5@Section-1@Drawing View5", "DIMENSION", 0.223201488181, 0.09160631441818, 0
Part.SelectByID "", "EDGE", 0.2519054548995, 0.09557268073011, 249.95262
Part.AndSelectByID "", "EDGE", 0.3091046322147, 0.0956770587909, 249.95262
Part.AddDimension 0.226959, 0.0955727, 0
Part.ClearSelection
Part.SelectByID "D1@Chamfer5@Section-1@Drawing View5", "DIMENSION", 0.223201488181, 0.09160631441818, 0
Part.SelectByID "D1@Chamfer5@Section-1@Drawing View5", "DIMENSION", 0.2306123304974, 0.1076805357805, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.2533667477506, 0.101730986317, 249.95262
Part.AndSelectByID "", "EDGE", 0.3076433393636, 0.1003740715266, 249.95262
Part.AddDimension 0.269858, 0.100896, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.3061820465125, 0.1044448158976, 249.95262
Part.AndSelectByID "", "EDGE", 0.2546192844801, 0.1041316817152, 249.95262
Part.AddDimension 0.284785, 0.129496, 0
Part.ClearSelection
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2662052492283, 0.1247985377507, 0
Part.ClearSelection
Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.27038037166, 0.1008959618289, 0
Part.SelectByID "RD7@Drawing View5", "DIMENSION", 0.2845757879281, 0.1297043066081, 0
Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.2821750925298, 0.1351319657694, 0
Part.SelectByID "RD3@Drawing View5", "DIMENSION", 0.3471671358639, 0.1103257263484, 0
Part.SelectByID "RD4@Drawing View5", "DIMENSION", 0.334397273399, 0.1168188767543, 0
Part.SelectByID "RD1@Drawing View5", "DIMENSION", 0.3203287808529, 0.09279422025247, 0
Part.SelectByID "D4@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.3443534373547, 0.09365997363992, 0
Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.3556082313916, 0.09560791876168, 0
Part.SelectByID "RD3@Drawing View5", "DIMENSION", 0.3711917923657, 0.09733942553659, 0
Part.SelectByID "RD4@Drawing View5", "DIMENSION", 0.3867753533398, 0.09972024735208, 0
Part.ClearSelection
Part.SelectByID "D16@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.3086411101223, 0.07807641266579, 0
Part.SelectByID "RD5@Drawing View5", "DIMENSION", 0.2287753601299, 0.09625723380227, 0
Part.SelectByID "D16@Sketch1@Section-1@Drawing View5", "DIMENSION", 0.3181643973843, 0.08002435778756, 0
Part.SelectByID "RD1@Drawing View5", "DIMENSION", 0.3181643973843, 0.09322709694619, 0
Part.ClearSelection
Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.2809370017239, 0.1339175061564, 0
Part.ClearSelection
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2463068662258, 0.1155202466731, 0
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.244358921104, 0.1161695617137, 0
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2341863188015, 0.1256928489756, 0
Part.SelectByID "Sheet1", "SHEET", 0.2331041270672, 0.1482024370494, 0
Part.ViewZoomTo2 0.227477, 0.136082, -3.38854e-015, 0.27163, 0.0995038, -3.13312e-015
Part.ViewZoomtofit2
Part.SelectByID "", "EDGE", 0.1007460058182, 0.117598120729, 249.9492031039
Part.SelectByID "", "FACE", 0.1010663229091, 0.1115120960017, 249.9535833719
Part.SelectByID "Sheet1", "SHEET", 0.2650686734545, 0.2386779810909, 0
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.1026679083636, 0.1179184378199, 249.9385804625
Part.AddDimension 0.105551, 0.111832, 0
Part.ClearSelection
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.1058710792727, 0.1118324130909, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.1017069570909, 0.1111917789108, 249.9540653966
Part.AndSelectByID "", "EDGE", 0.1029882254545, 0.117598120729, 249.9517048467
Part.AddDimension 0.0748003, 0.114395, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.07544095563636, 0.115035584, 0
Part.SelectByID "D2@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2397636232727, 0.125606048, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.1222072509091, 0.1127933643654, 249.9597382449
Part.AndSelectByID "", "EDGE", 0.1164415432727, 0.1179184378199, 249.9350179474
Part.AddDimension 0.0856911, 0.127848, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.1061913963636, 0.117598120729, 249.9539206763
Part.AndSelectByID "", "EDGE", 0.1074726647273, 0.09037116800175, 249.9570209695
Part.AddDimension 0.0459718, 0.106067, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.06230795490909, 0.1153559010909, 0
Part.SelectByID "RD2@Drawing View1", "DIMENSION", 0.07480032145455, 0.1278482676364, 0
Part.ClearSelection
Part.SelectByID "RD3@Drawing View1", "DIMENSION", 0.04533114909091, 0.1063870225455, 0
Part.ClearSelection
Part.SelectByID "D1@Sketch4@Section-1@Drawing View5", "DIMENSION", 0.2820454792727, 0.1560361716364, 0
Part.ClearSelection
Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.1897941570909, 0.241881152, 0
Part.ClearSelection
Part.SelectByID "Axis@Drawing View5", "AXIS", 0.2801235767273, 0.1124730472727, 0
Part.EditDelete
Part.SelectByID "Axis@Drawing View5", "AXIS", 0.2804438938182, 0.1134339985455, 0
Part.EditDelete
Part.ClearSelection
Part.ViewDispRefaxes
Part.SaveAs2 "C:\Documents and Settings\fejo\Desktop\ESP\Top#2.SLDDRW", 0, FALSE, FALSE
Part.ViewZoomTo2 0.28653, 0.1192, -2.6317e-015, 0.383266, 0.0663474, -2.26264e-015
swApp.ExitApp
End Sub