' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/06/01 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\Herb's work\drawings\Clamps\4.0-ID.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("4.0-ID")
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
Set Part = Nothing
swApp.CloseDoc "4.0-ID"
Set Part = swApp.OpenDoc4 ("D:\Work In Progress\Herb's work\drawings\Clamps\6.62-ID.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("6.62-ID")
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, 0.0127702
Part.ActiveView().RotateAboutCenter 0, 0.0297972
Part.ActiveView().RotateAboutCenter 0.00325863, 0.0468241
Part.ActiveView().RotateAboutCenter 0.00977588, 0.127702
Part.ActiveView().RotateAboutCenter 0.0162931, 0.127702
Part.ActiveView().RotateAboutCenter 0.00977588, 0.0340539
Part.ActiveView().RotateAboutCenter 0.00325863, 0.00425674
Part.ActiveView().RotateAboutCenter 0.026069, 0.00425674
Part.ActiveView().RotateAboutCenter 0.117311, 0.017027
Part.ActiveView().RotateAboutCenter 0.0162931, 0.00851348
Part.ActiveView().RotateAboutCenter 0.00325863, 0
Part.ActiveView().RotateAboutCenter 0.00325863, 0.0127702
Part.ActiveView().RotateAboutCenter 0.00977588, 0.00851348
Part.ActiveView().RotateAboutCenter 0.0716898, 0.0340539
Part.ActiveView().RotateAboutCenter 0.0651726, 0.0255404
Part.ActiveView().RotateAboutCenter 0.0651726, 0.0212837
Part.ActiveView().RotateAboutCenter 0.0162931, 0.0127702
swApp.LoadFile2 "D:\Work In Progress\Herb's work\drawings\Clamps\6.62-CLAMP.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("D:\Work In Progress\Herb's work\drawings\Clamps\6.62-CLAMP.SLDDRW", 3, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("6.62-CLAMP - Sheet1")
Part.SelectByID "Sheet1", "SHEET", 0.3736585087719, 0.08754310526316, 0
Part.EditTemplate
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem22@Sheet Format1", "NOTE", 0.375590245614, 0.02379578947368, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3598143947368, 0.08657723684211, 0
Part.SelectByID "DetailItem22@Sheet Format1", "NOTE", 0.404888254386, 0.02250796491228, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3688291666667, 0.07917224561404, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.2857644824561, 0.08915288596491, 0
Part.SelectByID "DetailItem1@Sheet Format1", "NOTE", 0.3340579035088, 0.04150337719298, 0
Part.ViewZoomtofit2
Part.SelectByID "Sheet Format1", "SHEET", 0.2638714649123, 0.08818701754386, 0
Part.AndSelectByID "Line12", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line105", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line22", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line23", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line24", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line25", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line26", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line27", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line28", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line29", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line30", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line31", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line33", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line34", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line35", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line36", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line99", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line102", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line46", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line108", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line101", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line98", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line52", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line53", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line106", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line55", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line56", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line58", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line59", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line60", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line61", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line103", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line104", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line107", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line109", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line110", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line111", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line112", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line113", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line114", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "DetailItem4@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem9@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem12@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem13@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem14@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem15@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem16@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem17@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem18@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem19@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem20@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem21@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem22@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem23@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem24@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem25@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem26@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem27@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem30@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem32@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem40@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem42@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem44@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem45@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem47@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem49@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem50@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem54@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem55@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem56@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem57@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem1@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem2@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem3@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem4@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem5@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem6@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem7@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem8@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem9@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem10@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem11@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem12@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem1@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem1@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem1@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem2@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem3@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem4@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem5@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem6@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem7@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem8@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem1@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem79@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem80@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem81@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem82@Sheet Format1", "NOTE", 0, 0, 0
Part.AndSelectByID "DetailItem83@Sheet Format1", "NOTE", 0, 0, 0
Part.ViewZoomTo2 0.267735, 0.0691916, -1.23256e-015, 0.420986, -0.0135511, -6.54774e-016
Part.SelectByID "Sheet Format1", "SHEET", 0.3516421688468, 0.07363874212578, 0
Part.SelectByID "DetailItem1@Sheet Format1", "NOTE", 0.3353984460347, 0.04126332217605, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3462649364676, 0.07251848538012, 0
Part.SelectByID "DetailItem6@Sheet Format1", "NOTE", 0.3374149081769, 0.01639362242228, 0
Part.SelectByID "DetailItem6@Sheet Format1", "NOTE", 0.3355104717092, 0.01717780214425, 0
Part.SelectByID "DetailItem5@Sheet Format1", "NOTE", 0.3401035243665, 0.02367529126911, 0
Part.SelectByID "DetailItem5@Sheet Format1", "NOTE", 0.3351743946855, 0.02434744531651, 0
Part.SelectByID "DetailItem1@Sheet Format1", "NOTE", 0.3331579325433, 0.04126332217605, 0
Part.SelectByID "DetailItem1@Sheet Format1", "NOTE", 0.3339421122653, 0.04137534785062, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3482813986098, 0.07386279347492, 0
Part.SelectByID "DetailItem2@Sheet Format1", "NOTE", 0.3464889878168, 0.04115129650149, 0
Part.SelectByID "DetailItem23@Sheet Format1", "NOTE", 0.347721270237, 0.04619245185698, 0
Part.SelectByID "DetailItem2@Sheet Format1", "NOTE", 0.3472731675387, 0.04137534785062, 0
Part.SelectByID "DetailItem2@Sheet Format1", "NOTE", 0.3464889878168, 0.04126332217605, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3314775474248, 0.07061404891249, 0
Part.SelectByID "DetailItem82@Sheet Format1", "NOTE", 0.3918593860162, 0.05997160982867, 0
Part.SelectByID "DetailItem22@Sheet Format1", "NOTE", 0.3729270470145, 0.02333921424541, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3867062049861, 0.07431089617318, 0
Part.SelectByID "DetailItem22@Sheet Format1", "NOTE", 0.3895068468503, 0.02513162503847, 0
Part.SelectByID "DetailItem22@Sheet Format1", "NOTE", 0.3884986157792, 0.02535567638761, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3836815117729, 0.07610330696625, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.37796820237, 0.07845584613214, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3750555348312, 0.02266706019801, 0
Part.SelectByID "Sheet Format1", "SHEET", 0.3630687876526, 0.07240645970555, 0
Part.EditSheet
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem86@Drawing View6", "NOTE", 0.3353984460347, 0.08170459069457, 0
Part.EditDelete
Part.SelectByID "Sheet1", "SHEET", 0.3589238376936, 0.07856787180671, 0
Part.SelectByID "Sheet1", "SHEET", 0.3902910265723, 0.07296658807838, 0
Part.ViewZoomtofit2
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.3482239736842, 0.2176133859649, 0
Part.SelectByID "", "FACE", 0.3520874473684, 0.2150377368316, -1499.730685349
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.350799622807, 0.2176133859649, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.3430726754386, 0.2256622894737, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.3395311578947, 0.2288818508772, 0
Part.SelectByID "Sheet1", "SHEET", 0.2706325438596, 0.2539944298246, 0
Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0.04429737719298, 0.06725986842105, 0
Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.1537624649123, 0.06146465789474, 0
Part.SelectByID "RD3@Drawing View2", "DIMENSION", 0.03528260526316, 0.1673882280702, 0
Part.SelectByID "D3@Sketch1@6.62-ID-2@Drawing View2", "DIMENSION", 0.1199570701754, 0.2102083947368, 0
Part.SelectByID "RD4@Drawing View2", "DIMENSION", 0.06007322807018, 0.2214768596491, 0
Part.SelectByID "RD4@Drawing View2", "DIMENSION", 0.06812213157895, 0.2182572982456, 0
Part.SelectByID "RD4@Drawing View2", "DIMENSION", 0.07069778070175, 0.2205109912281, 0
Part.SelectByID "RD4@Drawing View2", "DIMENSION", 0.07230756140351, 0.2166475175439, 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2", "", 0,"", " 2 PLS.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2X", "", 0,"", " 2 PLS.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2X.", "", 0,"", " 2 PLS.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2X.7", "", 0,"", " 2 PLS.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2X.75", "", 0,"", " 2 PLS.", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2X.75", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2 X.75", "", 0,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"2 X .75", "", 0,"", "", 0
Part.ClearSelection
Part.SelectByID "RD4@Drawing View2", "DIMENSION", 0.06522452631579, 0.2198670789474, 0
Part.SelectByID "Sheet1", "SHEET", 0.08164428947368, 0.2549602982456, 0
Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0.04751693859649, 0.07563072807018, 0
Part.SelectByID "D1@Base-Extrude@6.62-ID-6@Drawing View6", "DIMENSION", 0.1531185526316, 0.2163255614035, 0
Part.SelectByID "D1@Sketch2@6.62-ID-6@Drawing View6", "DIMENSION", 0.2033437105263, 0.2240525087719, 0
Part.SelectByID "D1@Base-Extrude@6.62-ID-6@Drawing View6", "DIMENSION", 0.1602015877193, 0.2182572982456, 0
Part.SelectByID "D3@Sketch2@6.62-ID-6@Drawing View6", "DIMENSION", 0.2303880263158, 0.2089205701754, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3353457280702, 0.1361584824561, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3363115964912, 0.1374463070175, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3350237719298, 0.1358365263158, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3356676842105, 0.1355145701754, 0
Part.SelectByID "Sheet1", "SHEET", 0.3385652894737, 0.1329389210526, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3350237719298, 0.1281095789474, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3366335526316, 0.1210265438596, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.3900782719298, 0.2366087982456, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.3891124035088, 0.2359648859649, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.3910441403509, 0.2382185789474, 0
Part.SelectByID "Sheet1", "SHEET", 0.2352173684211, 0.0656500877193, 0
Part.SelectByID "D1@Fillet1@6.62-ID-6@Drawing View6", "DIMENSION", 0.1933630701754, 0.04601076315789, 0
Part.SelectByID "D1@Fillet1@6.62-ID-6@Drawing View6", "DIMENSION", 0.2210512982456, 0.07659659649123, 0
Part.SelectByID "Sheet1", "SHEET", 0.1891776403509, 0.05760118421053, 0
Part.SelectByID "DetailItem84@Drawing View7", "NOTE", 0.2761057982456, 0.07402094736842, 0
Part.SelectByID "Sheet1", "SHEET", 0.2377930175439, 0.06049878947368, 0
Part.SelectByID "D3@Sketch2@6.62-ID-6@Drawing View6", "DIMENSION", 0.2339295438596, 0.2169694736842, 0
Part.SelectByID "Sheet1", "SHEET", 0.2664471140351, 0.2481992192982, 0
Part.SelectByID "DetailItem85@Drawing View6", "NOTE", 0.1827385175439, 0.0302349122807, 0
Part.SelectByID "Sheet1", "SHEET", 0.2268465087719, 0.05180597368421, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3347018157895, 0.1393780438596, 0
Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.3366335526316, 0.1368023947368, 0
Part.SelectByID "Sheet1", "SHEET", 0.3730145964912, 0.1387341315789, 0
Part.SelectByID "Drawing View6", "DRAWINGVIEW", 0.1956167631579, 0.1261778421053, 0
Part.SelectByID "Sheet1", "SHEET", 0.259042122807, 0.2485211754386, 0
Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.1379866140351, 0.07402094736842, 0
Part.SelectByID "Sheet1", "SHEET", 0.1470013859649, 0.06983551754386, 0
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Part.SelectByID "Sheet1", "SHEET", 0.3800976315789, 0.01767862280702, 0
Part.SaveAs2 "D:\Work In Progress\GAS HOUND 6.62-CLAMP.SLDDRW", 0, FALSE, FALSE
Part.SaveAs2 "D:\Dropoff\GAS HOUND 6.62-CLAMP.SLDDRW", 0, FALSE, FALSE
Part.PrintDirect
Part.PrintDirect
Part.PrintPreview
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintDirect
Part.PrintDirect
Part.SaveAs2 "C:\Documents and Settings\fejo\Desktop\GAS HOUND 6.62-CLAMP.SLDDRW", 0, FALSE, FALSE
Part.PrintDirect
Part.SelectByID "D1@Fillet1@6.62-ID-6@Drawing View6", "DIMENSION", 0.2150956975895, 0.07857301680058, 0
Part.SelectByID "Sheet1", "SHEET", 0.2086612783053, 0.04800952520088, 0
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "GAS HOUND 6.62-CLAMP - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("6.62-ID")
Set Part = Nothing
swApp.CloseDoc "6.62-ID"
swApp.ExitApp
End Sub