Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Search "Topology.CGMVertex,all"
MsgBox selection1.Count2 & " Vertex are found from the selected face"
CATIA.StartCommand "Extract"
End Sub