得到xref中各个物体的图层信息

citykunan

有没有办法得到xref中各个物体的图层的名称，dxf码中是什么代号啊？谢谢。

alin

2. (Defun GetXrefLayList (xrefname / MainEnt NextEnt Lst lay)
3.    (setq MainEnt (tblobjname "BLOCK" xrefname)
4.   NextEnt (cdr (assoc -2 (entget MainEnt))))
5.    (While NextEnt
6.        (if (not (member (setq lay (cdr (assoc 8 (entget NextEnt)))) Lst))
7.            (setq Lst (cons lay Lst)))
8.        (setq NextEnt (entnext Nextent))
9.    )
10.    (reverse Lst)
11. )

(Defun GetXrefLayList (xrefname / MainEnt NextEnt Lst lay)    (setq MainEnt (tblobjname "BLOCK" xrefname)   NextEnt (cdr (assoc -2 (entget MainEnt))))    (While NextEnt        (if (not (member (setq lay (cdr (assoc 8 (entget NextEnt)))) Lst))            (setq Lst (cons lay Lst)))        (setq NextEnt (entnext Nextent))    )    (reverse Lst) )

citykunan

thank you very much.