' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/20/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 ("I:\Dropoff\ISUShousing\isusHousing.SLDASM", 2)
' MSGBOX
' Unable to locate the file J:\GENE\ISUS\ISUS.SLDASM.  Would you like to find it yourself?

Set Part = swApp.ActivateDoc ("isusHousing.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.ShowNamedView2 "*Isometric", 7
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter -0.074692, 0.215984
Part.ActiveView().RotateAboutCenter -0.00995894, 0.207345
Part.ActiveView().RotateAboutCenter -0.0199179, 0.129591
Part.ActiveView().RotateAboutCenter 0, 0.0345575
Part.ActiveView().RotateAboutCenter -0.00995894, 0.0388772
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter 0.00497947, 0.00431969
Part.ActiveView().RotateAboutCenter 0.0398358, 0.0215984
Part.ActiveView().RotateAboutCenter 0.179261, 0.0604757
Part.ActiveView().RotateAboutCenter 0.0946099, 0.00863938
Part.ActiveView().RotateAboutCenter 0.149384, 0.0907135
Part.ActiveView().RotateAboutCenter 0.0796715, 0.0172788
Part.ActiveView().RotateAboutCenter 0.00995894, 0
Part.ActiveView().RotateAboutCenter 0.0398358, 0.00431969
Part.ActiveView().RotateAboutCenter 0.0348563, 0.0172788
Part.ActiveView().RotateAboutCenter 0.0497947, 0.0129591
Part.ActiveView().RotateAboutCenter 0.0398358, 0
Part.ActiveView().RotateAboutCenter 0.0497947, 0.0129591
Part.ActiveView().RotateAboutCenter 0.0348563, 0.00863938
Part.ActiveView().RotateAboutCenter 0.00995894, 0.00431969
Part.ActiveView().RotateAboutCenter 0.0448152, 0.00431969
Part.ActiveView().RotateAboutCenter 0.0448152, 0
Part.ActiveView().RotateAboutCenter 0.0398358, -0.00863938
Part.ActiveView().RotateAboutCenter 0.0796715, -0.0518363
Part.ActiveView().RotateAboutCenter 0.0398358, -0.0475166
Part.ActiveView().RotateAboutCenter 0.0398358, -0.146869
Part.ActiveView().RotateAboutCenter 0, -0.14255
Part.ActiveView().RotateAboutCenter 0, -0.0388772
Part.ActiveView().RotateAboutCenter -0.00995894, -0.0172788
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter 0.00497947, -0.00431969
Part.SelectByID "cylinder-1@isusHousing", "COMPONENT", 0, 0, 0
Part.SelectByID "cylinder-1@isusHousing", "COMPONENT", 0, 0, 0
Part.ViewZoomtofit2
Part.SelectByID "endCap-2@isusHousing", "COMPONENT", 0, 0, 0
Part.SelectByID "endCap-2@isusHousing", "COMPONENT", 0, 0, 0
Part.ViewDisplayShaded
Part.ActiveView().RotateAboutCenter -0.0298768, 0.0215984
Part.ActiveView().RotateAboutCenter -0.164322, 0.177107
Part.ActiveView().RotateAboutCenter -0.214117, 0.345575
Part.ActiveView().RotateAboutCenter -0.46807, 0.362854
Part.ActiveView().RotateAboutCenter -0.308727, 0.362854
Part.ActiveView().RotateAboutCenter -0.0448152, 0.107992
Part.ActiveView().RotateAboutCenter -0.00497947, 0.069115
Part.ActiveView().RotateAboutCenter 0, 0.190066
Part.ActiveView().RotateAboutCenter 0.0248973, 0.056156
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter 0.0497947, 0.0129591
Part.ActiveView().RotateAboutCenter 0.18922, 0.0302378
Part.ActiveView().RotateAboutCenter 0.134446, -0.00431969
Part.ActiveView().RotateAboutCenter 0.00995894, -0.0129591
Part.ActiveView().RotateAboutCenter 0.134446, 0
Part.ActiveView().RotateAboutCenter 0.0946099, 0
Part.ActiveView().RotateAboutCenter 0.0697126, -0.0129591
Part.ActiveView().RotateAboutCenter 0.0398358, -0.00863938
Part.ActiveView().RotateAboutCenter 0.139425, -0.00863938
Part.ActiveView().RotateAboutCenter 0.318686, -0.0345575
Part.ActiveView().RotateAboutCenter 0.348563, -0.0172788
Part.ActiveView().RotateAboutCenter 0.408317, -0.0518363
Part.ActiveView().RotateAboutCenter 0.124487, -0.00431969
Part.ActiveView().RotateAboutCenter 0.0647331, -0.00863938
Part.ActiveView().RotateAboutCenter 0.0448152, -0.00431969
Part.ActiveView().RotateAboutCenter 0.0697126, 0
Part.ActiveView().RotateAboutCenter 0.00995894, -0.00431969
Part.ActiveView().RotateAboutCenter -0.00497947, 0
Part.ActiveView().RotateAboutCenter -0.00497947, 0.00431969
Part.ActiveView().RotateAboutCenter -0.00497947, 0
Part.ActiveView().RotateAboutCenter -0.00995894, 0
Part.ActiveView().RotateAboutCenter -0.0199179, -0.00431969
Part.ActiveView().RotateAboutCenter -0.00995894, 0
Part.ActiveView().RotateAboutCenter 0.00497947, 0
Part.ActiveView().RotateAboutCenter 0.00995894, -0.0215984
Part.ActiveView().RotateAboutCenter 0.0248973, -0.0215984
Part.ActiveView().RotateAboutCenter 0.0248973, -0.0388772
Part.ActiveView().RotateAboutCenter 0.0199179, -0.0475166
Part.ActiveView().RotateAboutCenter 0.00995894, -0.0302378
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0, -0.00863938
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0, -0.00863938
Part.ActiveView().RotateAboutCenter 0, -0.0388772
Part.ActiveView().RotateAboutCenter 0, -0.0431969
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter -0.0199179, -0.0129591
Part.ActiveView().RotateAboutCenter -0.0448152, -0.0215984
Part.ActiveView().RotateAboutCenter -0.0149384, -0.00863938
Part.ActiveView().RotateAboutCenter -0.00995894, -0.00431969
Part.ActiveView().RotateAboutCenter -0.0149384, -0.0129591
Part.ActiveView().RotateAboutCenter -0.00995894, -0.0129591
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0.0248973, -0.0259181
Part.ActiveView().RotateAboutCenter 0.0298768, -0.0345575
Part.ActiveView().RotateAboutCenter 0.0298768, -0.0431969
Part.ActiveView().RotateAboutCenter 0.0149384, -0.0215984
Part.ActiveView().RotateAboutCenter 0.0149384, -0.0215984
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0.00497947, -0.00431969
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0.00995894, -0.0259181
Part.ActiveView().RotateAboutCenter 0.0348563, -0.0431969
Part.ActiveView().RotateAboutCenter 0.0647331, -0.0907135
Part.ActiveView().RotateAboutCenter 0.0547742, -0.0518363
Part.ActiveView().RotateAboutCenter 0.00995894, -0.0172788
Part.ActiveView().RotateAboutCenter 0.00497947, -0.00431969
Part.ActiveView().RotateAboutCenter 0.0149384, -0.00431969
Part.ActiveView().RotateAboutCenter 0.0149384, -0.00431969
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0, 0.00863938
Part.ActiveView().RotateAboutCenter -0.0298768, 0.0647953
Part.ActiveView().RotateAboutCenter -0.0398358, 0.0993529
Part.ActiveView().RotateAboutCenter -0.074692, 0.172788
Part.ActiveView().RotateAboutCenter -0.0697126, 0.151189
Part.ActiveView().RotateAboutCenter -0.248973, 0.125271
Part.ActiveView().RotateAboutCenter -0.164322, 0.120951
Part.ActiveView().RotateAboutCenter -0.084651, 0.0604757
Part.ActiveView().RotateAboutCenter -0.0398358, 0.0302378
Part.ActiveView().RotateAboutCenter -0.0448152, 0.0475166
Part.ActiveView().RotateAboutCenter -0.0348563, 0.0475166
Part.ActiveView().RotateAboutCenter -0.0448152, 0.0302378
Part.ActiveView().RotateAboutCenter -0.00497947, 0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, 0
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0.00497947, -0.0129591
Part.ActiveView().RotateAboutCenter 0.0149384, -0.112312
Part.ActiveView().RotateAboutCenter 0.0398358, -0.354215
Part.ActiveView().RotateAboutCenter 0.0448152, -0.41469
Part.ActiveView().RotateAboutCenter 0.0398358, -0.406051
Part.ActiveView().RotateAboutCenter 0.00995894, -0.0993529
Part.ActiveView().RotateAboutCenter 0, -0.0388772
Part.ActiveView().RotateAboutCenter -0.0149384, -0.0604757
Part.ActiveView().RotateAboutCenter -0.0149384, -0.0647953
Part.ActiveView().RotateAboutCenter -0.0149384, -0.0647953
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ActiveView().RotateAboutCenter 0, -0.00863938
Part.ActiveView().RotateAboutCenter 0.00497947, -0.0215984
Part.ActiveView().RotateAboutCenter 0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00431969
Part.ActiveView().RotateAboutCenter -0.00995894, -0.0215984
Part.ActiveView().RotateAboutCenter -0.00995894, -0.00863938
Part.ActiveView().RotateAboutCenter -0.0398358, -0.00863938
Part.ActiveView().RotateAboutCenter -0.0796715, -0.00863938
Part.ActiveView().RotateAboutCenter -0.0497947, -0.00431969
Part.ActiveView().RotateAboutCenter -0.0647331, -0.0302378
Part.ActiveView().RotateAboutCenter -0.0448152, -0.0345575
Part.ActiveView().RotateAboutCenter -0.0149384, -0.0172788
Part.ActiveView().RotateAboutCenter -0.00497947, -0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, -0.0259181
Part.ActiveView().RotateAboutCenter 0, -0.0302378
Part.ActiveView().RotateAboutCenter 0, -0.0647953
Part.ActiveView().RotateAboutCenter 0.00497947, -0.00431969
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter 0.0298768, 0.0518363
Part.ActiveView().RotateAboutCenter 0.0547742, 0.116632
Part.ActiveView().RotateAboutCenter 0.0398358, 0.0518363
Part.ActiveView().RotateAboutCenter 0.00497947, 0.0215984
Part.ActiveView().RotateAboutCenter -0.00497947, 0.00431969
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter -0.00497947, 0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, 0.0172788
Part.ActiveView().RotateAboutCenter 0, 0.00863938
Part.ActiveView().RotateAboutCenter -0.00497947, 0.0172788
Part.ActiveView().RotateAboutCenter 0, 0.0215984
Part.ActiveView().RotateAboutCenter -0.00497947, 0.00431969
Part.ActiveView().RotateAboutCenter -0.00497947, 0
Part.ActiveView().RotateAboutCenter 0, -0.00431969
Part.ShowNamedView2 "*Isometric", 7
Part.ViewDispTempRefaxes
Part.ViewDispOrigins
Part.ViewDispRefaxes
Part.EditRebuild
Part.ClearSelection
Part.SelectByID "Line1@Sketch1", "EXTSKETCHSEGMENT", 0, 0.04494727008284, 0
Part.SelectByID "Line1@Sketch1", "EXTSKETCHSEGMENT", 0, 0.04736993299383, 0
Part.ClearSelection
Part.SelectByID "", "FACE", 0.1713317208209, 0.01040469558984, 0.02279190386059
Part.SelectByID "", "FACE", 0.1713317208209, 0.009384400160002, 0.02080933110926
Part.OpenCompFile
Set Part = swApp.OpenDoc ("I:\Dropoff\ISUShousing\endCap.SLDPRT", 1)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("endCap.SLDPRT")
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isometric", 7
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Line1@Sketch1", "EXTSKETCHSEGMENT", 0, 0.04634963756394, 0
Part.SelectByID "", "FACE", 0.1713317208209, 0.04928029324986, -0.007360525479896
Part.SelectByID "Line1@Sketch1", "EXTSKETCHSEGMENT", 0, 0.0333462581828, 0
Part.SelectByID "Line1@Sketch1", "EXTSKETCHSEGMENT", 0, 0.03372833023406, 0
Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 1, "Sketch1"
Part.ClearSelection
' MSGBOX
' Please select a planar face.

Part.SelectByID "", "EDGE", 0.1712106506772, 0.06147660893646, -0.03024542960605
Part.AddDimension 0.222554, 0.127026, -0.024008
Part.ClearSelection
Part.SelectByID "", "FACE", 0.1713317208209, 0.04074447751924, 0.01783882919875
Part.AndSelectByID "", "EDGE", -0.4915256689883, 0.0492699620259, 0.0463168644439
Part.AddDimension -0.129329, 0.268544, 0.0715563
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.EditRebuild
Part.ClearSelection
Part.ViewZoomtofit2
Part.SelectByID "RD1@Annotations", "DIMENSION", 0.1096212669719, 0.006137068939219, -0.1619815085989
Part.ClearSelection
Part.SelectByID "RD1@Annotations", "DIMENSION", 0.06437995353689, -0.183620774409, 0.01955847168221
Part.SelectByID "RD1@Annotations", "DIMENSION", 0.06437995353689, -0.183620774409, 0.01955847168221
Part.SelectByID "RD2@Annotations", "DIMENSION", -0.2416177207322, 0.1501877384597, -0.06886336785486
Part.SelectByID "RD2@Annotations", "DIMENSION", -0.2408077608589, 0.1502970399561, -0.06943742356632
Part.ClearSelection
Part.EditRebuild
Part.SelectByID "", "FACE", -0.179741517297, 0.05651761462457, 0.03535890789033
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("endCap.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDrawing2 (13, """", 0, 0.279400, 0.215900)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 845
swApp.ActiveDoc.ActiveView.FrameHeight = 282
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
Part.SelectByID "isusHousing.SLDASM", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
Part.Create3rdAngleViews "I:\Dropoff\ISUShousing\isusHousing.SLDASM"
Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1150565571429, 0.1614315142857, 0
Part.SelectByID "Sheet1", "SHEET", 0.1716840428571, 0.1152906, 0
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
Part.CreateDrawViewFromModelView "I:\Dropoff\ISUShousing\isusHousing.SLDASM", "Current", 0.1528082142857, 0.1048040285714, 0
' MSGBOX
' SolidWorks has determined that this view may need Isometric (True) dimensions
' instead of standard Projected dimensions.
' Do you want to switch the view to use Isometric (True) dimensions?

Part.ClearSelection
Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1192511857143, 0.05132251428571, 0
Part.EditDelete
Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1171538714286, 0.1593342, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.2178249571429, 0.046079228547, -3498.898955369
Part.EditDelete
' MSGBOX
' None of the selected entities could be deleted.

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.2165913811659, 0.06120522959641, 0
Part.EditDelete
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.1918839013453, 0.1187140188341, 0
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.1918839013453, 0.1191400098655, 0
Part.SelectByID "Sheet1", "SHEET", 0.1995517399103, 0.1821866825112, 0
Part.SelectByID "Sheet1", "SHEET", 0.1995517399103, 0.1817606914798, 0
Part.ClearSelection
Part.SetupSheet4 "Sheet1", 0, 13, 1, 4, 0, "*.drt", 0.2794, 0.2159, "Default"
Part.SelectByID "", "EDGE", 0.2136094439462, 0.05609333720926, -1499.535510513
Part.AddDimension 0.19657, 0.0356458, 0
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.1961438116592, 0.035645767713, 0
Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.1965698026906, 0.03607175874439, 0
Part.ViewZoomtofit2
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "", "EDGE", 0.0794222690583, 0.1426682690478, -1499.752349503
Part.AndSelectByID "", "EDGE", 0.214461426009, 0.07749164124513, -1499.474198304
Part.AddDimension 0.175696, 0.137556, 0
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.1756962421525, 0.1384083587444, 0
Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.1756962421525, 0.1384083587444, 0
Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.196995793722, 0.03574452017937, 0
Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.1974217847534, 0.03574452017937, 0
Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.1978477757848, 0.03617051121076, 0
Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.1978477757848, 0.03617051121076, 0
Part.SetPickMode
Part.ClearSelection
' 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.SaveAs2 "I:\Dropoff\ISUShousing\isusedrawing.SLDDRW", 0, FALSE, FALSE
Part.ViewZoomtofit2
swApp.CallBack "EDWSolidWorksu@eDrawingPublish", 0, "" 
Part.SelectByID "Sheet1", "SHEET", 0.2634503946188, 0.2018810224215, 0
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Set Part = swApp.ActivateDoc ("isusedrawing - Sheet1")
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.1800733, 0.1551395714286, 0
Part.ClearSelection
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.2115330142857, 0.1677234571429, 0
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.2094357, 0.1582855428571, 0
Part.ClearSelection
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.2293601857143, 0.1656261428571, 0
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.1853165857143, 0.1666748, 0
Part.EditSketch
Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.1958031571429, 0.1698207714286, 0
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
Set Part = swApp.ActivateDoc ("isusedrawing - Sheet1")
Part.SelectByID "Sheet1", "SHEET", 0.05633175714286, 0.08907417142857, 0
Part.ClearSelection
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
Set Part = swApp.ActivateDoc ("isusedrawing - Sheet1")
Part.CreateDrawViewFromModelView "I:\Dropoff\ISUShousing\isusHousing.SLDASM", "Current", 0.08045087142857, 0.03768997142857, 0
Part.SelectByID "", "FACE", 0.1077159571429, 0.04293325713239, -1499.61141075
Part.SelectByID "Point1@Origin@isusHousing-5@Drawing View5/cylinder-1@isusHousing", "EXTSKETCHPOINT", 0, 0, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.1758786714286, 0.03873862857143, 0
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.1800733, 0.0492252, 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.01807956053812, 0.03191060089686, 0
Part.ViewZoomtofit2
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.2012272069106, 0.03422356039602, 0
Part.CreateUnfoldedViewAt2 0.2512637695247, 0.0272034, 0, 0
Part.ClearSelection
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.0223354255292, 0.02758153881008, 0
Part.CreateLine2 -0.6962943492698, -0.4528117645918, 0, 0.04761206835592, -0.4528117645918, 0
Part.MakeSectionLine
Part.CreateSectionViewAt 0.1968518142857, 0.2268421863884, 0, 0, 0
Part.EditUndo 1
Part.SelectByID "Section Line1", "SECTIONLINE", 0.0856560313152, 0.03023834744446, 0
Part.CreateSectionViewAt 0.1968518142857, 0.1081714007195, 0, 0, 0
Part.SelectByID "Drawing View8", "DRAWINGVIEW", 0.1587182687606, 0.06300565393511, 0
Part.SelectByID "Drawing View8", "DRAWINGVIEW", 0.1591610701996, 0.06300565393511, 0
Part.SelectByID "Drawing View8", "DRAWINGVIEW", 0.1516334457356, 0.07009047696012, 0
Part.EditDelete
Part.SelectByID "Section Line1", "SECTIONLINE", 0.1139953234152, 0.02802434024914, 0
Part.SelectByID "Section Line1", "SECTIONLINE", 0.1139953234152, 0.02802434024914, 0
Part.EditDelete
Part.SelectByID "Line1", "SKETCHSEGMENT", -0.3066290828944, -0.4528117645918, 0
Part.EditDelete
Part.CreateLine2( -0.7264048471261, -0.4652102048856, 0, 0.04229845108716, -0.4545829703481, 0 ).ConstructionGeometry = TRUE
Part.CreateSectionViewAt 0.19505839407, 0.2722797479807, 0, 0, 0
Part.SelectByID "Drawing View9", "DRAWINGVIEW", 0.119308940684, 0.2582810885619, 0
Part.EditDelete
Part.SelectByID "Section Line2", "SECTIONLINE", 0.1139953234152, 0.02802434024914, 0
Part.EditDelete
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.2800483606609, -0.4590393778838, 0
Part.EditDelete
Part.SelectByID "", "FACE", 0.112224117659, 0.03378075894649, -1499.613605085
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.2078692284966, 0.02846714168821, 0
Part.ClearSelection
Part.SelectByID "Drawing View5", "DRAWINGVIEW", 0.2056552213013, 0.02802434024914, 0
Part.EditSketch
Part.ClearSelection
Part.CreateLine2 -0.3766649153618, -0.000258650515933, 0, 0.3849535598265, -0.000258650515933, 0
Part.MakeSectionLine
' MSGBOX
' An aligned section can only be generated
' from a section line with two segments.

Part.ClearSelection
Part.SelectByID "Section Line3", "SECTIONLINE", 0.1184233378059, 0.02846714168821, 0
Part.CreateSectionViewAt 0.1129592428571, 0.076289697107, 0, 0, 0
Part.SelectByID "Sheet1", "SHEET", 0.04536110036048, 0.1927464755805, 0
Part.ClearSelection
Part.ViewZoomtofit2
swApp.CallBack "EDWSolidWorksu@eDrawingPublish", 0, "" 
Set Part = Nothing
swApp.CloseDoc "isusedrawing - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 282
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("isusHousing.SLDASM")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "isusHousing.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 564
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("endCap.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "endCap.SLDPRT"
swApp.ExitApp
End Sub