编辑块的LISP

:( 有没有可以改块里图层的LISP，:'( 苦寻不着。

一个块定义可以有多个块参照，编辑一个块参照，其他同名块参照也会同步改变。
修改块参照可以用块编辑（bedit）或在位编辑块（refedit）。
如果块定义数目不多，一个个改也不太麻烦。
以下自定义命令可以每次修改一个块定义。
先选择一个要修改的块参照，再输入命令。
;修改块颜色为红色
(defun c:b1()
(command "bedit" "chprop" (ssget "X") "" "C" "1" "" "bsave" "bclose")
)
;修改块颜色为黄色
(defun c:b2()
(command "bedit" "chprop" (ssget "X") "" "C" "2" "" "bsave" "bclose")
)
;修改块颜色为绿色
(defun c:b3()
(command "bedit" "chprop" (ssget "X") "" "C" "3" "" "bsave" "bclose")
)
;修改块颜色为青色
(defun c:b4()
(command "bedit" "chprop" (ssget "X") "" "C" "4" "" "bsave" "bclose")
)
;修改块颜色为蓝色
(defun c:b5()
(command "bedit" "chprop" (ssget "X") "" "C" "5" "" "bsave" "bclose")
)
;修改块颜色为洋红色
(defun c:b6()
(command "bedit" "chprop" (ssget "X") "" "C" "6" "" "bsave" "bclose")
)
;修改块颜色为白色
(defun c:b7()
(command "bedit" "chprop" (ssget "X") "" "C" "7" "" "bsave" "bclose")
)