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

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\linstrut\100629A.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("100629A - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomTo2 -0.010302, 0.130219, -2.40949e-015, 0.165421, -0.0504151, -1.14812e-015
Part.SetPickMode
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.04107596903109, 0.1024108865468, 0
Part.SelectByID "Sheet1", "SHEET", 0.03133123028962, 0.05962910670615, 0
Part.SelectByID "RD5@Drawing View1", "DIMENSION", 0.04202667524977, 0.05915375359681, 0
Part.SelectByID "RD4@Drawing View1", "DIMENSION", 0.1157064071975, 0.07270131721301, 0
Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.1128542885415, 0.04774527897264, 0
Part.SelectByID "RD5@Drawing View1", "DIMENSION", 0.1216483210643, 0.06057981292483, 0
Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.1126166119868, 0.0584407239328, 0
Part.ClearSelection
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.03964990970307, 0.09290382435997, 0
Part.SelectByID "Sheet1", "SHEET", 0.03418334894566, 0.08910099948525, 0
Part.ClearSelection
Part.SelectByID "", "VERTEX", 0.04487879390582, 0.0743650530957, -0.1539977363587
Part.AndSelectByID "Point1@Origin@linstrut-1@Drawing View1", "EXTSKETCHPOINT", 0, 0, 0
Part.AddDimension 0.0351341, 0.0498844, 0
Part.ClearSelection
Part.SelectByID "", "VERTEX", 0.05842635752201, 0.08719958704788, -0.1571727363587
Part.AndSelectByID "", "VERTEX", 0.04511647046049, 0.07460272965037, -0.1539977363587
Part.AddDimension 0.0550989, 0.0895764, 0
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.05391050298328, 0.09052705881327, 0
Part.SelectByID "RD9@Drawing View1", "DIMENSION", 0.05581191542064, 0.08791261671189, 0
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.05177141399125, 0.09337917746931, 0
Part.ClearSelection
Part.SelectByID "RD2@Drawing View1", "DIMENSION", 0.06508130105278, 0.1005094741094, 0
Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.07506371634892, 0.09409220713332, 0
Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.0505830312179, 0.09623129612535, 0
Part.SelectByID "Sheet1", "SHEET", 0.005424485830572, 0.07293899376768, 0
Part.SelectByID "RD9@Drawing View1", "DIMENSION", 0.03085587718028, 0.08838796982123, 0
Part.SelectByID "RD9@Drawing View1", "DIMENSION", 0.02942981785226, 0.09076473536794, 0
Part.SelectByID "RD8@Drawing View1", "DIMENSION", 0.03418334894566, 0.04964669141, 0
Part.SelectByID "RD8@Drawing View1", "DIMENSION", 0.03418334894566, 0.04964669141, 0
Part.ViewZoomtofit2
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.2102649437052, 0.1974697518741, 0
Part.SelectByID "Sheet1", "SHEET", 0.1390378321392, 0.2019777969099, 0
Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1020718628454, 0.2659920364186, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Sheet1", "SHEET", 0.1530127717503, 0.1357095348833, 0
Part.PrintDirect
Part.Save2 FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "100629A - Sheet1"
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\actuators\100662.SLDDRW", 3)
' MSGBOX
' Some dimensions are no longer in the model.  Missing dimensions will be deleted from drawing.

Set Part = swApp.ActivateDoc ("100662 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.PrintDirect
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\actuators\100684.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100684 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "100684 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100662 - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\actuators\100684A.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100684A - Sheet1")
Part.PrintDirect
Set Part = Nothing
swApp.CloseDoc "100684A - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100662 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "100662 - Sheet1"
swApp.ExitApp
End Sub