[求助]：请高手帮我看看下面程序,每次运行都发生循环中断.

point13

(Defun C:opg ()
(SETQ Hor (Getdist "\nHorizontal Distance <56>: "))
        (IF (= Hor nil) (setq hor 56))
(SETQ Ver (Getdist "\nVertical Distance <48>: "))
        (IF (= Ver nil) (setq ver 48))
(SETQ Tri (Getdist "\nTrim Width <2>: "))
        (IF (= Tri nil) (setq tri 2))
(SETQ SP (Getpoint "\nStart Point: "))
(SETQ CL (GETVAR "CLAYER"))
(SETQ HOR (+ HOR (* 2.0 TRI)))
(SETQ VER (+ VER (* 2.0 TRI)))
(SETQ P2 (Polar SP (dtr 0) hor))
(SETQ P3 (Polar P2 (dtr 90) ver))
(SETQ P4 (Polar SP (dtr 90) ver))
  (COMMAND "LAYER" "M" "WINDOW" "C" "YELLOW" "" "")
  (COMMAND "Line" SP P2 P3 P4 "c")
(SETQ J (Polar SP (dtr 90) Tri))
(SETQ P5 (Polar J (dtr 0) Tri))
(setq iver (- ver (* 2 tri)))
(SETQ P6 (Polar P5 (dtr 90) iver))
(setq ihor (- hor (* 2 Tri)))
(SETQ P7 (Polar P6 (dtr 0) ihor))
(SETQ P8 (Polar P7 (dtr 270) iver))
  (COMMAND "LINE" P5 P6 P7 P8 "c")
(SETQ MID (* (- HOR (* TRI 2)) 0.5))
(SETQ P9 (POLAR P5 (DTR 0) MID))
(SETQ P10 (POLAR P9 (DTR 180) 0.5))
(SETQ MID2 (* (- VER (* TRI 2)) 0.5))
(SETQ P11 (POLAR P5 (DTR 90) MID2))
(SETQ P12 (POLAR P11 (DTR 270) 0.5))
(SETQ HOTP (- MID 0.5))
(SETQ P13 (POLAR P12 (DTR 0) HOTP))
  (COMMAND "LINE" P10 P13 P12 "")
(SETQ P14 (POLAR P11 (DTR 90) 0.5))
(SETQ P15 (POLAR P14 (DTR 0) HOTP))
(SETQ VOTP (- (/ IVER 2.0) 0.5))
(SETQ P16 (POLAR P15 (DTR 90) VOTP))
  (COMMAND "LINE" P14 P15 P16 "")
(SETQ P17 (POLAR P9 (DTR 0) 0.5))
(SETQ P18 (POLAR P17 (DTR 90) VOTP))
(SETQ P19 (POLAR P18 (DTR 0) HOTP))
  (COMMAND "LINE" P17 P18 P19 "")
(SETQ P20 (POLAR P19 (DTR 90) 1.0))
(SETQ P21 (POLAR P20 (DTR 180) HOTP))
(SETQ P22 (POLAR P21 (DTR 90) VOTP))
  (COMMAND "LINE" P20 P21 P22 "")
(SETVAR "CLAYER" CL)
  )
(Defun DTR (a) (* Pi (/ a 180.0)))
(Princ "\nType OPG For An Opening.")
(Princ)
每次运行程序都发生分配给保护符号:VER,进入中断循环;
请问高手,VER 是什么啊(我知道是返回包含当前AutoLISP版本号的字符串,除此之外VER还有别的什么作用吗,)
除此之外VER还有别的什么作用吗
附图:

yshf

VER是LISP的保留字，不能用来作为变量，修改为如下即可：

2. (Defun C:opg ()
   
3. (SETQ Hor (Getdist "\nHorizontal Distance <56>: "))
   
4. (IF (= Hor nil) (setq hor 56))
   
5. (SETQ Ver1 (Getdist "\nVertical Distance <48>: "))
   
6. (IF (= Ver1 nil) (setq ver1 48))
   
7. (SETQ Tri (Getdist "\nTrim Width <2>: "))
   
8. (IF (= Tri nil) (setq tri 2))
   
9. (SETQ SP (Getpoint "\nStart Point: "))
   
10. (SETQ CL (GETVAR "CLAYER"))
    
11. (SETQ HOR (+ HOR (* 2.0 TRI)))
    
12. (SETQ VER1 (+ VER1 (* 2.0 TRI)))
    
13. (SETQ P2 (Polar SP (dtr 0) hor))
    
14. (SETQ P3 (Polar P2 (dtr 90) ver1))
    
15. (SETQ P4 (Polar SP (dtr 90) ver1))
    
16. (COMMAND "LAYER" "M" "WINDOW" "C" "YELLOW" "" "")
    
17. (COMMAND "Line" SP P2 P3 P4 "c")
    
18. (SETQ J (Polar SP (dtr 90) Tri))
    
19. (SETQ P5 (Polar J (dtr 0) Tri))
    
20. (setq iver (- ver1 (* 2 tri)))
    
21. (SETQ P6 (Polar P5 (dtr 90) iver))
    
22. (setq ihor (- hor (* 2 Tri)))
    
23. (SETQ P7 (Polar P6 (dtr 0) ihor))
    
24. (SETQ P8 (Polar P7 (dtr 270) iver))
    
25. (COMMAND "LINE" P5 P6 P7 P8 "c")
    
26. (SETQ MID (* (- HOR (* TRI 2)) 0.5))
    
27. (SETQ P9 (POLAR P5 (DTR 0) MID))
    
28. (SETQ P10 (POLAR P9 (DTR 180) 0.5))
    
29. (SETQ MID2 (* (- VER1 (* TRI 2)) 0.5))
    
30. (SETQ P11 (POLAR P5 (DTR 90) MID2))
    
31. (SETQ P12 (POLAR P11 (DTR 270) 0.5))
    
32. (SETQ HOTP (- MID 0.5))
    
33. (SETQ P13 (POLAR P12 (DTR 0) HOTP))
    
34. (COMMAND "LINE" P10 P13 P12 "")
    
35. (SETQ P14 (POLAR P11 (DTR 90) 0.5))
    
36. (SETQ P15 (POLAR P14 (DTR 0) HOTP))
    
37. (SETQ VOTP (- (/ IVER 2.0) 0.5))
    
38. (SETQ P16 (POLAR P15 (DTR 90) VOTP))
    
39. (COMMAND "LINE" P14 P15 P16 "")
    
40. (SETQ P17 (POLAR P9 (DTR 0) 0.5))
    
41. (SETQ P18 (POLAR P17 (DTR 90) VOTP))
    
42. (SETQ P19 (POLAR P18 (DTR 0) HOTP))
    
43. (COMMAND "LINE" P17 P18 P19 "")
    
44. (SETQ P20 (POLAR P19 (DTR 90) 1.0))
    
45. (SETQ P21 (POLAR P20 (DTR 180) HOTP))
    
46. (SETQ P22 (POLAR P21 (DTR 90) VOTP))
    
47. (COMMAND "LINE" P20 P21 P22 "")
    
48. (SETVAR "CLAYER" CL)
    
49. )
    
