home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / acad / ARMARIO.DCL < prev    next >
Encoding:
Text File  |  1994-04-04  |  4.5 KB  |  147 lines
  1. /* ARMARIO.DCL
  2.    Realizado por Javier Erce 
  3.    Versión 2.12 para autocad 12
  4.    Para su uso con la rutina ARMARIO.LSP Versión 2.12
  5.    Abril de 1.994
  6. */
  7.  
  8. op_arma : dialog {
  9.     label = "Opciones de dibujo de Armarios";
  10.     spacer_1;
  11.     :boxed_row {
  12.        label = "Tipología de Armarios y Representación";
  13.          : boxed_radio_column {
  14.             label = "Tipo de armario";
  15.             : radio_button {
  16.                  label = "Abatible";
  17.                  mnemonic = "A";
  18.                  key = "armario_abat";
  19.                  value = "1";
  20.             }
  21.             : radio_button {
  22.                  label = "Corredero";
  23.                  mnemonic = "C";
  24.                  key = "armario_corr";
  25.             }
  26.          }
  27.     }    
  28.     spacer_1;
  29.     :boxed_row {     
  30.       label = "Características de Armarios";
  31.          : boxed_column {
  32.             label = "Tipo de hojas";
  33.             : edit_box {
  34.                  key = "armario_nume";
  35.                  label = "Número de hojas";
  36.                  mnemonic = "N";
  37.                  edit_width = 7;
  38.             }
  39.             : edit_box {
  40.                  key = "armario_lon1";
  41.                  label = "Medida de hoja";
  42.                  mnemonic = "M";
  43.                  edit_width = 7;
  44.             }
  45.             : edit_box {
  46.                  key = "armario_espe";
  47.                  label = "Espesor de hoja";
  48.                  mnemonic = "E";
  49.                  edit_width = 7;
  50.             }
  51.          }   
  52.          : boxed_column {
  53.             label = "Tipo de cercos";
  54.             : edit_box {
  55.                  key = "armario_cean";
  56.                  label = "Grueso del cerco";
  57.                  mnemonic = "G";
  58.                  edit_width = 7;
  59.             }
  60.             : edit_box {
  61.                  key = "armario_cefo";
  62.                  label = "Fondo máx. cerco";
  63.                  mnemonic = "F";
  64.                  edit_width = 7;
  65.             }
  66.          }   
  67.     }
  68.     spacer_1;
  69.     : boxed_column {
  70.        label = "Medidas del armario";
  71.        : edit_box {
  72.             key = "armario_long";
  73.             label = "Longitud total del armario:";
  74.             mnemonic = "L";
  75.             edit_width = 7;
  76.        }
  77.     }
  78.     spacer_1;
  79.     : toggle {
  80.         key = "armario_refe";
  81.         label = "Trabajar con punto de referencia";
  82.     }
  83.     : toggle {
  84.         key = "armario_cent";
  85.         label = "Centrar el armario en el muro";
  86.     }
  87.     spacer_1;
  88.     : row {
  89.         : spacer { width = 1; }
  90.         : button {
  91.             label = "Vale";
  92.             key = "aceptar";
  93.             width = 8;
  94.             fixed_width = true;
  95.         }
  96.         : button {
  97.         label = "Anular";
  98.         is_cancel = true;
  99.         key = "anular";
  100.         width = 8;
  101.         fixed_width = true;
  102.         }
  103.         : button {
  104.         label = "Información...";
  105.         key = "armario_info";
  106.         mnemonic = "I";
  107.         width = 15;
  108.         fixed_width = true;
  109.     }
  110.     : spacer { width = 1;}
  111.    }
  112. }
  113. //***************************************************************************
  114. // Cuadro diálogo de información
  115.  
  116. op_armario_info : dialog {
  117.     label = "Información del Programa";
  118.     spacer_1;
  119.     :paragraph {
  120.        children_alignment = centered;
  121.        : text_part { label = "Dibujo parametrizado de Armarios"; }
  122.        : text_part { label = "    "; }
  123.        : text_part { label = "ARMARIO"; }
  124.        : text_part { label = "    "; }
  125.        : text_part { label = "Versión 2.12 (Abril de 1.994)"; }
  126.        : text_part { label = "Para su uso con AutoCad 12"; }
  127.        : text_part { label = "*******"; }
  128.        : text_part { label = "Realizado por Javier Erce Lizarraga."; }
  129.        : text_part { label = "Avda. Reyes Católicos nº 17 - 28280 El Escorial"; }
  130.        : text_part { label = "Teléfono 91 - 890.05.85"; }
  131.     }
  132.     spacer_1;
  133.     : paragraph {
  134.         children_alignment = centered;
  135.         : text_part { label = "El autor ofrece el programa ARMARIO completo, para que cual"; }
  136.         : text_part { label = "quier usuario lo pueda evaluar y probar libremente. Y si se"; }
  137.         : text_part { label = "decide a utilizarlo y quiere  estar  al día de las  últimas"; }
  138.         : text_part { label = "actualizaciones de este y otros programas LISP de Arquitec-"; }
  139.         : text_part { label = "tura para AutoCad, enviar 5.000 pesetas con todos sus datos"; }
  140.         : text_part { label = "a las señas arriba indicadas.                              "; }
  141.     }
  142.     spacer_1;
  143.     ok_only;
  144.     spacer_1;
  145. }
  146.  
  147.