求助高手

bikeboy

为什么在我添加上角度之后反而不能终止循环呢？

2. (defun GX-003 (a)
   
3. (* a (/ pi 180.000000)))
   
4. 
   
5. (defun GX-001 ()
   
6. (if (tblsearch "layer" "H-SOLID LINE")
   
7. (setvar "clayer" "H-SOLID LINE")
   
8. (command "layer" "m" "H-SOLID LINE" "c" "3" "" "l" "continuous" "" "lw" "0.09" "" "")
   
9. )
   
10. )
    
11. 
    
12. (defun c:ssaa (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 e ee eee eeee eeee curlay sc ang mouse)
    
13. (setvar "cmdecho" 0)
    
14. (setq curlay (getvar "Clayer"))
    
15. (setvar "osmode" 0)
    
16. (SETQ curlay(getvar "clayer"))
    
17. (setq p1 (getpoint "插入点："))
    
18. (setq p11 (cadr (setq mouse (grread T 5 0))))
    
19. (setvar "OSMODE" 0)
    
20. (GX-001)
    
21. (setq p2 (polar p1 (GX-003 90) 2.5))
    
22. (setq p3 (polar p1 (GX-003 90) 3.5))
    
23. (setq p4 (polar p1 (GX-003 90) 4.5))
    
24. (setq p5 (polar p1 (GX-003 90) 5))
    
25. (setq p7 (polar p4 (GX-003 -45) 1))
    
26. (setq p8 (polar p3 (GX-003 -45) 1))
    
27. (setq p9 (polar p2 (GX-003 -45)1))
    
28. (setq p6 (polar p7 (GX-003 90) 0.5))
    
29. (setq p10 (polar p9 (GX-003 -90) 0.5))
    
30. (command "line" p1 p5 "")
    
31. (setq e (entlast))
    
32. (setq ss (ssadd))
    
33. (ssadd e ss)
    
34. (command "line" p4 p7 "")
    
35. (setq ee (entlast))
    
36. (ssadd ee ss)
    
37. (command "line" p3 p8 "")
    
38. (setq eee (entlast))
    
39. (ssadd eee ss)
    
40. (command "line" p2 p9 "")
    
41. (setq eeee (entlast))
    
42. (ssadd eeee ss)
    
43. (command "line" p6 p10 "")
    
44. (setq eeeee (entlast))
    
45. (ssadd eeeee ss)
    
46. (setvar "Clayer" curlay)
    
47. (if (null (tblsearch "block" "molded")
    
48. )
    
49. (COMMAND "block" "molded" p1 ss "")
    
50. (command "erase" ss "")
    
51. )
    
52. (setq sc (* 2 (getvar "ltscale")))
    
53. (while (/= (car (setq mouse (grread mouse 5 0))) 3)  
    
54. (setq p11 (cadr mouse))
    
55. (setq ang (angle p1 p11))
    
56. (COMMAND "insert" "molded" "s" sc "r" ang p1 )
    
57. )
    
58. (setvar "osmode" 16383)
    
59. 
    
60. (princ))

(defun GX-003 (a)<br /> (* a (/ pi 180.000000)))<br /> <br /> (defun GX-001 ()<br /> (if (tblsearch "layer" "H-SOLID LINE")<br /> (setvar "clayer" "H-SOLID LINE")<br /> (command "layer" "m" "H-SOLID LINE" "c" "3" "" "l" "continuous" "" "lw" "0.09" "" "")<br /> )<br /> )<br /> <br /> (defun c:ssaa (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 e ee eee eeee eeee curlay sc ang mouse)<br /> (setvar "cmdecho" 0)<br /> (setq curlay (getvar "Clayer"))<br /> (setvar "osmode" 0) <br /> (SETQ curlay(getvar "clayer"))<br /> (setq p1 (getpoint "插入点："))<br /> (setq p11 (cadr (setq mouse (grread T 5 0))))<br /> (setvar "OSMODE" 0)<br /> (GX-001)<br /> (setq p2 (polar p1 (GX-003 90) 2.5))<br /> (setq p3 (polar p1 (GX-003 90) 3.5))<br /> (setq p4 (polar p1 (GX-003 90) 4.5))<br /> (setq p5 (polar p1 (GX-003 90) 5))<br /> (setq p7 (polar p4 (GX-003 -45) 1))<br /> (setq p8 (polar p3 (GX-003 -45) 1))<br /> (setq p9 (polar p2 (GX-003 -45)1))<br /> (setq p6 (polar p7 (GX-003 90) 0.5))<br /> (setq p10 (polar p9 (GX-003 -90) 0.5))<br /> (command "line" p1 p5 "")<br /> (setq e (entlast))<br /> (setq ss (ssadd)) <br /> (ssadd e ss)<br /> (command "line" p4 p7 "")<br /> (setq ee (entlast)) <br /> (ssadd ee ss)<br /> (command "line" p3 p8 "")<br /> (setq eee (entlast)) <br /> (ssadd eee ss)<br /> (command "line" p2 p9 "")<br /> (setq eeee (entlast)) <br /> (ssadd eeee ss)<br /> (command "line" p6 p10 "")<br /> (setq eeeee (entlast)) <br /> (ssadd eeeee ss)<br /> (setvar "Clayer" curlay)<br /> (if (null (tblsearch "block" "molded")<br /> )<br /> (COMMAND "block" "molded" p1 ss "")<br /> (command "erase" ss "")<br /> )<br /> (setq sc (* 2 (getvar "ltscale")))<br /> (while (/= (car (setq mouse (grread mouse 5 0))) 3)  <br /> (setq p11 (cadr mouse)) <br /> (setq ang (angle p1 p11))<br /> (COMMAND "insert" "molded" "s" sc "r" ang p1 )<br /> )<br /> (setvar "osmode" 16383)<br /> <br /> (princ))

下面这个是没有增加角度的，程序可执行但提示有问题

2. (defun GX-003 (a)
   
3. (* a (/ pi 180.000000)))
   
4. 
   
5. (defun GX-001 ()
   
6. (if (tblsearch "layer" "H-SOLID LINE")
   
7. (setvar "clayer" "H-SOLID LINE")
   
8. (command "layer" "m" "H-SOLID LINE" "c" "3" "" "l" "continuous" "" "lw" "0.09" "" "")
   
9. )
   
10. )
    
11. 
    
12. (defun c:ssaa (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 e ee eee eeee eeee curlay sc ang mouse)
    
13. (setvar "cmdecho" 0)
    
14. (setq curlay (getvar "Clayer"))
    
15. (setvar "osmode" 0)
    
16. (SETQ curlay(getvar "clayer"))
    
17. (setq p1 (getpoint "插入点："))
    
18. (setq p11 (cadr (setq mouse (grread T 5 0))))
    
19. (setvar "OSMODE" 0)
    
20. (GX-001)
    
21. (setq p2 (polar p1 (GX-003 90) 2.5))
    
22. (setq p3 (polar p1 (GX-003 90) 3.5))
    
23. (setq p4 (polar p1 (GX-003 90) 4.5))
    
24. (setq p5 (polar p1 (GX-003 90) 5))
    
25. (setq p7 (polar p4 (GX-003 -45) 1))
    
26. (setq p8 (polar p3 (GX-003 -45) 1))
    
27. (setq p9 (polar p2 (GX-003 -45)1))
    
28. (setq p6 (polar p7 (GX-003 90) 0.5))
    
29. (setq p10 (polar p9 (GX-003 -90) 0.5))
    
30. (command "line" p1 p5 "")
    
31. (setq e (entlast))
    
32. (setq ss (ssadd))
    
33. (ssadd e ss)
    
34. (command "line" p4 p7 "")
    
35. (setq ee (entlast))
    
36. (ssadd ee ss)
    
37. (command "line" p3 p8 "")
    
38. (setq eee (entlast))
    
39. (ssadd eee ss)
    
40. (command "line" p2 p9 "")
    
41. (setq eeee (entlast))
    
42. (ssadd eeee ss)
    
43. (command "line" p6 p10 "")
    
44. (setq eeeee (entlast))
    
45. (ssadd eeeee ss)
    
46. (setvar "Clayer" curlay)
    
47. (if (null (tblsearch "block" "molded")
    
48. )
    
49. (COMMAND "block" "molded" p1 ss "")
    
50. (command "erase" ss "")
    
51. )
    
52. (setq sc (* 2 (getvar "ltscale")))
    
53. (while (/= (car (setq mouse (grread mouse 5 0))) 3)   
    
54. (setq p11 (cadr mouse))
    
55. (setq ang (angle p1 p11))
    
56. (COMMAND "insert" "molded" "s" sc  p1 )
    
57. )
    
58. (setvar "osmode" 16383)
    
59. 
    
60. (princ))