50. (Defun DTR (a) (* Pi (/ a 180.0)))
    
51. (Princ "\nType OPG For An Opening.")
    
52. (Princ)
    

(Defun C:opg ()<br /> (SETQ Hor (Getdist "\nHorizontal Distance <56>: "))<br /> (IF (= Hor nil) (setq hor 56))<br /> (SETQ Ver1 (Getdist "\nVertical Distance <48>: "))<br /> (IF (= Ver1 nil) (setq ver1 48))<br /> (SETQ Tri (Getdist "\nTrim Width <2>: "))<br /> (IF (= Tri nil) (setq tri 2))<br /> (SETQ SP (Getpoint "\nStart Point: "))<br /> (SETQ CL (GETVAR "CLAYER"))<br /> (SETQ HOR (+ HOR (* 2.0 TRI)))<br /> (SETQ VER1 (+ VER1 (* 2.0 TRI)))<br /> (SETQ P2 (Polar SP (dtr 0) hor))<br /> (SETQ P3 (Polar P2 (dtr 90) ver1))<br /> (SETQ P4 (Polar SP (dtr 90) ver1))<br /> (COMMAND "LAYER" "M" "WINDOW" "C" "YELLOW" "" "")<br /> (COMMAND "Line" SP P2 P3 P4 "c")<br /> (SETQ J (Polar SP (dtr 90) Tri))<br /> (SETQ P5 (Polar J (dtr 0) Tri))<br /> (setq iver (- ver1 (* 2 tri)))<br /> (SETQ P6 (Polar P5 (dtr 90) iver))<br /> (setq ihor (- hor (* 2 Tri)))<br /> (SETQ P7 (Polar P6 (dtr 0) ihor))<br /> (SETQ P8 (Polar P7 (dtr 270) iver))<br /> (COMMAND "LINE" P5 P6 P7 P8 "c")<br /> (SETQ MID (* (- HOR (* TRI 2)) 0.5))<br /> (SETQ P9 (POLAR P5 (DTR 0) MID))<br /> (SETQ P10 (POLAR P9 (DTR 180) 0.5))<br /> (SETQ MID2 (* (- VER1 (* TRI 2)) 0.5))<br /> (SETQ P11 (POLAR P5 (DTR 90) MID2))<br /> (SETQ P12 (POLAR P11 (DTR 270) 0.5))<br /> (SETQ HOTP (- MID 0.5))<br /> (SETQ P13 (POLAR P12 (DTR 0) HOTP))<br /> (COMMAND "LINE" P10 P13 P12 "")<br /> (SETQ P14 (POLAR P11 (DTR 90) 0.5))<br /> (SETQ P15 (POLAR P14 (DTR 0) HOTP))<br /> (SETQ VOTP (- (/ IVER 2.0) 0.5))<br /> (SETQ P16 (POLAR P15 (DTR 90) VOTP))<br /> (COMMAND "LINE" P14 P15 P16 "")<br /> (SETQ P17 (POLAR P9 (DTR 0) 0.5))<br /> (SETQ P18 (POLAR P17 (DTR 90) VOTP))<br /> (SETQ P19 (POLAR P18 (DTR 0) HOTP))<br /> (COMMAND "LINE" P17 P18 P19 "")<br /> (SETQ P20 (POLAR P19 (DTR 90) 1.0))<br /> (SETQ P21 (POLAR P20 (DTR 180) HOTP))<br /> (SETQ P22 (POLAR P21 (DTR 90) VOTP))<br /> (COMMAND "LINE" P20 P21 P22 "")<br /> (SETVAR "CLAYER" CL) <br /> )<br /> (Defun DTR (a) (* Pi (/ a 180.0)))<br /> (Princ "\nType OPG For An Opening.")<br /> (Princ)<br />