Hi Olaf
Probiers mal damit:
'____________________________________________________________
Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Search "CATKnowledgeSearch.DesignTableType,all"
For iI = 1 To CATIA.ActiveDocument.selection.Count
CATIA.ActiveDocument.selection.Item(iI).Value.Deactivate
Next
End Sub
'____________________________________________________________
------------------
Gruss BADU
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP