[编程申请]：再次请教大师们图层处理的问题!

+突破+

)
;改成黄色--------------------------------------------------------- 2
(defun c:2(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "2" "")
)
;改成绿色--------------------------------------------------------- 4
(defun c:4(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 1
(defun c:1(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "4" "")
)

;改成紫色--------------------------------------------------------- 3
(defun c:3(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "6" "")
)

;改成灰色--------------------------------------------------------- 5
(defun c:5(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "251" "")


________________________________________________
请大家看一下上一段程序,有没有什么问题,但怎么没次加载后都显示有错误!
能不能麻烦如何可以实现快速换图层...比如按11就可以直接切到1图层,22的话可直接切到2图层?

taner

你自己耐心找找,论坛上有很多这样的帖子.

武陵山人

[PHP]
;;;******图层切换******
(DEFUN C:11() (setvar "clayer" "图层1"))        ;切换到图层1
(DEFUN C:22() (setvar "clayer" "图层2"))        ;切换到图层2
(DEFUN C:33() (setvar "clayer" "图层3"))        ;切换到图层3
(DEFUN C:44() (setvar "clayer" "图层4"))        ;切换到图层4
(DEFUN C:55() (setvar "clayer" "图层5"))        ;切换到图层5
[/PHP]

xyp1964

2. [FONT=courier new];;改成红色--------------------------------------------------------- 2
   
3. (defun c:1 (/ ent)
   
4.   (if (setq ent (ssget))
   
5.     (command "chprop" ent "" "c" "1" "")
   
6.   )
   
7.   (princ)
   
8. )
   
9. ;;改成黄色--------------------------------------------------------- 2
   
10. (defun c:2 (/ ent)
    
11.   (if (setq ent (ssget))
    
12.     (command "chprop" ent "" "c" "2" "")
    
13.   )
    
14.   (princ)
    
15. )
    
16. ;;改成绿色--------------------------------------------------------- 3
    
17. (defun c:3 (/ ent)
    
18.   (if (setq ent (ssget))
    
19.     (command "chprop" ent "" "c" "3" "")
    
20.   )
    
21.   (princ)
    
22. )
    
23. ;;改成青色--------------------------------------------------------- 4
    
24. (defun c:4 (/ ent)
    
25.   (if (setq ent (ssget))
    
26.     (command "chprop" ent "" "c" "4" "")
    
27.   )
    
28.   (princ)
    
29. )
    
30. ;;改成粉色--------------------------------------------------------- 4
    
31. (defun c:5 (/ ent)
    
32.   (if (setq ent (ssget))
    
33.     (command "chprop" ent "" "c" "5" "")
    
34.   )
    
35.   (princ)
    
36. )
    
37. ;;改成紫色--------------------------------------------------------- 6
    
38. (defun c:6 (/ ent)
    
39.   (if (setq ent (ssget))
    
40.     (command "chprop" ent "" "c" "6" "")
    
41.   )
    
42.   (princ)
    
43. )
    
44. ;;改成灰色--------------------------------------------------------- 7
    
45. (defun c:7 (/ ent)
    
46.   (if (setq ent (ssget))
    
47.     (command "chprop" ent "" "c" "7" "")
    
48.   )
    
49.   (princ)
    
50. )[/FONT]

[FONT=courier new];;改成红色--------------------------------------------------------- 2<br /> (defun c:1 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "1" "")<br />   )<br />   (princ)<br /> )<br /> ;;改成黄色--------------------------------------------------------- 2<br /> (defun c:2 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "2" "")<br />   )<br />   (princ)<br /> )<br /> ;;改成绿色--------------------------------------------------------- 3<br /> (defun c:3 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "3" "")<br />   )<br />   (princ)<br /> )<br /> ;;改成青色--------------------------------------------------------- 4<br /> (defun c:4 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "4" "")<br />   )<br />   (princ)<br /> )<br /> ;;改成粉色--------------------------------------------------------- 4<br /> (defun c:5 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "5" "")<br />   )<br />   (princ)<br /> )<br /> ;;改成紫色--------------------------------------------------------- 6<br /> (defun c:6 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "6" "")<br />   )<br />   (princ)<br /> )<br /> ;;改成灰色--------------------------------------------------------- 7<br /> (defun c:7 (/ ent)<br />   (if (setq ent (ssget))<br />     (command "chprop" ent "" "c" "7" "")<br />   )<br />   (princ)<br /> )[/FONT]

雨箭风刀

;改成灰色--------------------------------------------------------- 5
(defun c:5(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "c" "251" "")


________________________________________________
请大家看一下上一段程序,有没有什么问题,但怎么没次加载后都显示有错误!
能不能麻烦如何可以实现快速换图层...比如按11就可以直接切到1图层,22的话可直接切到2图层?


最后少了一个括号

+突破+

谢谢大家的帮忙...自动换层和直接改层的问题已经处理好了...非常感谢大家!!!