設定所有圖層的顏色為 3

(defun laycol3 () (vl-load-com) (setq acadDocument (vla-get-activedocument (vlax-get-acad-object))) (setq theLayers (vla-get-layers acadDocument)) (vlax-for item theLayers (vla-put-color item 3) ) (princ) );defun

---