列示 layer 名稱

(defun C:LayList ( / acadobject activedocument LayerTable thelist) (vl-load-com) (setq acadobject (vlax-get-Acad-Object)) (setq activedocument (vla-get-activedocument acadobject)) (setq LayerTable (vla-get-layers activedocument)) (vlax-for each LayerTable (setq thelist (cons (vla-get-Name each) thelist)) ) (if thelist (reverse thelist)) );defun (princ)

;;;---------------------------------------------------------------------

Visual Lisp 的寫法好像是在和 Visual Lisp 溝通, 指揮它做事一般.

不像在寫生硬的程式碼@#$%&*

---