CAD LISP 获取所有图层名
;;获取所有图层名(defun C:alltc (/ AcadObject AcadDocument LayerSel n lname)(VL-LOAD-COM)(setq AcadObject (vlax-get-acad-object)AcadDocument (vla-get-ActiveDocument AcadObject))(setq LayerSel (vla-get-Layers AcadDocument))(vlax-for n LayerSel(progn(setq lname (vla-get-name n))(princ lname)(princ /n LISP-图层 /n)(princ \n)))(princ))
