cad中自动按颜色分层的lsp

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能改善我的工作。

(defun C:gg ()
  (setvar "qaflags" 1)
    (COMMAND "EXPLODE" (ssget "X") "")
  (setvar "qaflags" 0)
  (if (not (tblsearch "layer" "56"))
    (command "layer" "n" "56" "c" "5" "56" "")
   )
  (if (not (tblsearch "layer" "1"))
    (command "layer" "n" "1" "c" "7" "1" "")
   )
  (ssget "X" '((62 . 5)))
    (command "chprop" "p" "" "Layer" "56" "lw" "bylayer" "ltype" "bylayer" "Color" "bylayer" "")
  (ssget "X" '((62 . 7)))
    (command "chprop" "p" "" "Layer" "1" "lw" "bylayer" "ltype" "bylayer" "Color" "bylayer" "")
  (COMMAND "PURGE" "A" "*" "N")
  (command "" "zoom" "E")
)

那么累干嘛呢！在PROE输出的时候不要选择块，选输出层就可以啦，颜色的问题你下一个燕秀工具箱，自动建颜色的

感谢分享！！！！！！！！！！！！！！！！！

还有一点，你可以用百度搜索下，在PROE转CAD的时候，可以自己定义配置文件，
输出的时候可以自己定义的，这样CAD的时候不转也可以的。

还有一点，你可以用百度搜索下，在PROE转CAD的时候，可以自己定义配置文件，
输出的时候可以自己定义的，这样CAD的时候不转也可以的。

各有各的方法