{*****************************************************************************
 * DESCRIPTION:    This file contains Title Block Management macros that may *
 *                 be customized.                                            *
 *                                                                           *
 * MACRO                   FUNCTION                                          *
 * --------------          ------------------------------------------------- *
 * Tb_initialize           Loads the TB logical table with the names of all  *
 *                         'drawings' class attributes.  Must be editted to  *
 *                         include additional TB names.                      *
 *                                                                           *
 * Tb_get_values           Loads the TB logical table with the values        *
 *                         corresponding to the attributes of the 'drawings' *
 *                         class for the current drawing (top part).  Must   *
 *                         be editted to retrieve the values for any         *
 *                         additional TB names added to the Tb_initialize    *
 *                         macro.                                            *
 *****************************************************************************}

DEFINE Tb_initialize
  LOCAL num_draw_attr

  LET Tb_init FALSE
  TB_SETUP_TABLE Tb_ltab
  LET num_draw_attr (LTAB_ROWS Tb_ltab)
{*****************************************************************************}
{*** add user-defined TB-TR names after this line. ***}

{*** add user-defined TB-TR names before this line. ***}
{*****************************************************************************}
  LET Tb_init TRUE
END_DEFINE

DEFINE Tb_get_values
  LOCAL index_1

{*get attributes values of current drawing, if loaded from DMS****************}
  ON_ERROR 'Tb_clear_values'
  TB_GET_DRAW_VALUES
{*****************************************************************************}
{*** add user-defined TB-TR data-retrieval commands after this line. ***}

{*** add user-defined TB-TR data-retrieval commands before this line. ***}
{*****************************************************************************}
  ON_ERROR ''
END_DEFINE
