Sub CATMain()
'Autor Ferdo en http://www.auxcad.com/smf/index.php?topic=1779.msg13233#msg13233
'adaptado para constraint y con mensajes por el Juanri fttp://www.muchocatia.es/


Set  ProductDocument1 = CATIA.ActiveDocument

Set Product1 = ProductDocument1. Product

Dim ProductDoc1 As Document
Set ProductDoc1 = Catia.ActiveDocument

Dim Selection1 As Selection
Set Selection1 = ProductDoc1.Selection

MsgBox "Ocultando superficies. Espere por favor.."
Selection1.Search "CatPrtSearch.Surface,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

MsgBox "Ocultando constraint. Espere por favor.."
selection1.Search "CATAsmSearch.MfConstraint,scr"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

MsgBox "Ocultando Ejes. Espere por favor.."
Selection1.Search "CatPrtSearch.AxisSystem,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

Selection1.Search "CatPrtSearch.AxisSystem.Name=Axis' 'System*,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
MsgBox "Ocultando Lineas. Espere por favor.."
Selection1.Search "CatPrtSearch.Line,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
MsgBox "Ocultando Curvas. Espere por favor.."
Selection1.Search "CatPrtSearch.Curve,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
MsgBox "Ocultando Sketch. Espere por favor.."
Selection1.Search "CatPrtSearch.Sketch,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear
MsgBox "Ocultando Puntos. Espere por favor.."
Selection1.Search "CatPrtSearch.Point,All"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

selection1.Search "CATGmoSearch.OpenBodyFeature,all"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

'Part1.Update 

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D
MsgBox "Terminado y centrando"
viewer3D1.Reframe 

Set viewpoint3D1 = viewer3D1.Viewpoint3D

End Sub