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

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

CAD

开发平台：

Lisp/Scheme

xstx.dcl：源码内容
  1. xstx_box1:dialog {
  2.   label="绘制图形操作   编程：杨权 [2000.9.6]";
  3.  fixed_width=true;
  4.  fixed_height=true;
  5. :row {
  6.   :edit_box{
  7.      label="井    号：";
  8.      key="qxgjh";
  9.       fixed_width=true;fixed_height=true;
  10.       edit_width=12; height=1.0;
  11.     }
  12.     spacer_1;
  13. :popup_list{
  14.  label="井 别：";
  15.  key="qxgjb";
  16.      fixed_width=true; fixed_height=true;
  17. edit_width=11.5;
  18.         height=1.0;
  19. list="采油井n注水井n探   井n部署井n评价井n缓钻井n地方井n裸眼井n报废井n村   镇n井   组 ";
  20. }
  21.    }
  22.   :row { 
  23.    :edit_box{
  24.      label="纵座标：";
  25.      key="qxgxzb";
  26.       fixed_width=true;fixed_height=true;
  27.       edit_width=12;
  28.      height=1.0;
  29.    }
  30.      spacer_1;
  31.    :edit_box{
  32.      label="横座标：";
  33.      key="qxgyzb";
  34.       fixed_width=true;fixed_height=true;
  35.       edit_width=12;
  36.      height=1.0;
  37.    }
  38.    }
  39. //   :edit_box{
  40. //     label="Z  座标：";
  41. //     key="qxgzzb";
  42. //      fixed_width=true;fixed_height=true;
  43. //      edit_width=40;
  44. //      height=1.0;
  45. //   }
  46.   
  47.    :edit_box{
  48.       label="提    示：";
  49.       key="qxgtc";
  50.  fixed_width=true; fixed_height=true;
  51.  height=1.0;
  52.       edit_width=40;
  53.      }
  54.  
  55.  :row {
  56.          spacer_1;
  57.  :button {
  58.     label = "确认";
  59.     key = "qaccept";
  60.     fixed_width     = true;
  61.     alignment = centered;
  62.     }
  63.  : button {
  64.     label = "取消";
  65.     key = "qexit";
  66.     fixed_width     = true;
  67.     alignment = centered;
  68.     is_cancel       = true;
  69.     mnemonic = "E";
  70.     }
  71. spacer_1;
  72.   }
  73. }