Additional information. This is the journal file from the time I selected the assembly till after the save. Notice that save is not logged. It is like it hasn't started saving yet. The selectby just keeps repeating over and over.
swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("400459.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 1 ' MSGBOX ' 400459 - Rebuild Errors
' MSGBOX ' Warning: 400522 has rebuild errors
' 401901 has rebuild errors
' Coincident171: Warning: One of the entities of this mate is suppressed, invalid, or no longer present.
Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050064-1@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050064-1@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-64@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-64@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-65@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-65@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-66@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-66@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-67@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-67@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-68@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-68@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-69@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-69@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-70@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-70@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-71@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("050047-71@400459", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True