[求助]：创建指定颜色的选择集时怎样包括随层和随块的图元

smantl

我是个初学者，写了这段代码想实现随意的颜色变换，但是选不到随层或是随块的图元，请问各位前辈该怎么改!谢谢!!

2. [font=courier new]
   
3. (defun c:chc()
   
4.   (princ "\n -----实体改色-----")
   
5.   (prompt "\nColor\t\tNumber\n- - - - -\t- - - - -
   
6.   \nRed\t\t1\nYellow\t\t2\nGreen\t\t3\nCyan\t\t4\nBlue\t\t5\nMagenta\t6\nWhite\t\t7")
   
7.   (setq color1(getint"\nselect a color:"))
   
8.   (setq ss(ssget(list(cons 62 color1))))
   
9.   (setq color2(getint"\nchange a color:"))
   
10.     (repeat (setq n (sslength ss))
    
11.       (setq e        (ssname ss (setq n (1- n)))
    
12.             ent        (entget e))
    
13.       (entmod(append ent (list (cons 62 color2))))
    
14.     )
    
15.   (princ)
    
16. )
    
17. [/font]

[font=courier new]<br /> (defun c:chc()<br />   (princ "\n -----实体改色-----")<br />   (prompt "\nColor\t\tNumber\n- - - - -\t- - - - -<br />   \nRed\t\t1\nYellow\t\t2\nGreen\t\t3\nCyan\t\t4\nBlue\t\t5\nMagenta\t6\nWhite\t\t7")<br />   (setq color1(getint"\nselect a color:"))<br />   (setq ss(ssget(list(cons 62 color1))))<br />   (setq color2(getint"\nchange a color:"))<br />     (repeat (setq n (sslength ss))<br />       (setq e        (ssname ss (setq n (1- n)))<br />             ent        (entget e))<br />       (entmod(append ent (list (cons 62 color2))))<br />     )<br />   (princ)<br /> )<br /> [/font]

david96007

首先我要问的是你的程序有什么实际用处吗？
单独制定实体的颜色，你不怕麻烦吗？
养成一个良好的习惯，管理好自己的图层，没有必要用你的程序来改颜色啊！
话不好听，希望楼主见谅！

Dallas_whu

我觉得是一个很好的建议

smantl

最初由 david96007 发布
[B]首先我要问的是你的程序有什么实际用处吗？
单独制定实体的颜色，你不怕麻烦吗？
养成一个良好的习惯，管理好自己的图层，没有必要用你的程序来改颜色啊！
话不好听，希望楼主见谅！ [/B]

就是因为之前的图层非常零乱，图层过多，我想整理图层，在这个过程中每张图都有这么个动作就想写这么个程序。
另外，我刚学LISP，想到了这样一个问题(对指定颜色选取不能包括ByLayer&ByBlock)，想不到好的办法，实不甘心，特此请教各位!

cy956

思路：遇上bylayer等情况时通过查图层色过滤。
这个已经有了，回头俺把内部函数整理一下再贴上来。

smantl

最初由 cy956 发布
[B]思路：遇上bylayer等情况时通过查图层色过滤。
这个已经有了，回头俺把内部函数整理一下再贴上来。 [/B]

谢了班主先!!我主要还是想了解这方面的知识!等待中。。。。。。。。。。。

qjcpj

其实论坛已讨论过该论题，楼主可搜索一下看看...

smantl

我也是初来咋到，不好找!
7楼的兄弟能否贴个链接上来？谢了先!

qjcpj

最初由 smantl 发布
[B]我也是初来咋到，不好找!
7楼的兄弟能否贴个链接上来？谢了先! [/B]

以“颜色”为关键词搜索！
另，以下的这个舟自横原创的这个帖子有点符合楼主的要求，楼主可看一看，链接地址为
http://www.xdcad.net/forum/showt ... 1827943#post1827943

smantl

谢谢楼上的兄弟啦!!

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051127 (1704)
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;创建指定颜色的选择集(包括随层和随块的图元)
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (setq        int (UINT 1 "" "\n颜色号" int)
    
19.         ss0 (ssget"x")
    
20.         ss (ssadd)
    
21.         i   -1
    
22.   )
    
23.   (while (setq s1 (ssname ss0 (setq i (1+ i))))
    
24.     (if (= (xyp-get-Color s1) int)
    
25.       (ssadd s1 ss)
    
26.       )
    
27.     )
    
28.   (princ"\n选择集!ss")
    
29.   (CMDLA1)
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051127 (1704)<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;创建指定颜色的选择集(包括随层和随块的图元)<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        int (UINT 1 "" "\n颜色号" int)<br />         ss0 (ssget"x")<br />         ss (ssadd)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss0 (setq i (1+ i))))<br />     (if (= (xyp-get-Color s1) int)<br />       (ssadd s1 ss)<br />       )<br />     )<br />   (princ"\n选择集!ss")<br />   (CMDLA1)<br /> )[/FONT]