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;
                } 
        }
}
}