开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > CAD > 查看源码
scXcsj.DCL
资源名称：lcx.rar　[点击查看]
上传用户：cqhairun
上传日期：2017-05-24
资源大小：173k
文件大小：3k
源码类别：

CAD

开发平台：

Lisp/Scheme

scXcsj.DCL：源码内容
  1. xc_box1:dialog{
  2. label="手工输入油层数据填图    编制： 长庆录井 杨权 ";
  3. :row{
  4.    :column{
  5.         spacer_1;
  6. :edit_box{
  7.         label="选定标注数据井号 ";
  8.       key="xcwnu";
  9.       fixed_width = true; alignment = centered; edit_width=12;
  10.          }
  11.     :boxed_column{
  12.   label="选择类型";
  13.   key="xwx";
  14.       :row{
  15.      spacer_1; 
  16.            :radio_button{
  17.      label="油层"; key = "dww"; fixed_width = true; alignment = centered;
  18.       }
  19.        :radio_button{
  20.      label="单层"; key = "xc1"; fixed_width = true; alignment = centered;
  21.       }}
  22.   :row{
  23.     spacer_1;
  24.        :radio_button{
  25.   label="双层"; key = "xc2"; fixed_width = true; alignment = centered;
  26.       }
  27.        :radio_button{
  28.      label="三层"; key = "xc3";fixed_width = true; alignment = centered;
  29.       }}}}
  30.   :column{
  31.         :boxed_column{
  32.   label="油层数据标注";
  33.   key="dwx";
  34. :edit_box{
  35.       label="砂层厚度:";
  36.       key="wx";
  37.       fixed_width = true; alignment = centered;edit_width=8;
  38.      }
  39. :edit_box{
  40.       label="油层厚度:";
  41.       key="wxch";
  42.       fixed_width = true; alignment = centered;edit_width=8;
  43.      }
  44. :edit_box{
  45.       label="砂顶海拔:";
  46.       key="wxc";
  47.       fixed_width = true; alignment = centered;edit_width=8;
  48.      }
  49. :edit_box{
  50.    label="渗  透  率:";
  51.       key="wxcb";
  52.       fixed_width = true; alignment = centered;edit_width=8;
  53.       }}}}
  54.     :row{
  55. :boxed_column{
  56.   label="第一层数据";
  57.   key="dyc";
  58.   :edit_box{
  59.       label="层位:";
  60.       key="xccw1";
  61.       edit_width=8;
  62.      }
  63.      :edit_box{
  64.       label="厚度:";
  65.       key="xchd1";
  66.       edit_width=8;
  67.      }
  68.       :edit_box{
  69.       label="海拔:";
  70.       key="xchb1";
  71.       edit_width=8;
  72.      }
  73.      }
  74.     
  75. :boxed_column{
  76.   label="第二层数据";
  77.   key="drc";
  78.   :edit_box{
  79.       label="层位:";
  80.       key="xccw2";
  81.       edit_width=8;
  82.        }
  83.    :edit_box{
  84.       label="厚度:";
  85.       key="xchd2";
  86.       edit_width=8;
  87.         }
  88.    :edit_box{
  89.       label="海拔:";
  90.       key="xchb2";
  91.       edit_width=8;
  92.        }
  93.        }
  94. :boxed_column{
  95.   label="第三层数据";
  96.   key="dsc";
  97.   :edit_box{
  98.       label="层位:";
  99.       key="xccw3";
  100.       edit_width=8;
  101.       }
  102.    :edit_box{
  103.       label="厚度:";
  104.       key="xchd3";
  105.       edit_width=8;
  106.        }
  107.    :edit_box{
  108.       label="海拔:";
  109.       key="xchb3";
  110.       edit_width=8;
  111.        }
  112.        }
  113. }
  115.  :row {
  116.          spacer_1;
  117.  :button {
  118.     label = "确  认";
  119.     key = "xcaccept";
  120.     fixed_width = true;
  121.     alignment = centered;
  122.      }
  123.   : button {
  124.     label = "取  消";
  125.     key = "xcexit";
  126.     fixed_width     = true;
  127.     alignment = centered;
  128.     is_cancel = true;
  129.      }
  130. spacer_1;
  131.   }
  132. }