myDocument isa CATPart { myPart isa Part { OBody isa OpenBodyFeature { P1 isa GSMPoint { PointType = 0; TypeObject isa GSMPointCoord { X = 0mm; Y = 0mm; Z = 0mm; } } P2 isa GSMPoint { PointType = 0; TypeObject isa GSMPointCoord { X = 20mm; Y = 0mm; Z = 0mm; } } C isa GSMCircle { CircleType = 0; TypeObject isa GSMCircleCtrRad { Center = object : ..\..\P1; Support = object : ..\..\..\`xy-plane`; Radius = 20mm; } StartAngle = 0deg; EndAngle = 360deg; } dir isa GSMDirection { ElementDir = object : ..\..\`xy-plane`; } Extrude isa GSMExtrude { Element1 = object : ..\C; Length1 = 20mm; Length2 = 20mm; Direction = object: ..\dir; } Pln_tgt1A isa GSMPlane { PlaneType = 5; TypeObject isa GSMPlaneTangent { RefPoint = object : ..\..\P2; Support = object :..\..\C; } } C2 isa GSMCircle { CircleType = 0; TypeObject isa GSMCircleCtrRad { Center = object : ..\..\P2; Support = object : ..\..\Pln_tgt1A ; Radius = 10mm; } StartAngle = 0deg; EndAngle = 360deg; } Proj isa GSMProject { Normal = 1 ; Support = object : ..\Extrude; ToProject = object : ..\C2; } mySplit isa GSMSplit { ToCut = object : ..\Extrude; Cutting = object : ..\Proj; } } } }