如何提取颜色随层的对象的颜色？

jaminth

如：
图中有一直线，所在图层为RLP390_C4，图层的颜色是蓝色，用
(setq en_data (entget (car (entsel "select:")))) 取得直线的对象属性
结果如下，没有颜色的代码出现，请教高手怎样解决？
((-1 . <图元名: 40072e48>) (0 . "LINE") (330 . <图元名: 40072cf8>) (5 . "71") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "RLP390_C4") (100 . "AcDbLine") (10
795.703 218.864 0.0) (11 441.75 304.477 0.0) (210 0.0 0.0 1.0))

alin

没有颜色的代码出现, 那它的颜色就是bylayer。 要确切知道其颜色，查询图层设置的颜色

(setq ent (entget (car (entsel))))
(if (not (assoc 62 ent))
  (setq col (cdr (assoc 62 (tblsearch "LAYER" (cdr (assoc 8 ent))))))
  (setq col (cdr (assoc 62 ent)))
)

jaminth

两次谢过Alin版主

黄河

好像随层色的对象，很难用过滤选择来选取(62 . 1) 如红色

luyu9635

我有一个复制同一图层中颜色随层的，自己写的，在2004中测试通过，请指教,其代码如下:

 (defun c:cc()

            (setq st (entget(car(entsel"\nSelect a object 选择一个实体 :"))))
             (setq st8 (cdr (assoc 8  st)))

             (setq st62 (cdr (assoc 62 st)))

              (setq pt1 (getpoint) pt2 (getcornor pt1))

                      (if (= st62 nil)

                               (progn
                                         (setq ss (ssget "w" pt1 pt2 (list(cons 8 st8) )))

                                        (setq ss (ssget "p" (list(cons 62 256))))

                               )

                      )
             (setq ss (ssget "w" pt1 pt2 (list (cons 8 st8))))

             (setq ss(ssget "p" (list (cons 62 st62))))

             (command "_.copy"  ss "" "")

(princ)

)

luyu9635

不好意思，上面有一错误,更正:  (setq st (entget(car(entsel"\\nSelect a object 选择一个实体 :"))))
改为  (setq st (car(entget(entsel"\\nSelect a object 选择一个实体 :"))))

7686599

try this:

2. (defun c:x1 (/ cor date en lay pt ss)
3.   (and (setq en (car (entsel "\n选择目标实体:")))
4.        (setq date (entget en))
5.        (setq lay (cdr (assoc 8 date)))
6.        (or (setq cor (cdr (assoc 62 date)))
7.     (setq cor 256)
8.        )
9.        (setq ss (ssget (list (cons 8 lay) (cons 62 cor))))
10.        (setq pt (getpoint "\n指定基点:"))
11.        (vl-cmdf "copy" ss "" pt pause)
12.   )
13. )

(defun c:x1 (/ cor date en lay pt ss)   (and (setq en (car (entsel "\n选择目标实体:")))        (setq date (entget en))        (setq lay (cdr (assoc 8 date)))        (or (setq cor (cdr (assoc 62 date)))     (setq cor 256)        )        (setq ss (ssget (list (cons 8 lay) (cons 62 cor))))        (setq pt (getpoint "\n指定基点:"))        (vl-cmdf "copy" ss "" pt pause)   ) )

zml84

3. ;;;获取对象颜色
4. (defun C:TT (/ SS ENT COL)
5. &#160;&#160;&#160; (if (setq SS (nentsel "\n请点取对象: "))
6. &#160;&#160; &#160;(progn
7. &#160;&#160; &#160;&#160;&#160;&#160; (setq ENT (entget (car SS)))
8. &#160;&#160; &#160;&#160;&#160;&#160; (if&#160;&#160; &#160;(setq COL (cdr (assoc 62 ENT)))
9. &#160;&#160; &#160;&#160;&#160; &#160;()
10. &#160;&#160; &#160;&#160;&#160; &#160;(setq COL
11. &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160; (cdr (assoc 62
12. &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (tblsearch "layer" (cdr (assoc 8 ENT)))
13. &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; )
14. &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160; )
15. &#160;&#160; &#160;&#160;&#160; &#160;)
16. &#160;&#160; &#160;&#160;&#160;&#160; )
17. &#160;&#160; &#160;&#160;&#160;&#160; (princ COL)
18. &#160;&#160; &#160;)
19. &#160;&#160;&#160; )
20. &#160;&#160;&#160; (princ)
21. )

;;;获取对象颜色 (defun C:TT (/ SS ENT COL) &#160;&#160;&#160; (if (setq SS (nentsel "\n请点取对象: ")) &#160;&#160; &#160;(progn &#160;&#160; &#160;&#160;&#160;&#160; (setq ENT (entget (car SS))) &#160;&#160; &#160;&#160;&#160;&#160; (if&#160;&#160; &#160;(setq COL (cdr (assoc 62 ENT))) &#160;&#160; &#160;&#160;&#160; &#160;() &#160;&#160; &#160;&#160;&#160; &#160;(setq COL &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160; (cdr (assoc 62 &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (tblsearch "layer" (cdr (assoc 8 ENT))) &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; ) &#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160; ) &#160;&#160; &#160;&#160;&#160; &#160;) &#160;&#160; &#160;&#160;&#160;&#160; ) &#160;&#160; &#160;&#160;&#160;&#160; (princ COL) &#160;&#160; &#160;) &#160;&#160;&#160; ) &#160;&#160;&#160; (princ) )

xotoo

可惜不支持块

xotoo

这种程序可不可以支持块（包括嵌套块、属性块）中的任意图元（包括随层的或者指定颜色）