' ****************************************************************************** ' swxJRNL.swj - journal recorded on 02/18/05 by hamilton ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("\\tornado\ProjectLibrary\900434.MOOS-VP\Project.Drawings\VP Buoy\Post_Spacer.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Post_Spacer - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View12", "DIMENSION", 0.1780858370237, 0.1467653323522, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.ViewZoomTo2 0.287277, 0.23626, -1.67165e-015, 0.332239, 0.205857, -1.45935e-015 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3022353327594, 0.2237839548521, -499.9424804154, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3004473507604, 0.2217343169508, -499.9424804154, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.3002729134922, 0.2220831914872, -499.9424804154, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.30193006754, 0.223696736218, -499.9424804154, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.307294, 0.223348, -1.52755e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD11@Drawing View15", "DIMENSION", 0.3072067949029, 0.2235222989533, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD11@Drawing View15", "DIMENSION", 0.3241272099179, 0.2281884958775, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD11@Drawing View15", "DIMENSION", 0.3249557869418, 0.2151493100799, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3014067557354, 0.2230425964622, -499.9424804154, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3030203004662, 0.223696736218, -499.9424804154, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3003601321263, 0.2209929585609, -499.9424804154, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3008834439308, 0.2227373312429, -499.9424804154, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.2977, 0.218856, -1.52755e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD12@Drawing View15", "DIMENSION", 0.2977435731033, 0.2185944461267, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD12@Drawing View15", "DIMENSION", 0.3305383586558, 0.2028822882937, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("RD12@Drawing View15", "DIMENSION", 0.3353533390151, 0.1905876593676, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3001010677757, 0.2200270560907, -499.9424804154, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.3017886765052, 0.2243398339551, -499.9424804154, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3006636040188, 0.2183394473611, -499.9424804154, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.3017886765052, 0.2235897856308, -499.9424804154, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.286413, 0.265217, -1.52755e-015) Part.ClearSelection2 True Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.SetPickMode Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0220555, 0.202079, -1.27087e-015, 0.103998, 0.0869981, -4.67265e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem111@Drawing View12", "CENTERMARKSYM", 0.06424189491248, 0.1207361053562, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07024611933902, 0.1238811752904, -499.8555740174, False, 0, Nothing) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.ConnectionLines = 0 End If Part.ClearSelection2 True Part.SetPickMode Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07038907706347, 0.1238811752904, -499.8555740174, False, 0, Nothing) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.ConnectionLines = 0 End If Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07310527382786, 0.1253107525348, -499.823325, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05952429000591, 0.1128734305084, -499.823325, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0407968, 0.115161, -8.87347e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View12", "DIMENSION", 0.04222640534848, 0.1157325850007, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View12", "DIMENSION", 0.03951020858409, 0.1147318809296, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Drawing View12", "DIMENSION", 0.03266253358333, 0.1024403757821, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View12", "DIMENSION", 0.04048518026478, 0.1162329370363, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07012889400498, 0.123849724591, -499.8555740174, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07074647137457, 0.1232321472214, -499.8555740174, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0417203, 0.100176, -8.87347e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD4@Drawing View12", "DIMENSION", 0.04172033500395, 0.09997006630378, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Drawing View12", "DIMENSION", 0.02833949199622, 0.1036755305213, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD4@Drawing View12", "DIMENSION", 0.03760315254004, 0.1009993619198, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View12", "DIMENSION", 0.03842658903282, 0.1077927129852, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05263086853333, 0.1759320827596, -499.8470322092, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05777734661323, 0.1886953483977, -499.8300648491, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05304258677972, 0.1759320827596, -499.8452331277, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05736562836684, 0.1886953483977, -499.8300648491, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0452199, 0.159669, -1.52755e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06189452907715, 0.1919890943688, -499.8298571017, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06148281083076, 0.1882836301513, -499.8359874235, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06210038820034, 0.192194953492, -499.8300553082, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06127695170756, 0.1882836301513, -499.8358270211, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0394559, 0.203723, -1.52755e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD3@Drawing View11", "DIMENSION", 0.03204495621375, 0.2031054870249, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View11", "DIMENSION", 0.03183909709055, 0.2037230643945, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Drawing View11", "DIMENSION", 0.03719143429364, 0.1596692120306, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View11", "DIMENSION", 0.03183909709055, 0.2033113461481, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View11", "DIMENSION", 0.03410354744571, 0.2043406417641, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Drawing View11", "DIMENSION", 0.02525160514828, 0.1582281981682, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Drawing View11", "DIMENSION", 0.03142737884416, 0.1594633529074, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD2@Drawing View11", "DIMENSION", 0.03080980147457, 0.1609043667698, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View11", "DIMENSION", 0.02483988690189, 0.2037230643945, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.Save2 FALSE Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub