王丛杰？

;如果非打印图层是打开，则第1次运行则将其关闭，第2次则将打开；
;反之亦然。
(defun c:fdy()
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq layers (vla-get-layers doc))
(vlax-for layer layers
(if (= (vlax-get-property layer "Plottable") :vlax-false)
(if (= (vlax-get-property layer "LayerOn") :vlax-false)
(vlax-put-property layer "LayerOn" :vlax-true)
(vlax-put-property layer "LayerOn" :vlax-false)
)
)
)
(princ)
)