cad中自动按颜色分层的lsp

lyshow

CAD中自动按颜色分层的lsp
哪位好心人帮帮我，先谢谢！
我每天的工作就是从proE中建好3D后转成2D，每次都得用到Quick select去设置按颜色分层，然后purge.
我想要的动作如下：
1步：EXPLODE 图面中所有块（这此块是proE自动生成，这样才能下面Quick select去设置按颜色分层）
2步：purge掉多余不相干的东东，剩下的东西下一步
3步：建新层名“56”Color: 5 (blue)  linetype:continuous  Linetype: "BYLAYER"
4步：建新层名“1”Color: 7 (white)    linetype:continuous     Linetype: "BYLAYER"
5步：建新层名“41”Color: 3 (green)   linetype:continuous  Linetype: "BYLAYER"
6步：建新层名“51”Color:  (magenta)  linetype:center          Linetype: "BYLAYER"
7步：tools\Quick select , 筛选出图中所有为blue色的东西规为 第2步新建的“56”层
8步：筛选出图中所有为除了blue色的东西规为 第3步新建的“1”层

执行完结果是：只有四个层：“1”“56”“41”“51”颜色不同区分，并筛选出blue为“56”层，其它色均改为白色放到“1”层
              “41”&“51”层内没有东西。

我的邮箱是lyshow@163.com
如能加上注解会感激不尽。谢谢，期待您的lsp能改善我的工作。

lyshow

heyusheng

c3105

hbgsw

hbgsw

lenlenq