Option Explicit

Sub CATMain()
    
    Dim prodDoc As ProductDocument
    Set prodDoc = CATIA.ActiveDocument
    
    Dim iSel As selection
    Set iSel = prodDoc.selection
    
    iSel.Search "CATAsmSearch.Product,all"
    
    Dim selCount As Long
    selCount = iSel.Count
    Dim Sel()
    ReDim Sel(selCount)
    Dim I As Integer
    
    I = 1
    For I = 1 To selCount
        Set Sel(I) = iSel.Item(I).Value
    Next
    
    iSel.Clear
    
    Dim K As Integer
    
    I = 1
    For I = 1 To selCount
        K = 1
        For K = 1 To Sel(I).Publications.Count
	    On Error Resume Next
            iSel.Add Sel(I).Publications.Item(K).Valuation
	    On Error Goto 0
        Next
    Next
    
    iSel.Search ("CATPrtSearch.Plane+CATPrtSearch.Point+CATPrtSearch.Line+CATPrtSearch.Curve,sel")
    
    iSel.VisProperties.SetShow catVisPropertyNoShowAttr
    
End Sub