Language="VBSCRIPT"

Sub CATMain()

CATIA.RefreshDisplay = False
CATIA.ActiveDocument.Selection.clear

		If CATIA.ActiveDocument.Part.Bodies.Item(1).Shapes.Count>0 then
			For j=1 to CATIA.ActiveDocument.Part.Bodies.Item(1).Shapes.Count
				If left(CATIA.ActiveDocument.Part.Bodies.Item(1).Shapes.Item(j).Name,7)="Remove." then
					If CATIA.ActiveDocument.Part.Bodies.Item(1).Shapes.Item(j).Body.Name="BodyToRemove" then
						CATIA.ActiveDocument.Selection.Add CATIA.ActiveDocument.Part.Bodies.Item(1).Shapes.Item(j)
					End if
				End if
			Next
		End if

If CATIA.ActiveDocument.Selection.Count>0 then
	CATIA.ActiveDocument.Selection.Delete 
End if

CATIA.ActiveDocument.Selection.clear
CATIA.RefreshDisplay = True

End Sub