Sub CATMain()
'************************
'Creado para constraint 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

selection1.Search "CATAsmSearch.MfConstraint,scr"
Set visPropertySet1 = Selection1.visProperties
VisPropertySet1.SetShow 1
Selection1.Clear

End Sub