[求助]：请高手能不能编一个管理颜色的lsp文件呀

zhonghuafeng11

大家都知道打印时的线型是用颜色来控制的，所以我们这些懒人，就定了快键改线的颜色，这样一来是很方便，但也出了新的麻烦，就是不同的颜色不能用快键象图层一样，开，关，锁定，解锁．如果我们常用的９种色能定快键来控制（象图层一样）．例如c１表示＂关掉所有红色物体＂o1表示＂打开所有红色物体＂k1表示＂锁定所以红色物体＂uk1表示＂解锁所有红色物体＂；同理c２表示＂关掉所有黄色物体＂o２表示＂打开所有黄色物体＂k２表示＂锁定所以黄色物体＂uk２表示＂解锁所有黄色物体＂

rohan_yang

我也需要，有哪个大虾能编出来就好了

szcqhaaa

朋友给了一个，不知是不是楼主想要的.




(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))