(defun C:TES ( / #k1 &k1 &kw1 &ob1);選擇對(duì)象快速改變顏色
 (if (null vlax-dump-object) (vl-load-com) )
 (if (and
  (setq #k1 (getint "n請(qǐng)輸入0~256顏色代碼"))
  (>= #k1 0)
  (<= #k1 256)
  (princ "n請(qǐng)選擇要改變顏色的對(duì)象")
  (setq &kw1 (ssget))
     )
  (progn;;1
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq &ob1 (vlax-ename->vla-object &k1))
    (vla-put-color &ob1 #k1);改變顏色
   );while
  );progn;1
 )
 (princ)
);復(fù)制到記事本以【.lsp】為后綴命名。打開AutoCAD，autolisp加載，命令【TES】
;選擇對(duì)象改變顏色

;;=======================================;;
(defun C:TES1 ( / #k1);快速改變當(dāng)前繪圖顏色
 (if (and
  (setq #k1 (getint "n請(qǐng)輸入0~256顏色代碼"))
  (>= #k1 0)
  (<= #k1 256)
     )
  (progn
   (if (= #k1 0) (setq #k1 "ByBlock"))
   (if (= #k1 256) (setq #k1 "ByLayer"))
   (command "color" #k1)
  )
 )
 (princ)
);autolisp加載，命令【TES1】，改變當(dāng)前繪圖顏色。