Thmyl-catia-v5 Here
Dim faceRef As Reference Set faceRef = sel.Item(1).Value
MsgBox "THMYL Hole created successfully" End Sub THMYL sometimes includes Knowledgeware (.CATRule) files that enforce design standards. Example: thmyl-catia-v5
' Create a hole Dim hybridBodies As HybridBodies Set hybridBodies = part.HybridBodies Dim hb As HybridBody Set hb = hybridBodies.Add() Dim factory2D As Factory2D Set factory2D = hb.HybridShapeFactory Dim faceRef As Reference Set faceRef = sel