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

citykunan · 发表于 2004-8-18 17:34:00

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

alin · 发表于 2004-8-18 21:08:00


(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 · 发表于 2004-8-19 10:46:00

thank you very much.

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

发表回复

精选推荐