' ****************************************************************************** ' swxJRNL.swj - journal recorded on 08/16/04 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 ("C:\Documents and Settings\hamilton\My Documents\MOOS\MOOS Riser Cable\CableGuage\Guage.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Guage - 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 Part.EditSketch Part.EditSketch Part.EditSketch Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("Material:") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.1239227581553, 0.03358137465664, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditUndo 1 Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("Material:") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.3280166131322, 0.07684316436497, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Set Note = Part.InsertNote("Part is symmetric about centerline.") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.1147614379818, 0.03612618581596, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.SetPickMode boolstatus = Part.Extension.SelectByID("DetailItem101@Drawing View2", "NOTE", 0.1249406826191, 0.03510826135223, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\Termination_Assembly-Lower\Lower-Term-Assem.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\Termination_Assembly-Lower\Lower-Term-Assem.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Lower-Term-Assem") boolstatus = Part.Extension.SelectByID("", "FACE", 0.0327835726988, 0.3341673183829, 0.02717200690745, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "FACE", 0.05915343131159, 0.2782740156962, -0.01379692397586, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.05915343131159, 0.2782740156962, -0.01379692397586, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\Termination_Assembly-Lower\Term-Cone_Lower_V2.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("X:\600027.MOOS.Mooring\Project.Drawings\Mech_200403_MTM2\Drawings_MOOS_MTM2\Termination_Assembly-Lower\Term-Cone_Lower_V2.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Term-Cone_Lower_V2") Part.ClearSelection2 True Part.ViewZoomtofit2 Part.SetPickMode Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0438154, -0.040599 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0438154, -0.040599 Part.ActiveView().RotateAboutCenter 0.0312967, -0.040599 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0304493 Part.ActiveView().RotateAboutCenter 0.018778, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0507488 Part.ActiveView().RotateAboutCenter 0.0250374, -0.040599 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0811981 Part.ActiveView().RotateAboutCenter 0.0125187, -0.243594 Part.ActiveView().RotateAboutCenter 0.00625934, -0.345092 Part.ActiveView().RotateAboutCenter -0.0125187, -0.0811981 Part.ActiveView().RotateAboutCenter -0.018778, -0.0202995 Part.ActiveView().RotateAboutCenter -0.0876308, -0.142097 Part.ActiveView().RotateAboutCenter -0.137705, -0.111647 Part.ActiveView().RotateAboutCenter -0.225336, -0.202995 Part.ActiveView().RotateAboutCenter -0.112668, -0.040599 Part.ActiveView().RotateAboutCenter -0.0438154, 0 Part.ActiveView().RotateAboutCenter -0.18778, 0 Part.ActiveView().RotateAboutCenter -0.175262, 0.0304493 Part.ActiveView().RotateAboutCenter -0.0688527, 0.040599 Part.ActiveView().RotateAboutCenter -0.175262, 0.0811981 Part.ActiveView().RotateAboutCenter -0.125187, 0.111647 Part.ActiveView().RotateAboutCenter -0.0500747, 0.0811981 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0507488 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0304493 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0304493 Part.ActiveView().RotateAboutCenter -0.00625934, 0.040599 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0710483 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0811981 Part.ActiveView().RotateAboutCenter -0.018778, 0.0608986 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0202995 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.118927, -0.040599 Part.ActiveView().RotateAboutCenter -0.0500747, 0.182696 Part.ActiveView().RotateAboutCenter -0.0312967, 0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.0438154, 0.0101498 Part.ActiveView().RotateAboutCenter -0.037556, 0.0202995 Part.ActiveView().RotateAboutCenter -0.0500747, 0.0202995 Part.ActiveView().RotateAboutCenter -0.0500747, 0.0304493 Part.ActiveView().RotateAboutCenter -0.0625934, 0.0507488 Part.ActiveView().RotateAboutCenter -0.0500747, 0.040599 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0202995 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0312967, 0.0202995 Part.ActiveView().RotateAboutCenter -0.0312967, 0.0202995 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0202995 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, 0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, 0.0202995 Part.ActiveView().RotateAboutCenter 0, 0.0202995 Part.ActiveView().RotateAboutCenter 0.0250374, 0.111647 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0811981 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0507488 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0304493 Part.ActiveView().RotateAboutCenter 0, 0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0304493 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0101498 Part.ActiveView().RotateAboutCenter 0, 0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.018778, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0312967, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, -0.0202995 Part.ActiveView().RotateAboutCenter 0.018778, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, 0 Part.ActiveView().RotateAboutCenter 0.018778, -0.0202995 Part.ActiveView().RotateAboutCenter 0.018778, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, -0.0101498 Part.ActiveView().RotateAboutCenter 0.037556, -0.0304493 Part.ActiveView().RotateAboutCenter 0.037556, -0.0304493 Part.ActiveView().RotateAboutCenter 0.018778, -0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, -0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0101498 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0312967, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0312967, -0.0304493 Part.ActiveView().RotateAboutCenter 0.037556, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0500747, -0.0507488 Part.ActiveView().RotateAboutCenter 0.0312967, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0438154, -0.0202995 Part.ActiveView().RotateAboutCenter 0.037556, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.0438154, -0.0101498 Part.ActiveView().RotateAboutCenter 0.037556, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter -0.0500747, -0.0811981 Part.ActiveView().RotateAboutCenter -0.118927, 0.0710483 Part.ActiveView().RotateAboutCenter -0.150224, 0.0710483 Part.ActiveView().RotateAboutCenter -0.0500747, 0 Part.ActiveView().RotateAboutCenter -0.0312967, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.0250374, 0 Part.ActiveView().RotateAboutCenter -0.0312967, 0 Part.ActiveView().RotateAboutCenter -0.0250374, 0 Part.ActiveView().RotateAboutCenter -0.0438154, 0.0202995 Part.ActiveView().RotateAboutCenter -0.037556, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0312967, 0.0101498 Part.ActiveView().RotateAboutCenter -0.037556, 0.0101498 Part.ActiveView().RotateAboutCenter -0.018778, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.018778, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, -0.0710483 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0507488 Part.ActiveView().RotateAboutCenter 0.018778, -0.0811981 Part.ActiveView().RotateAboutCenter 0.0125187, -0.040599 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0304493 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0125187, -0.040599 Part.ActiveView().RotateAboutCenter 0.0125187, -0.0507488 Part.ActiveView().RotateAboutCenter 0, -0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0304493 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, -0.0101498 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0304493 Part.ActiveView().RotateAboutCenter 0.018778, 0.0811981 Part.ActiveView().RotateAboutCenter 0.00625934, 0.040599 Part.ActiveView().RotateAboutCenter 0, 0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0202995 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0101498 Part.ActiveView().RotateAboutCenter 0, 0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0304493 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0608986 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0608986 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0507488 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0608986 Part.ActiveView().RotateAboutCenter 0.00625934, 0.0608986 Part.ActiveView().RotateAboutCenter 0.018778, 0.0811981 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0608986 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0811981 Part.ActiveView().RotateAboutCenter 0.0125187, 0.0608986 Part.ActiveView().RotateAboutCenter 0.0125187, 0.040599 Part.ActiveView().RotateAboutCenter 0, 0.0304493 Part.ActiveView().RotateAboutCenter 0, 0.0202995 Part.ActiveView().RotateAboutCenter 0, 0.0101498 Part.ActiveView().RotateAboutCenter 0, 0.0101498 Part.ActiveView().RotateAboutCenter 0, -0.0101498 Part.ActiveView().RotateAboutCenter -0.018778, -0.0608986 Part.ActiveView().RotateAboutCenter -0.137705, -0.0608986 Part.ActiveView().RotateAboutCenter -0.0625934, -0.0304493 Part.ActiveView().RotateAboutCenter -0.0250374, 0 Part.ActiveView().RotateAboutCenter -0.00625934, -0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.0438154, -0.0101498 Part.ActiveView().RotateAboutCenter -0.018778, -0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.018778, 0 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.018778, 0 Part.ActiveView().RotateAboutCenter -0.018778, 0.0101498 Part.ActiveView().RotateAboutCenter -0.018778, 0 Part.ActiveView().RotateAboutCenter -0.018778, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0101498 Part.ActiveView().RotateAboutCenter -0.018778, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0250374, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter 0, 0.0101498 Part.ActiveView().RotateAboutCenter -0.00625934, 0 Part.ActiveView().RotateAboutCenter -0.0312967, 0.0101498 Part.ActiveView().RotateAboutCenter -0.0125187, 0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.131446, -0.0101498 Part.ActiveView().RotateAboutCenter 0.18778, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0312967, -0.0101498 Part.ActiveView().RotateAboutCenter 0.037556, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0625934, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0101498 Part.ActiveView().RotateAboutCenter 0.018778, 0 Part.ActiveView().RotateAboutCenter 0.0563341, -0.0202995 Part.ActiveView().RotateAboutCenter 0.018778, 0 Part.ActiveView().RotateAboutCenter 0.0563341, -0.0101498 Part.ActiveView().RotateAboutCenter 0.200299, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0250374, -0.0101498 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.00625934, 0 Part.ActiveView().RotateAboutCenter 0.0125187, 0 Part.ActiveView().RotateAboutCenter 0.0312967, 0 Part.ActiveView().RotateAboutCenter 0.0625934, 0 Part.ActiveView().RotateAboutCenter 0.0500747, 0 Part.ActiveView().RotateAboutCenter 0.037556, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0438154, -0.0101498 Part.ActiveView().RotateAboutCenter 0.0688527, -0.0202995 Part.ActiveView().RotateAboutCenter 0.0438154, 0 Part.ActiveView().RotateAboutCenter 0.0125187, 0 Part.ActiveView().RotateAboutCenter 0.0250374, 0 Part.ActiveView().RotateAboutCenter 0.037556, 0.0101498 Part.ActiveView().RotateAboutCenter 0.0500747, 0.0101498 Part.ActiveView().RotateAboutCenter 0.0688527, 0.0101498 Part.ActiveView().RotateAboutCenter 0.200299, 0.0304493 Part.ActiveView().RotateAboutCenter 0.0125187, 0 Part.ActiveView().RotateAboutCenter 0.037556, 0 Part.ViewDisplayHiddengreyed Part.ViewDisplayWireframe boolstatus = Part.Extension.SelectByID("", "EDGE", -0.03372459216152, 0.0283768995011, 0.01805734568455, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.001147885191372, 0.124904193633, 0.01352772202284, True, 0, Nothing) Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "EDGE", -0.00208011808715, 0.1245207130266, 0.01391042032003, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.000473356254588, 0.195301465039, 0.01542908080461, True, 0, Nothing) Part.SetPickMode Part.SetPickMode swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("Lower-Term-Assem") Set Part = swApp.ActivateDoc ("Term-Cone_Lower_V2") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01171542685682, 0.123939240813, 0.008988175637853, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.007367152115442, 0.194762008443, 0.0132049175578, True, 0, Nothing) Part.SetPickMode Part.SetPickMode swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub