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

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

CAD

开发平台：

Lisp/Scheme

Xgtx.dcl：源码内容
  1. /* DWc.DCL - DCL File for DWc.LSP */
  3. dcl_settings : default_dcl_settings { audit_level = 0; }
  5. swatch1 : image_button {
  6.     vertical_margin = none;
  7.     horizontal_margin = none;
  8.     fixed_height = true;
  9.     fixed_width = true;
  10.     height = 1.2;
  11.     width = 13;
  12. }
  14. color17 :row{
  15.       : column{
  16.     : swatch1 { color = 000; key = "000"; }
  17.     : swatch1 { color = 001; key = "001"; }
  18.     : swatch1 { color = 002; key = "002"; }
  19.     : swatch1 { color = 003; key = "003"; }
  20.     : swatch1 { color = 004; key = "004"; }
  21.     : swatch1 { color = 005; key = "005"; }
  22.     : swatch1 { color = 006; key = "006"; }
  23.     : swatch1 { color = 007; key = "007"; }
  24.     
  25.     }
  26.         : column{
  27.     :text {label="    0=默认 ";}
  28.     :text {label="      1=红 ";}
  29.     :text {label="      2=黄 ";}
  30.     :text {label="      3=绿 ";}
  31.     :text {label="      4=青 ";}
  32.     :text {label="      5=蓝 ";}
  33.     :text {label="      6=紫 ";}
  34.     :text {label="      7=白 ";}
  35.    
  36.     }
  37.   }
  39. gw_box1:dialog {
  40.   label="井位图绘制程序， 编程：杨权 [2000.9.6]";
  41.   :row{
  42.      :boxed_column{
  43.    label ="绘图参数";
  44.     :button {
  45.  label="选择绘图数据文件";
  46.       key = "gwjw";
  47. alignment = centered;
  48.       mnemonic = "N";
  49.       width = 13;
  50.       fixed_width = true;
  51.      }
  52.     :edit_box{
  53.      label="井号高度";
  54.      mnemonic="H";
  55.      key="gwh";
  56.      edit_width=8;
  57.     }
  58.    :edit_box{
  59.      label="井号角度";
  60.      mnemonic="A";
  61.      key="gwa";
  62.      edit_width=8;
  63.    }
  64.    :edit_box{
  65.      label="循环次数";
  66.      mnemonic="C";
  67.      key="gwc";
  68.      edit_width=8;
  69.    }
  70.    :edit_box{
  71.      label="井号位置";
  72.      mnemonic="P";
  73.      key="gwp";
  74.      edit_width=8;
  75.    }
  76.    :edit_box{
  77.       label="绘图比例";
  78.       mnemonic="S";
  79.       key="gws";
  80.       edit_width=8;
  81.      }
  82.   }
  83.   :boxed_column {
  84. //      fixed_width = true;
  85.       label ="图层颜色";
  86.       :edit_box{
  87.         label="图层颜色";
  88.         mnemonic="C";
  89.         key="gwlc";
  90.         edit_width=8;
  91.       }
  92.       color17;
  93.    }
  94.   }
  95.  
  96. // :boxed_radio_row{
  97. //    label="井号名类型";
  98. //  spacer_1;
  99. //  :radio_button{
  100. //     label="英 语 〈  默认井名输入符号  〉";
  101. //    alignment = centered;
  102. //    mnemonic="l";
  103. //     key="gew";
  104. //        }
  105. //    :radio_button{
  106. //     label="中 文";
  107. // alignment = centered;
  108. //     mnemonic="i";
  109. //     key="gcw";
  110. //    }
  112. //   }
  115.  :row {
  116. spacer_1;
  117.  :button {
  118.     label = "确认";
  119.     key = "accept";
  120.     fixed_width     = true;
  122.     alignment = centered;
  123.     mnemonic ="A";
  124.   }
  125.   :button {
  126.     label = "缺省值";
  127.     key = "default";
  128.     fixed_width     = true;
  129.     alignment = centered;
  130.     mnemonic ="D";
  131.   }
  132.   : button {
  133.     label = "退出";
  134.     key = "exit";
  135.     fixed_width     = true;
  136.     alignment = centered;
  137.     is_cancel       = true;
  138.     mnemonic = "E";
  139.   }
  140.   spacer_1;
  141.  }
  142. }