论坛 › A/VLISP › 图层合并

eachy 发表于 2013-7-11 21:57:03

图层合并

早期的一个程序，DCL文件ea_lyrtrans : dialog {
label = "图层合并";
: column {
    : row {
      : column {
      : boxed_column {
          width = 10;
          label = "合并到";
          : row {
            children_alignment = top;
            : edit_box {
            height =1;
            key = "Nlyr";
            }
            : image_button {
            height = 2;
            width =4;
            key = "col";
            }
          }
      : popup_list {
          key = "Sel";
          }
      }
      : column {
          : toggle {
            label = "保留颜色";
            key = "color";
            value = "1";
            }
          : toggle {
            label = "保留线形";
            key = "ltyp";
            value = "1";
            }
          : toggle {
            label = "忽略块内0层";
            key = "lay";
            value = "1";
            }
          }   
      }
      : boxed_column {
      label = "图层列表";
      : list_box {      
          key = "what";
          height = 9;
          width = 17;
          multiple_select =true;
          allow_accept = true;
          }
      }
      }   
    : row {
      alignment = centered;
      fixed_width = true;
      : button {
      label = "预览" ;
      key = "pre";
      }
      : button {      
      label = "选择" ;
      key = "list";
      }
      : button {      
      label = "转换" ;
      key = "Trans";
      }
      : ok_button {
      label = "退出" ;
      key = "accept";
      is_cancel = true;
      }
      }
   }
}

eachy 发表于 2013-7-11 22:00:03

Lisp **** Hidden Message *****

GTJ116600 发表于 2013-7-12 09:20:49

谢谢eachy前辈

zhangq_cai1 发表于 2013-7-12 11:40:17

支持~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tianyi1230 发表于 2013-7-12 11:42:50

感谢谢谢eachy大侠的经典之作

NET-JOB 发表于 2013-7-12 14:11:22

这个经典，支持

yzr2002626 发表于 2013-7-13 11:18:53

经典，谢谢eachy大侠分享！

429014673 发表于 2013-7-13 13:01:08

; 错误: 输入中含有多余的闭括号

SmartStar 发表于 2013-7-16 14:17:28

本帖最后由 SmartStar 于 2013-7-16 14:18 编辑

不知道哪里有问题，无法运行！好象是函数ea:ChgAttBlk有问题。

eachy 发表于 2013-7-16 17:03:53

SmartStar 发表于 2013-7-16 14:17
不知道哪里有问题，无法运行！好象是函数ea:ChgAttBlk有问题。

贴个编译版，版本号增加，内容没变，好像只是把里面的限制提示去掉了

Lisphk 发表于 2013-7-16 17:20:42

eachy 发表于 2013-7-16 17:03
贴个编译版，版本号增加，内容没变，好像只是把里面的限制提示去掉了

大师，忽略块内0层是什么意思？

eachy 发表于 2013-7-16 17:43:39

Lisphk 发表于 2013-7-16 17:20
大师，忽略块内0层是什么意思？
CAD块内0层是一个比较怪的图层，Blockdef 内 0层实体在 Bylayer 情况下，图块颜色是跟随 Blockref 设定的图层，不能单独修改颜色，如果0定义了Byblock颜色，颜色可以跟随Blockref图层也可以单独指定颜色，线形也是如此。块内其他图层实体没有0层这种特性的。

SmartStar 发表于 2013-7-17 12:41:33

老大，为什么我在合并lsp和dcl的时候有这样的提示呢？您给的那个vlx就能用！

st788796 发表于 2013-7-17 17:20:42

SmartStar 发表于 2013-7-17 12:41
老大，为什么我在合并lsp和dcl的时候有这样的提示呢？您给的那个vlx就能用！

格式化下Lisp, 是不是贴上来的时候漏了括号

SmartStar 发表于 2013-7-17 21:02:15

st788796 发表于 2013-7-17 17:20
格式化下Lisp, 是不是贴上来的时候漏了括号

格式化的时候没有问题！

查看完整版本: 图层合并