' Final Update part1.Update partDoc.SaveAs "C:\Output\Part_NIP.CATPart"
' --- Non-Interactive Fillet --- ' Collect edges automatically (Assume all vertical edges) Dim edgesToFillet As Collection ' ... logic to find edges ... Dim fillet1 As EdgeFillet Set fillet1 = part1.ShapeFactory.AddNewEdgeFillet(pad1.Body) Call fillet1.AddRadius(5, edgesToFillet) NIP-Activity - Catia
Dim part1 As Part Set part1 = partDoc.Part ' Final Update part1
' Re-enable interactive mode CATIA.NonInteractive = False End Sub With the shift to Dassault’s 3DEXPERIENCE platform, the concept of NIP-Activity has evolved. It is now integrated into Cloud-Based Batch Management . NIP-Activity - Catia