home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 v2.4 Fix / W95-v2.4fix.iso / ACADWIN / SAMPLE / BMAKE.DCL < prev    next >
Encoding:
Text File  |  1995-07-14  |  4.5 KB  |  162 lines
  1. // Next available MSG number is    24 
  2. // MODULE_ID BMAKE_DCL_
  3.  
  4. //    BMAKE.DCL     Version 1.0
  5. //
  6. //    (C) Copyright 1988-1995 by Autodesk, Inc.
  7. //
  8. //    This program is copyrighted by Autodesk, Inc. and is  licensed
  9. //    to you under the following conditions.  You may not distribute
  10. //    or  publish the source code of this program in any form.   You
  11. //    may  incorporate this code in object form in derivative  works
  12. //    provided  such  derivative  works  are  (i.) are  designed and
  13. //    intended  to  work  solely  with  Autodesk, Inc. products, and
  14. //    (ii.)  contain  Autodesk's  copyright  notice  "(C)  Copyright
  15. //    1988-1993 by Autodesk, Inc."
  16. //
  17. //    AUTODESK  PROVIDES THIS PROGRAM "AS IS" AND WITH  ALL  FAULTS.
  18. //    AUTODESK  SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF  MER-
  19. //    CHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK,  INC.
  20. //    DOES  NOT  WARRANT THAT THE OPERATION OF THE PROGRAM  WILL  BE
  21. //    UNINTERRUPTED OR ERROR FREE.
  22.  
  23. //                         28 Feb 1991
  24.  
  25. //======================================================================
  26. // DESCRIPTION
  27. //
  28. // Programming example of defining blocks using (entmake) with a dialog
  29. // interface.  Uses BMAKE.LSP/DCL.
  30. //======================================================================
  31.  
  32. //dcl_settings : default_dcl_settings { audit_level = 3; }
  33.  
  34. bmake : dialog {
  35.     label = "Definici≤n de bloque";
  36.     : paragraph {
  37.       label = "Observaci≤n:";
  38.       : text_part { 
  39.         label = "  Se pretende usar esta aplicaci≤n como un"; }
  40.       : text_part { 
  41.         label = "  ejemplo de programaci≤n de AutoLISP y DCL. "; }
  42.       : text_part { 
  43.         label = " "; }
  44.     }
  45.     : row {
  46.         : edit_box {
  47.             label = "&Nombre de bloque:";
  48.             key = /*MSG0*/"bname";
  49.             edit_width = 15;
  50.             edit_limit = 31;
  51.         }
  52.         : toggle {
  53.             label = "&S-NOMBRE  ";
  54.             key = /*MSG0*/"unnamed";
  55.         }
  56.     }
  57.     spacer;
  58.     : row {
  59.         : boxed_column { 
  60.             label = "Punto base";
  61.             : button {
  62.                 label = "&Designar punto <";
  63.                 key = /*MSG0*/"pick_pt";                 
  64.             }
  65.             : edit_box {
  66.                 label = "&X:";
  67.                 key = /*MSG0*/"x_pt";
  68.                 edit_width = 10;
  69.             }
  70.             : edit_box {
  71.                 label = "&Y:";
  72.                 key = /*MSG0*/"y_pt";
  73.                 edit_width = 10;
  74.             }
  75.             : edit_box {
  76.                 label = "&Z:";
  77.                 key = /*MSG0*/"z_pt";
  78.                 edit_width = 10;
  79.             }
  80.         }
  81.         : column {
  82.             spacer_1;
  83.             : button {
  84.                 label = "Seleccionar &objetos <";
  85.                 key = /*MSG0*/"sel_objs";                 
  86.             }
  87.             : concatenation {
  88.                 : text_part {
  89.                     label = "N·mero encontrado: ";
  90.                 }
  91.                 : text_part {
  92.                     key = /*MSG0*/"how_many";
  93.                     width = 5;
  94.                 }
  95.              }
  96.              spacer;
  97.              : button {
  98.                  label = "&Lista de nombres de bloque...";
  99.                  key = /*MSG0*/"list_blocks";
  100.              }
  101.              : toggle {
  102.                  label = "&Retener objetos";
  103.                  key = /*MSG0*/"retain";
  104.              }
  105.          }
  106.     }
  107.    spacer; 
  108.    spacer;
  109.    ok_cancel_help_errtile;
  110. }
  111.  
  112. bname_exists : dialog {
  113.     label = "Advertencia";
  114.     : paragraph {
  115.         : text_part {
  116.             label = "Ya existe un bloque con este nombre en el dibujo.";
  117.         }
  118.         : text_part {
  119.             label = "┐Desea redefinirlo?";
  120.         }
  121.     }
  122.     spacer_1;
  123.     : row {
  124.         fixed_width = true;
  125.         alignment = centered;
  126.         : button {
  127.             label = "R&edefinir";
  128.             key = /*MSG0*/"yes";
  129.             width = 8;
  130.         }
  131.         : spacer {
  132.             width = 2;
  133.         }
  134.         : default_button {
  135.             label = "Cancelar";
  136.             key = /*MSG0*/"no";
  137.             width = 8;
  138.         }
  139.     }
  140. }
  141.  
  142. list_blocks : dialog {
  143.     label = "Nombres de bloque en este dibujo";
  144.     : edit_box {
  145.         label = "&Patr≤n:";
  146.         key = /*MSG0*/"pattern";
  147.     }
  148.     : list_box {                                   
  149.         key = /*MSG0*/"bl_match";
  150.         width = 32;
  151.         multiple_select = true;
  152.         allow_accept = true;
  153.     }
  154.     spacer;
  155.     ok_only;
  156. }
  157.  
  158.  
  159.  
  160.  
  161.  
  162.