Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

Dim sFilter(0)
sFilter(0) = "HybridShapeExtract"
selection1.SelectElement (sFilter),"bitte auswählen",True

Dim oSelElem As AnyObject
Set oSelElem = selection1.Item(1)

Set extract = oSelElem.value

MsgBox "Die gewählte Fläche heisst :"& extract.name
	

End Sub