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…
2026/7/5 4:06:27