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

hsupan · 发表于 2004-8-1 13:33:00

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

hsupan · 发表于 2004-8-1 14:11:00

如果物体的颜色与要变换的图层的颜色不同。那么要怎么样使    物体转换到相应的图层的同时。物体的颜色也变的和转换后所在的图层颜色一致呢？？
我有个转换颜色的程序，是从网上下载的。。;改成红色--------------------------------------------------------- 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" "")
)    那位高手能帮我把我说的那个程式写出来吗？我想应该是类似的吧。但我太愚笨了。。不胜感谢啊！！！！