(defun c:1 ( / ent obj tc);如果修改1為2,命令為2
(vl-load-com)
(if (setq ent (entsel "\n請選擇要修改顏色圖層的對象"))
(progn
(setq tc (cdr (assoc 8 (entget (car ent)))))
(setq obj (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) tc))
(vla-put-color obj 1);如果把1修改為2,顏色變2
)
)
(princ)
);復制粘貼到記事本,以[.lsp]為後綴命名,加載到AutoCAD,就可以運行。