home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / acad / PUERTA.DCL < prev    next >
Encoding:
Text File  |  1994-04-04  |  5.5 KB  |  180 lines
  1. /* PUERTA.DCL
  2.    Realizado por Javier Erce 
  3.    Versión 2.12 para autocad 12
  4.    Para su uso con la rutina PUERTA.LSP Versión 2.00
  5.    20 de Abril de 1.994
  6. */
  7.  
  8. op_puerta : dialog {
  9.     label = "Opciones de dibujo de Puertas";
  10.     spacer_1;
  11.     : boxed_row {
  12.        label = "Tipología de Puertas y Representación";
  13.            : boxed_radio_column {
  14.                label = "Número de hojas";
  15.                : radio_button {
  16.                    label = "Sencilla";
  17.                    mnemonic = "S";
  18.                    key = "puerta_simp";
  19.                    value = "1";
  20.                }
  21.                : radio_button {
  22.                    label = "Doble";
  23.                    mnemonic = "D";
  24.                    key = "puerta_dobl";
  25.                 }
  26.            }
  27.            : boxed_radio_column {
  28.                label = "Tipo de hojas";
  29.                : radio_button {
  30.                    label = "Ciega";
  31.                    mnemonic = "C";
  32.                    key = "puerta_cieg";
  33.                    value = "1";
  34.                }
  35.                : radio_button {
  36.                    label = "Vidriera";
  37.                    mnemonic = "V";
  38.                    key = "puerta_vidr";
  39.                }
  40.            }
  41.            : boxed_radio_column {
  42.                label = "Tipo de cierre";
  43.                : radio_button {
  44.                    label = "Arco";
  45.                    mnemonic = "A";
  46.                    key = "puerta_arco";
  47.                    value = "1";
  48.                }
  49.                : radio_button {
  50.                    label = "Línea";
  51.                    mnemonic = "L";
  52.                    key = "puerta_line";
  53.                }
  54.            }
  55.      }
  56.     spacer_1;
  57.     :boxed_row {
  58.     label = "Características de Puertas";
  59.     : boxed_column {
  60.        label = "Tipo de hojas";
  61.            : toggle {
  62.                key = "puerta_igua";
  63.                label = "Puerta doble con hojas iguales";
  64.            }
  65.            : edit_box {
  66.                key = "puerta_lon1";
  67.                label = "Medida Hoja principal";
  68.                mnemonic = "M";
  69.                edit_width = 7;
  70.            }
  71.            : edit_box {
  72.                key = "puerta_lon2";
  73.                label = "Medida Hoja secundaria";
  74.                mnemonic = "H";  
  75.                edit_width = 7;
  76.            }
  77.            : edit_box {
  78.                key = "puerta_espe";
  79.                label = "Espesor de Hoja";
  80.                mnemonic = "p";  
  81.                edit_width = 7;
  82.            }
  83.        } 
  84.     : boxed_column {
  85.        label = "Tipo de cercos";
  86.            : edit_box {
  87.                key = "puerta_cean";
  88.                label = "Grueso del cerco";
  89.                mnemonic = "G";
  90.                edit_width = 7;
  91.            }
  92.            : edit_box {
  93.                key = "puerta_cefo";
  94.                label = "Fondo máx. cerco";
  95.                mnemonic = "F";  
  96.                edit_width = 7;
  97.            }
  98.        } 
  99.     }
  100.     spacer_1;
  101.     : boxed_column {
  102.        label = "Medidas de la puerta";
  103.        : edit_box {
  104.             key = "puerta_dime"; 
  105.             label = "Longitud total de la puerta:";
  106.             mnemonic = "L";
  107.             edit_width = 7;
  108.        }
  109.     }
  110.     spacer_1;
  111.     : toggle {
  112.         key = "puerta_refe";
  113.         label = "Trabajar con punto de referencia";
  114.     }
  115.     : toggle {
  116.         key = "puerta_cent";
  117.         label = "Centrar la puerta en el muro";
  118.     }
  119.     spacer_1;
  120.     : row {
  121.         : spacer { width = 1; }
  122.         : button {
  123.             label = "Vale";
  124.             key = "aceptar";
  125.             width = 8;
  126.             fixed_width = true;
  127.          }
  128.          : button {
  129.             label = "Anular";
  130.             is_cancel = true;
  131.             key = "anular";
  132.             width = 8;
  133.             fixed_width = true;
  134.          }
  135.         : button {
  136.             label = "Información...";
  137.             key = "puerta_info";
  138.             mnemonic = "I";
  139.             width = 15;
  140.             fixed_width = true;
  141.          }
  142.     : spacer { width = 1;}
  143.    }
  144. }
  145. //***************************************************************************
  146. // Cuadro diálogo de información
  147.  
  148. op_puerta_info : dialog {
  149.     label = "Información del Programa";
  150.     spacer_1;
  151.     :paragraph {
  152.        children_alignment = centered;
  153.        : text_part { label = "Dibujo parametrizado de Puertas"; }
  154.        : text_part { label = "    "; }
  155.        : text_part { label = "PUERTA"; }
  156.        : text_part { label = "    "; }
  157.        : text_part { label = "Versión 2.12 (Abril de 1.994)"; }
  158.        : text_part { label = "Para su uso con AutoCad 12"; }
  159.        : text_part { label = "*******"; }
  160.        : text_part { label = "Realizado por Javier Erce Lizarraga."; }
  161.        : text_part { label = "Avda. Reyes Católicos nº 17 - 28280 El Escorial"; }
  162.        : text_part { label = "Teléfono 91 - 890.05.85"; }
  163.     }
  164.     spacer_1;
  165.     : paragraph {
  166.         children_alignment = centered;
  167.         : text_part { label = "El autor ofrece el programa PUERTA completo, para que cual-"; }
  168.         : text_part { label = "quier usuario lo pueda evaluar y probar libremente. Y si se"; }
  169.         : text_part { label = "decide a utilizarlo y quiere  estar  al día de las  últimas"; }
  170.         : text_part { label = "actualizaciones de este y otros programas LISP de Arquitec-"; }
  171.         : text_part { label = "tura para AutoCad, enviar 5.000 pesetas con todos sus datos"; }
  172.         : text_part { label = "a las señas arriba indicadas.                              "; }
  173.     }
  174.     spacer_1;
  175.     ok_only;
  176.     spacer_1;
  177. }
  178.  
  179.  
  180.