Category

Development Platform
Home > SourceCode/Document > Graph program > CAD > View Code
FIRST.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

FIRST.dcl：Code Content
  1. add_face:dialog{
  2. label="井位座标绘图系统    编制   杨权   [2000.9.10]";
  3.      alignment=centered;
  4. :row{
  5.  spacer_1;
  6.   :button {
  7.     label="选 择 绘 图 数 据 文 件 进 行 格 式 转 换 ";
  8. key=htsjgszh;
  9.   fixed_width=true;
  10.   fixed_height=true;
  11.   width=66;
  12.   height=1.0;
  13.   }
  14.    spacer_1;
  15.    }
  16. :row{
  17.  spacer_1;
  18.   :button {
  19.     label="读油层数据文件填图";
  20. key=xcsjzh;
  21.   fixed_width=true;
  22.   fixed_height=true;
  23.   width=36;
  24.   height=1.0;
  25.   }
  27.    :button {
  28.     label="读试油数据文件填图";
  29. key=sysjzh;
  30.   fixed_width=true;
  31.   fixed_height=true;
  32.   width=36;
  33.   height=1;
  34. }
  35. spacer_1;
  36. }
  37.  :row{
  38.        :button{
  39.  label="绘制井位图";
  40.                    key=ksht;
  41.  fixed_width=true;
  42.  fixed_height=true;
  43.  width=22;
  44.  height=1.0;
  45. }
  46.       :button{
  47.  label="绘 制 等 值 等 高 线";
  48.  key=hcdzdgx;
  49.  fixed_width=true;
  50.  fixed_height=true;
  51.  height=1.0;
  52.       }
  53. :button{
  54.         label="添加新井点";
  55.  key=ztzjjd; 
  56.  fixed_width=true;
  57.  fixed_height=true;
  58.  width=22;
  59.   height=1.0;
  60.  }
  62.   } 
  63. :row{
  64.  :button{
  65.          label="修改井位参数";
  66.  key=xgtxsj;
  67.  fixed_width=true;
  68.  fixed_height=true;
  69.  height=1.0;
  70.        }  
  71.       :button{
  72.  label="添加试油柱状图";
  73.  key=tjsysj;
  74.  fixed_width=true;
  75.  fixed_height=true;
  76.   height=1.0;
  77.       }
  79. :button {
  80.  label="标注油层数据";
  81.  key=tjscsj;
  82.  fixed_width=true;
  83.  fixed_height=true;
  84.    height=1.0;
  85.  }
  86.   }
  87.   :row{
  88.   :button{
  89.             label="添加图例标签";
  90.  key=tjtlbq;
  91.  fixed_width=true;
  92.  fixed_height=true;
  93.   width=22;
  94.   height=1.0;
  95.        }
  96. :button{
  97.                    label="图形数据备份";
  98.  key=bcktx;
  99.  fixed_width=true;
  100.  fixed_height=true;
  101.   width=26;
  102.   height=1.0;
  103.  }
  104. :button{
  105.                    label="井口前拖座标";
  106.  key=jktd;
  107.  fixed_width=true;
  108.  fixed_height=true;
  109.  width=22;
  110.  height=1.0;
  111.  }
  112. }
  113. :row{
  114. alignment=centered;  
  115. spacer_1;
  117. :button {
  118.  label="确  定";
  119.   key=iaccept;
  120.   fixed_width=true;
  121.   fixed_height=true;
  122.  width=10;
  123.   height=1.0;
  124. alignment=centered;  
  125.  }
  126. :button {
  127.  label="查阅帮助信息";
  128.   key=htredme;
  129.   fixed_width=true;
  130.   fixed_height=true;
  131. //  width=28;
  132.  height=1.0;
  133. alignment=centered;  
  134.  }
  135. :button {
  136.  label="退  出";
  137.    key=mainexit;
  138.    is_cancel=true;
  139.    fixed_width=true;
  140.    fixed_height=true;
  141.   width=10;
  142.    height=1.0;
  143. alignment=centered;  
  144. }
  145. spacer_1;
  146.        }
  147. }