Category

Development Platform
Home > SourceCode/Document > Graph program > CAD > View Code
Zbbak.dcl
Package: lcx.rar　[view]
Upload User: cqhairun
Upload Date: 2017-05-24
Package Size: 173k
Code Size: 2k
Category:

CAD

Development Platform:

Lisp/Scheme

Zbbak.dcl：Code Content
  1. Zbbk : dialog {
  2.   label = "图形数据备份    编制:   杨权";
  3.   : row {
  4.      spacer_1;
  5.     
  6.     : text_part {
  7.       key = "txtp";
  8.       value = "选择备份类型 ";
  9. fixed_width = true; alignment = centered;
  10.        width = 12;
  11.        }
  12.            :radio_button{
  13. //             label="";
  14. //     label="井位座标";
  15.      key = "zb1"; fixed_width = true; alignment = centered;
  16.       }
  17.             :radio_button{
  18. //              label="";
  19. //  label="油层数据";
  20.   key = "yc2"; fixed_width = true; alignment = centered;
  21.       }
  22.        :radio_button{
  23. //       label="";
  24. //     label="试油数据";
  25.      key = "sy3";fixed_width = true; alignment = centered;
  26.       }
  27.            }
  29. :row{
  30.     spacer_1;
  31.     : text_part {
  32.       key = "txtw";
  33. value = "                      井位座标        油层数据         试油数据 ";
  34.        fixed_width = true; alignment = centered;
  35.        width = 40;
  36.     }}
  37.   :row{
  38.     spacer_1;
  39.     : text_part {
  40.       key = "txt1";
  41.       value = "  输入文件名";
  42.        fixed_width = true; alignment = centered;
  43.        width = 12;
  44.     }
  45.     : edit_box {
  46.       key = "ed1";
  47. //      value = "";
  48.       width = 16;
  49.     }
  50. : text_part {
  51.       key = "txt0";
  52.       value = "    .TXT";
  53. //       fixed_width = true; alignment = centered;
  54.        width = 6;
  55.     }
  56.   } //row
  57.   : row {
  58.   spacer_1;
  59.     : text_part {
  60.       key = "ed2";
  61.       value = "提      示:";
  62.        fixed_width = true;alignment = centered;width = 6;
  63.     }
  64.     : edit_box {
  65.       key = "ed3";
  66.       value = "将图中选定类型的数据备份成文本文件。";
  67.       width = 32;
  68.     }
  69.   } 
  70.   : row {
  71.     spacer_1;
  72.     : button {
  73.       label = "确定";
  74.       width=10;
  75.       fixed_width=true;alignment = centered;
  76.       is_default=true;
  77.       key = "bkpt";
  78.     }
  79.       : button {
  80.       label = "取消";
  81.       fixed_width=true;alignment = centered;
  82.       width=10;
  83.       key = "bkcel";
  84.       is_cancel =true;
  85.     }
  86. spacer_1;
  87.   }
  89. }