[求助]如何获收图纸内所有图层的名称

Andlu-king

      各们大侠:
              问题请教：1) 如何获取图纸内所有图层的名称
                                2) 在上面取得所有图层的名称后，如何排除已知的图层而留下未知的图层
     谢谢！

killer9806

1，获取所有图层

(setq la (tblnext "layer" T))
  (while (/= la nil)
    (setq lasum (append (list (cdr (assoc 2 la))) lasum))
    (setq la (tblnext "layer"))
  )
2，图纸中用到的层

(setq acad (vlax-get-acad-object)
 modelspace (vla-get-modelspace
       (vla-get-activedocument
         acad)))
  (vlax-for obj modelspace
    (setq la (vla-get-layer obj))
    (if (setq uselayersum (member la userlayersum))
      (setq userlayersum userlayersum)
      (setq userlayersum (append (list la)  userlayersum))
      )
    )

Andlu-king

谢谢大侠的回答!!!