[讨论]：有否简便方法构造颜色为某一指定色的实体集?

lsjjm

有否简便方法构造颜色为某一指定色的实体集?
(ssget "x" '((62 . 1))) 构造的选择集不完全!

Qlin

可能有些实体的颜色属性是bylayer or byblock，用62组码选择的是有确定颜色值的实体

lsjjm

那么如何解决呢?

aeo

既然是层上的问题,就到层上去找.
把dxf62为1的层名列出来 生成:   "层1,层2 .."  -->lay
filter:
(list '(-4 . "《or") '(62 . 1)
  '(-4 . "《and")(cons 8 lay)(cons 62 256)'(-4 . "and》)
  '(-4 . "or》")
)


-----------------------------
《为<  
》为>

lsjjm

aeo, 我是问: "有否简便方法构造颜色为某一指定色的实体集? "

LUCAS

把所有物件改為單一顏色的程序寫出來,你就會發現沒有簡單方法 : (
但當你完成了那個程序,保正會更了解AUTOCAD中物件結構!

條件:
1.先設定系統變數
DIMCLRD           4
DIMCLRE           2
DIMCLRT           6
2.晝出AUTOCAD所有物件(再COPY一份做成多層嵌套圖塊---巢狀圖塊)
3.所有巢狀圖塊(所有圖塊炸開後保持單一顏色)

改變顏色通常會在下到物件中出問題
幾何公差 & 引線與箭頭 & 圖塊參考中的屬性

lsjjm

最初由 LUCAS 发布
[B]把所有物件改為單一顏色的程序寫出來,你就會發現沒有簡單方法... [/B]

一个朋友要我编一个小程序给他: 选择所有红颜色的实体...
程序是编完了, 但是不理想, 自己都看不过去.因此提问...
看来只有等Autodesk在出个什么命令或函数了?

aeo

我上面的至多再加两行，filter就出来了，不复杂呀.



幾何公差 & 引線與箭頭 & 圖塊參考中的屬性 这些应该自己本身就是个实体,有自己的图层.

Qlin

正好今天要用到类似功能，根据aeo的提示，做了一个稍微完整的版本，大家看看能不能用：

请用"<"替换"《"，">"替换"》"

2. 
   
3.   [FONT=courier new]
   
4. ;;Select By Color
   
5. ;根据颜色选择物体
   
6. (defun c:sbc (/ ent1 counter e ss1 fl color_code lst1 lay laynam)
   
7.   (while (not ent1)
   
8.     (setq ent1 (entsel "\n  Selecte sample entity:"))
   
9.   );while
   
10.   (if ent1
    
11.    (progn
    
12.     (setq color_code (cdr (assoc 62 (entget (car ent1)))))
    
13.     (if (not color_code);颜色为bylayer的情况，获取层颜色并以之选择
    
14.       (progn
    
15.         (setq laynam (cdr (assoc 8 (entget (car ent1))))
    
16.               color_code (cdr (assoc 62 (tblsearch "layer" laynam))))
    
17.         ;(setq color_code 256);直接使用这句可选择所有颜色为bylayer的实体
    
18.         (princ "\n  Select from layer <")(princ laynam)(princ ">,")
    
19.       )
    
20.       (princ "\n  Select by entity,")
    
21.     );if
    
22.     (princ " color<")(princ color_code)(princ ">, ")
    
23.    
    
24.     (setq lay (layerstring_bycolor color_code))
    
25.     (setq lst1
    
26.       (list '(-4 . "《or")
    
27.               (cons 62 color_code)
    
28.               '(-4 . "《and")
    
29.                 (cons 8 lay)
    
30.                 (cons 62 256)
    
31.               '(-4 . "and》")
    
32.             '(-4 . "or》")
    
33.       )
    
34.     );setq
    
35.     (setq ss1 (ssget "X" lst1))
    
36.   ))
    
37.   (if ss1 (progn
    
38.     (princ (sslength ss1))
    
39.     (princ " objects selected.")
    
40.   ));if
    
41.   (sssetfirst nil ss1)
    
42.   (princ)
    
43. );end
    
44. 
    
45. ;返回给定颜色的层名汇总字符串
    
46. (defun layerstring_bycolor (col_in / c lst st nam)
    
47.   (setq lst (tblnext "LAYER" T)
    
48.         st "")
    
49.   (while lst
    
50.     (setq c (cdr (assoc 62 lst)))
    
51.     (if (= c col_in)
    
52.       (progn
    
53.         (if nam (setq st (strcat st ",")))
    
54.         (setq nam (cdr (assoc 2 lst))
    
55.               st (strcat st nam))
    
56.       );progn
    
57.     );if
    
58.     (setq lst (tblnext "LAYER"))
    
59.   );while
    
60.   st
    
61. );end
    
62. 
    
63. (princ "\n Select Entities by Color, type 'sbc' to start.")
    
64. 
    
65.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;Select By Color<br /> ;根据颜色选择物体<br /> (defun c:sbc (/ ent1 counter e ss1 fl color_code lst1 lay laynam)<br />   (while (not ent1)<br />     (setq ent1 (entsel "\n  Selecte sample entity:"))<br />   );while<br />   (if ent1<br />    (progn<br />     (setq color_code (cdr (assoc 62 (entget (car ent1)))))<br />     (if (not color_code);颜色为bylayer的情况，获取层颜色并以之选择<br />       (progn<br />         (setq laynam (cdr (assoc 8 (entget (car ent1))))<br />               color_code (cdr (assoc 62 (tblsearch "layer" laynam))))<br />         ;(setq color_code 256);直接使用这句可选择所有颜色为bylayer的实体<br />         (princ "\n  Select from layer <")(princ laynam)(princ ">,")<br />       )<br />       (princ "\n  Select by entity,")<br />     );if<br />     (princ " color<")(princ color_code)(princ ">, ")<br />     <br />     (setq lay (layerstring_bycolor color_code))<br />     (setq lst1<br />       (list '(-4 . "《or")<br />               (cons 62 color_code)<br />               '(-4 . "《and")<br />                 (cons 8 lay)<br />                 (cons 62 256)<br />               '(-4 . "and》")<br />             '(-4 . "or》")<br />       )<br />     );setq<br />     (setq ss1 (ssget "X" lst1))<br />   ))<br />   (if ss1 (progn<br />     (princ (sslength ss1))<br />     (princ " objects selected.")<br />   ));if<br />   (sssetfirst nil ss1)<br />   (princ)<br /> );end<br /> <br /> ;返回给定颜色的层名汇总字符串<br /> (defun layerstring_bycolor (col_in / c lst st nam)<br />   (setq lst (tblnext "LAYER" T)<br />         st "")<br />   (while lst<br />     (setq c (cdr (assoc 62 lst)))<br />     (if (= c col_in)<br />       (progn<br />         (if nam (setq st (strcat st ",")))<br />         (setq nam (cdr (assoc 2 lst))<br />               st (strcat st nam))<br />       );progn<br />     );if<br />     (setq lst (tblnext "LAYER"))<br />   );while<br />   st<br /> );end<br /> <br /> (princ "\n Select Entities by Color, type 'sbc' to start.")<br /> <br />   [/FONT]<br />

LUCAS

;;幾何公差會受到許多系統變數影響： DIMCLRD 控制特徵控制框的顏色，DIMCLRT控制公差文字的顏色
;;引線與箭頭的顏色是由 Color 性質或 DIMCLRD 系統變數控制

Qlin

最初由 LUCAS 发布
[B];;幾何公差會受到許多系統變數影響： DIMCLRD 控制特徵控制框的顏色，DIMCLRT控制公差文字的顏色
;;引線與箭頭的顏色是由 Color 性質或 DIMCLRD 系統變數控制 [/B]

在实际的操作中，对于复杂实体而言，能够选择到父实体已经足够了，若对其中的子实体再进行处理，对于本篇的主题来说，好像必要性不大。
当然，如果是要做改色的程序，那要求就不同了，以前曾尝试编过，不过对于嵌套属性块的部分一直也没有时间搞好。

lsjjm

(在公司输入不了中文)
诸位的各种思路和想法, 有的确实不错, 考虑到随层, 随块, 再加上过滤, 自然可以解决. 然而我的初衷是: "有否简便的方法"? 因为在现实中要到达一个目的地, 可能有几种不同的路, 我想谁都愿意走捷径. 选择某一颜色的实体集是否也能象 (ssget "x" '((0 . "LINE"))) ? 看来至少目前不能拉, 不管怎样, 还是说声谢谢!

xz821

怎么我试了一下，用不了啊！