iCAx开思工具箱

标题: cad中自动按颜色分层的lsp [打印本页]

作者: lyshow 时间: 2009-3-28 01:41
标题: 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能改善我的工作。

作者: lyshow 时间: 2009-4-20 22:26
(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")
)

作者: heyusheng 时间: 2009-4-24 22:33
那么累干嘛呢！在PROE输出的时候不要选择块，选输出层就可以啦，颜色的问题你下一个燕秀工具箱，自动建颜色的

作者: c3105 时间: 2009-4-29 08:43
感谢分享！！！！！！！！！！！！！！！！！

作者: hbgsw 时间: 2009-5-4 21:58
还有一点，你可以用百度搜索下，在PROE转CAD的时候，可以自己定义配置文件，
输出的时候可以自己定义的，这样CAD的时候不转也可以的。

作者: lenlenq 时间: 2010-5-12 20:13
各有各的方法

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)