请教如何取得图层列表及相应的颜色与线型列表

tc405003

请教如何取得图层列表及相应的颜色与线型列表

这是BDY老大的取得图层列表的LISP

(defun Get-Laylist-BDY (/ DOC LAY-L LAYS)
  (setq doc (vla-get-activedocument (vlax-get-Acad-Object)))
  (setq lays (vla-get-layers doc))
  (vlax-for item lays
    (SETQ LAY-L (APPEND LAY-L (LIST (vla-get-Name item))))
  )
)

meflying

取得图层名后,使用(cdr (assoc 62 (tblsearch "layer" layname)))获得颜色,,同样,组码6是线形

xyp1964

2. (defun c:test (/ s1 la co lt lst)
3.   (setq s1 (tblnext "layer" T)
4. la  (tbl 2 s1)
5. co  (tbl 62 s1)
6. lt  (tbl 6 s1)
7. lst (cons (list la co lt) lst)
8.   )
9.   (while (setq s1 (tblnext "layer" nil))
10.     (setq la  (tbl 2 s1)
11.    co  (tbl 62 s1)
12.    lt  (tbl 6 s1)
13.    lst (cons (list la co lt) lst)
14.     )
15.   )
16.   (princ"\n层 颜色 线型列表 : ")
17.   (princ"\n")
18.   lst
19. )
20. (defun tbl (mode ent)
21.   (cdr (assoc mode ent))
22. )

(defun c:test (/ s1 la co lt lst)   (setq s1 (tblnext "layer" T) la  (tbl 2 s1) co  (tbl 62 s1) lt  (tbl 6 s1) lst (cons (list la co lt) lst)   )   (while (setq s1 (tblnext "layer" nil))     (setq la  (tbl 2 s1)    co  (tbl 62 s1)    lt  (tbl 6 s1)    lst (cons (list la co lt) lst)     )   )   (princ"\n层 颜色 线型列表 : ")   (princ"\n")   lst ) (defun tbl (mode ent)   (cdr (assoc mode ent)) )

magicheno

感谢大佬分享