(defun GX-003 (a)<br /> (* a (/ pi 180.000000)))<br /> <br /> (defun GX-001 ()<br /> (if (tblsearch "layer" "H-SOLID LINE")<br /> (setvar "clayer" "H-SOLID LINE")<br /> (command "layer" "m" "H-SOLID LINE" "c" "3" "" "l" "continuous" "" "lw" "0.09" "" "")<br /> )<br /> )<br /> <br /> (defun c:ssaa (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 e ee eee eeee eeee curlay sc ang mouse)<br /> (setvar "cmdecho" 0)<br /> (setq curlay (getvar "Clayer"))<br /> (setvar "osmode" 0) <br /> (SETQ curlay(getvar "clayer"))<br /> (setq p1 (getpoint "插入点："))<br /> (setq p11 (cadr (setq mouse (grread T 5 0))))<br /> (setvar "OSMODE" 0)<br /> (GX-001)<br /> (setq p2 (polar p1 (GX-003 90) 2.5))<br /> (setq p3 (polar p1 (GX-003 90) 3.5))<br /> (setq p4 (polar p1 (GX-003 90) 4.5))<br /> (setq p5 (polar p1 (GX-003 90) 5))<br /> (setq p7 (polar p4 (GX-003 -45) 1))<br /> (setq p8 (polar p3 (GX-003 -45) 1))<br /> (setq p9 (polar p2 (GX-003 -45)1))<br /> (setq p6 (polar p7 (GX-003 90) 0.5))<br /> (setq p10 (polar p9 (GX-003 -90) 0.5))<br /> (command "line" p1 p5 "")<br /> (setq e (entlast))<br /> (setq ss (ssadd)) <br /> (ssadd e ss)<br /> (command "line" p4 p7 "")<br /> (setq ee (entlast)) <br /> (ssadd ee ss)<br /> (command "line" p3 p8 "")<br /> (setq eee (entlast)) <br /> (ssadd eee ss)<br /> (command "line" p2 p9 "")<br /> (setq eeee (entlast)) <br /> (ssadd eeee ss)<br /> (command "line" p6 p10 "")<br /> (setq eeeee (entlast)) <br /> (ssadd eeeee ss)<br /> (setvar "Clayer" curlay)<br /> (if (null (tblsearch "block" "molded")<br /> )<br /> (COMMAND "block" "molded" p1 ss "")<br /> (command "erase" ss "")<br /> )<br /> (setq sc (* 2 (getvar "ltscale")))<br /> (while (/= (car (setq mouse (grread mouse 5 0))) 3)   <br /> (setq p11 (cadr mouse)) <br /> (setq ang (angle p1 p11))<br /> (COMMAND "insert" "molded" "s" sc  p1 )<br /> )<br /> (setvar "osmode" 16383)<br /> <br /> (princ))

bikeboy

就是自己学习一下 功能意义不大