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

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

CAD

开发平台：

Lisp/Scheme

dwc.dcl：源码内容
  1. dcl_settings : default_dcl_settings { audit_level = 0; }
  3. swatch1 : image_button {
  4.     vertical_margin = none;
  5.     horizontal_margin = none;
  6.     fixed_height = true;
  7.     fixed_width = true;
  8.     height = 1.2;
  9.     width = 14;
  10. }
  12. color17 :row{
  13.       : column{
  14.     : swatch1 { color = 000; key = "000"; }
  15.     : swatch1 { color = 001; key = "001"; }
  16.     : swatch1 { color = 002; key = "002"; }
  17.     : swatch1 { color = 003; key = "003"; }
  18.     : swatch1 { color = 004; key = "004"; }
  19.     : swatch1 { color = 005; key = "005"; }
  20.     : swatch1 { color = 006; key = "006"; }
  21.     : swatch1 { color = 007; key = "007"; }
  22.      }
  23.         : column{
  24.     :text {label="    0=默认 ";}
  25.     :text {label="      1=红 ";}
  26.     :text {label="      2=黄 ";}
  27.     :text {label="      3=绿 ";}
  28.     :text {label="      4=青 ";}
  29.     :text {label="      5=蓝 ";}
  30.     :text {label="      6=紫 ";}
  31.     :text {label="      7=白 ";}
  32.      }
  33.   }
  35. gw_box1:dialog {
  36.   label="井位图绘制程序， 编程：杨权 [2000.9.6]";
  37. :row{
  38.      :boxed_column{
  39.    label ="绘图参数";
  40.     :button {
  41.  label="选择绘图数据文件";
  42.       key = "gwjw";
  43. alignment = centered;
  44.       width = 13;
  45.       fixed_width = true;
  46.      }
  47.     :edit_box{
  48.      label="井号高度";
  49.      key="gwh";
  50.      edit_width=8;
  51.     }
  52.    :edit_box{
  53.      label="井号角度";
  54.      key="gwa";
  55.      edit_width=8;
  56.    }
  57.    :edit_box{
  58.      label="循环次数";
  59.      key="gwc";
  60.      edit_width=8;
  61.    }
  62.    :edit_box{
  63.      label="当前图层";
  64.      key="gwp";
  65.      edit_width=8;
  66.    }
  67.    :edit_box{
  68.       label="绘图比例";
  69.       key="gws";
  70.       edit_width=8;
  71.      }
  72.   }
  73.  
  74.   :boxed_column {
  75.       fixed_width = true;
  76.       label ="图层颜色";
  77.       spacer_1;
  78.       :edit_box{
  79.         label="选 择 颜 色";
  80.         key="gwlc";
  81.         edit_width=6;
  82.         height=0.6;
  83.       }
  84.       color17;
  85.    }
  86.   }
  87.  
  88.  :row {
  89.          spacer_1;
  90.  :button {
  91.     label = "确认";
  92.     key = "accept";
  93.     fixed_width     = true;
  94.     alignment = centered;
  95.     mnemonic ="A";
  96.   }
  97.   :button {
  98.     label = "缺省值";
  99.     key = "default";
  100.     fixed_width     = true;
  101.     alignment = centered;
  102.   }
  103.   : button {
  104.     label = "退出";
  105.     key = "exit";
  106.     fixed_width     = true;
  107.     alignment = centered;
  108.     is_cancel       = true;
  109.     }
  110. spacer_1;
  111.   }
  112. }