Assemble isa CATPart
  {
    Assemble isa Part 
      {
        Open_body.1 isa OpenBodyFeature
          {
            P1 isa GSMPoint
               {
                 PointType = 0;
                 TypeObject isa GSMPointCoord
                    {
                      X = 20mm;
                    }
               }
            P2 isa GSMPoint
               {
                 PointType = 0;
                 TypeObject isa GSMPointCoord
                    {
                      X = -20mm;
                    }
               }
            L isa GSMLine
               {
                 LineType = 0;
                 TypeObject isa GSMLinePtPt
                    {
                      FirstPoint = object: ..\..\P1;
                      Length1 = 20mm;
                      Length2 = 0mm;
                      SecondPoint = object : ..\..\P2;
                    }
               }
            dir1 isa GSMDirection
               {
                 DirType = object : ..\..\`xy-plane`;
               }
          Extru1 isa GSMExtrude 
               {
                Element1 = object : ..\L;
                Length1 = 20mm;
                Length2 = 0mm;
                // Direction = object: ..\dir1;
                Direction = object : ..\..\`xy-plane`;
               } 
           Extru2 isa GSMExtrude
               {
                 Element1 = object : ..\L;
                 Length1 = 0mm;
                 Length2 = 20mm;
                 Direction = object : ..\..\`xy-plane`;
               } 
            myAssemble isa GSMAssemble
               {
                 Elements[1] = object: ..\Extru1;
                 Elements[2] = object: ..\Extru2;
               }
         }
       }
     }