[求助]：一批文字等实体编辑后颜色能自动变成自己所定义的另一种颜色的程序

hzygs430

因图上内容较多，编辑到后来不知哪些内容已修改过，今求一程序，要求一批文字（或其他）实体编辑后（指移动位置或修改文字内容等）颜色能自动变成自己所定义的另一种颜色的程序（最好能事先选择颜色，实在不行变成当前层的颜色也可，谢！！！！！

tc405003

;;; --------------------------------------------------------------------------
;;; ------------------ COLOR SETTING & CHANGE ---------------------------
;;; --------------------------------------------------------------------------

(DEFUN C:C0 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 0#: ")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "C" "0" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C1 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 1#: ")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "C" "1" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C2 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 2#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "2" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C3 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 3#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "3" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C4 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 4#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "4" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C5 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 5#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "5" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C6 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 6#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "6" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C7 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 7#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "7" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C8 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 8#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "8" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:C9 ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color be 9#: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "9" "") (SETVAR "CMDECHO" 1) (PRINC))
(DEFUN C:CB ()
        (SETVAR "CMDECHO" 0)
        (PRINC "SELECT Obj. Color Bylayer: ")
        (SETQ SS (SSGET))
        (COMMAND "CHPROP" SS "" "C" "BYLAYER" "") (SETVAR "CMDECHO" 1) (PRINC))

;;;===== 将所选OBJECTS变为当前层 =====
(DEFUN C:CX()
(princ "SELECT OBJ.TO MAKE IT IN CURRENT LAYER\n")
(setq ss (ssget))
(if (and ss (> (sslength ss) 0))
(progn
(setq ent (entsel "\nSelect object to change to or <Enter> for current:"))
(if ent (setq la (cdr(assoc 8 (entget (car ent)))))
(setq la (getvar "clayer"))
)
(command ".chprop" ss "" "layer" la "")
)
)
(princ)
)

NET-JOB

(DEFUN C:CX()  不错，还可以匹配图层
其它程序只能改变对象颜色，而不是颜色随层。
最好一种颜色建一个层，选中物体后，操作命令后，已经有图层了就移动到图层里，否则就新建图层，并移动物体到新层。

tc405003

是后一个是颜色随层
(defun c:db()