[LISP程序]：一个简单的程序

KERRYWM

(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)
  )
  thelist
)
(defun C:Layeron ( / acadDocument theLayers);;;开图层程序
(vl-load-com)
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
(setq theLayers (vla-get-layers acadDocument))
(vlax-for item theLayers (vlax-put-property item "LayerOn" ':vlax-true))
(princ)
)