获取所有图层名

kry

(vla-get-layers
     (vla-get-activedocument
       (vlax-get-acad-object)
     )
   )

怎么把这个选集转换成图层名列表?

龙龙仔

(setq LST NIL)
(vlax-for LAY (vla-get-layers
  (vla-get-activedocument
    (vlax-get-acad-object)
  )
       )
  (setq LST (cons (vla-get-name LAY) LST))
)