求教高手。。。图层的问题。

hsupan

请问如何         在画图纸的时候选中物体后用自定义的快捷方式（如1，2，3，）来使物体变换到相应的图层？？                 我不是学习程序开发的。所以只好来请教各位高手了。望指点。


谢了。。。。。。。。。。。。。。。。。。。。。。。。。

hsupan

如果物体的颜色与要变换的图层的颜色不同。那么要怎么样 使 物体转换到相应的图层的同时。物体的颜色也变的和转换后所在的图层颜色一致呢？？ 我有个转换颜色的程序，是从网上下载的。。

;改成红色--------------------------------------------------------- 1
(defun c:1(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "1" "")
)
;改成黄色--------------------------------------------------------- 2
(defun c:2(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "2" "")
)
;改成绿色--------------------------------------------------------- 3
(defun c:3(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 4
(defun c:4(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "4" "")
)
;改成蓝色--------------------------------------------------------- 5
(defun c:5(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "5" "")
)
;改成紫色--------------------------------------------------------- 6
(defun c:6(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "6" "")
)
;改成白色--------------------------------------------------------- 7
(defun c:7(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "7" "")
)
;改成灰黑色--------------------------------------------------------8
(defun c:8(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "8" "")
)
;改9号色--------------------------------------------------------------9
(defun c:9(/ ent)
(setq ent(ssget))
(command "change" ent "" "p" "c" "9" "")
)

那位高手能帮我把我说的那个程式写出来吗？我想应该是类似的吧。但我太愚笨了。。不胜感谢啊！！！！

spring

(defun c:1(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "bylayer" "la" "1" "");将物体改变到图层 1 颜色随层
(princ)
) 其它的你自己改吧

hsupan

谢谢大侠了。。。。。。。。