图块(INSERT)对象为什么不能提取颜色?

mj520plus

代码：
(defun c:tt()
  (setq ss (ssget '((0 . "insert"))))
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq ent_data (entget ent))
    (setq col (assoc 62 ent_data))
    ...
  )
)
经过测试代码:
1. 当ent_data为块对象时，则(assoc 62 ent_data)返回值为nil
2. 当ent_data为线或圆对象时，则(assoc 62 ent_data)有返回值，如(62."0")

62不是共用群码吗？为什么块对象就取不出来呢？本人实在是想不明白，还请高手解答！

poople

考虑过bylayer吗，bylayer的情形下没有该项组码，所以为nil

mj520plus

谢谢poople 的提示！！！
我定义的块是随块(Byblock)的，比如我将块颜色变成了红色1,则
(ssget '((0 . "INSERT") (62 . 1)))是有返回值的，
而用(assoc 62 对象)却没有返回值！
难道块没有颜色属性？但（ssget)可以选得到！而且用命令chprop是可以修改块的颜色！
这如何解释？

ZZXXQQ

1. (defun c:tt()
   
2. (setq ss (ssget '((0 . "insert"))))
   
3. (setq i 0)
   
4. (repeat (sslength ss)
   
5.   (setq ent (ssname ss i))
   
6.   (setq ent_data (entget ent))
   
7.   (if (assoc 62 ent_data)
   
8.    (setq col (assoc 62 ent_data))
   
9.    (setq col (assoc 62 (tblsearch "LAYER" (cdr(assoc 8 ent_data)))))
   
10.   )
    
11.   ;...
    
12. )
    
13. )
    

(defun c:tt()<br /> (setq ss (ssget '((0 . "insert"))))<br /> (setq i 0)<br /> (repeat (sslength ss)<br />   (setq ent (ssname ss i))<br />   (setq ent_data (entget ent))<br />   (if (assoc 62 ent_data)<br />    (setq col (assoc 62 ent_data))<br />    (setq col (assoc 62 (tblsearch "LAYER" (cdr(assoc 8 ent_data)))))<br />   )<br />   ;...<br /> )<br /> )<br />

zyhandw

Z版的程序就很好的解决了颜色随层的问题