LISP中用什么函数可以得到图层的颜色?

sf_elite

问题一：比如说我有一图层名字为dim,颜色为3号绿色，请问我用什么函数可以可以得到该图层的颜色，并把它赋值给一变量tt

问题二：什么命令可以把所选图元中所有设置为bylayer颜色的图元过滤出来？

Andyhon

(setq tt (cdr (assoc 62 (tblsearch "Layer" "Dim"))))

 

sf_elite

谢谢楼上的回复，问题一已搞定！问题二继续求助！

rongyifei

还有一种方法:

(vla-get-color
  (vla-item (vla-get-layers
       (vla-get-ActiveDocument (vlax-get-acad-object))
     )
     "Dim"
  )
)

Andyhon

问题二

(ssget "P"  '((62 . 256)))

TANER

2. ;;; ==================================================================
3. ;;; 返回层的颜色
4. ;;; ==================================================================
5. (defun th-get-laycolor (laname / la1 la col)
6.   (setq la (cdr (assoc 2 (tblnext "layer" t))))
7.   (while (/= la laname)
8.     (setq la1 (tblnext "layer" nil)
9.    la (cdr (assoc 2 la1))
10.    col (cdr (assoc 62 la1))
11.     )
12.   )
13.   (princ "\n颜色为 : ")
14.   col
15. )
16. ;;; ==================================================================
17. ;;; 测试: (th1-get-objcolor (car(entsel)))  返回实体颜色
18. ;;; ==================================================================
19. (defun th1-get-objcolor (ename / ent col)
20.   (setq ent (entget ename))
21.   (or
22.     (setq col (cdr (assoc 62 ent)))
23.     (setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent))))))
24.   )
25.   col
26. )
27. (defun th2-get-objcolor (ename / ent col)
28.   (setq ent (entget ename))
29.   (cond
30.     ((setq col (cdr (assoc 62 ent))))
31.     ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))
32.   )
33. )
34. ;;; ==================================================================
35. ;;; 求实体所在层和颜色,返回(层名  颜色)
36. ;;; ==================================================================
37. (defun th1-get-layandcol (ename / b col doc lay layobj)
38.   (vl-load-com)
39.   (setq b (vlax-ename->vla-object ename))
40.   (setq lay (vla-get-layer b))
41.   (setq col (vla-get-color b))
42.   (if (= col 256)
43.     (progn
44.       (setq doc (vla-get-activedocument (vlax-get-acad-object)))
45.       (setq layobj (vla-item (vla-get-layers doc) lay))
46.       (setq col (vla-get-color layobj))
47.     )
48.   )
49.   (list lay col)
50. )
51. (defun th2-get-layandcol (ename / ent col)
52.   (setq ent (entget ename))
53.   (setq lay (cdr (assoc 8 ent)))
54.   (cond
55.     ((setq col (cdr (assoc 62 ent))))
56.     ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))
57.   )
58.   (list lay col)
59. )
60. ;;; ==================================================================
61. ;;; 求实体所在层和颜色,返回(层名  颜色)或(层名  颜色 "bylayer")
62. ;;; ==================================================================
63. (defun th-get-layandcolifcb (ename / ent col)
64.   (setq ent (entget ename))
65.   (setq lay (cdr (assoc 8 ent)))
66.   (cond
67.     ((setq col (cdr (assoc 62 ent))))
68.     ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))
69.   )
70.   (if (cdr (assoc 62 ent))
71.     (list lay col)
72.     (list lay col "bylayer")
73.   )
74. )

;;; ================================================================== ;;; 返回层的颜色 ;;; ================================================================== (defun th-get-laycolor (laname / la1 la col)   (setq la (cdr (assoc 2 (tblnext "layer" t))))   (while (/= la laname)     (setq la1 (tblnext "layer" nil)    la (cdr (assoc 2 la1))    col (cdr (assoc 62 la1))     )   )   (princ "\n颜色为 : ")   col ) ;;; ================================================================== ;;; 测试: (th1-get-objcolor (car(entsel)))  返回实体颜色 ;;; ================================================================== (defun th1-get-objcolor (ename / ent col)   (setq ent (entget ename))   (or     (setq col (cdr (assoc 62 ent)))     (setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent))))))   )   col ) (defun th2-get-objcolor (ename / ent col)   (setq ent (entget ename))   (cond     ((setq col (cdr (assoc 62 ent))))     ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))   ) ) ;;; ================================================================== ;;; 求实体所在层和颜色,返回(层名  颜色) ;;; ================================================================== (defun th1-get-layandcol (ename / b col doc lay layobj)   (vl-load-com)   (setq b (vlax-ename->vla-object ename))   (setq lay (vla-get-layer b))   (setq col (vla-get-color b))   (if (= col 256)     (progn       (setq doc (vla-get-activedocument (vlax-get-acad-object)))       (setq layobj (vla-item (vla-get-layers doc) lay))       (setq col (vla-get-color layobj))     )   )   (list lay col) ) (defun th2-get-layandcol (ename / ent col)   (setq ent (entget ename))   (setq lay (cdr (assoc 8 ent)))   (cond     ((setq col (cdr (assoc 62 ent))))     ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))   )   (list lay col) ) ;;; ================================================================== ;;; 求实体所在层和颜色,返回(层名  颜色)或(层名  颜色 "bylayer") ;;; ================================================================== (defun th-get-layandcolifcb (ename / ent col)   (setq ent (entget ename))   (setq lay (cdr (assoc 8 ent)))   (cond     ((setq col (cdr (assoc 62 ent))))     ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))))   )   (if (cdr (assoc 62 ent))     (list lay col)     (list lay col "bylayer")   ) )