Thmyl-catia-v5

Wall thickness must be between 2mm and 5mm for injection-molded parts.

Dim faceRef As Reference Set faceRef = sel.Item(1).Value 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 Wall thickness must be between 2mm and 5mm

Dim hole As HybridShapeHole Set hole = factory2D.AddNewHole(faceRef, 10#, 0#, 20#, 0#, 0#, 0#) hb.AppendHybridShape hole part.Update thmyl-catia-v5

MsgBox "THMYL Hole created successfully" End Sub THMYL sometimes includes Knowledgeware (.CATRule) files that enforce design standards. Example:

thmyl-catia-v5
10
0
Would love your thoughts, please comment.x
()
x