[求助]：救救小弟吧!!为啥有错?!!

jimmy8135

2. [font=courier new]
   
3. (defun midpoint (p2 p3)
   
4.   (list (/ (+ (car p2) (car p3)) 2) (/ (+ (cadr p2) (cadr p3)) 2)))
   
5. (defun go1 (p3 p2)
   
6.   (list ((car p3) (cadr p2))))
   
7. (defun go2 (p2 p3)
   
8.   (list ((car p2) (cadr p3))))
   
9. (defun c:t5 (/ p1 p2 p3 k p4 p5)
   
10.   (setq p1 (getpoint "\n input p1"))
    
11.   (setq p2 (getpoint "\n input p2"))
    
12.   (setq p3 (polar p2 0 30))
    
13.   (setq num (getint "\n input number"))
    
14.   (command "pline" p1 p2 p3 "")
    
15.   (command "text" "j" "mc" (polar (midpoint p2 p3) (/ pi 2) 10) "10" "" num )
    
16.   (setq k 1)
    
17.   (while (= k 1)
    
18.     (setq p1 (getpoint "\n input p1"))
    
19.     (setq p3 (getpoint "\n input p2"))
    
20.     (setq num (+ num 1))
    
21.     (setq ang (angle p2 p3))
    
22.     (cond
    
23.       ((or (> ang (* (/ pi 4) 7)) (< ang (/ pi 4)) (and (> ang (* (/ pi 4) 3)) (< ang (* (/ pi 4) 5))))
    
24.        (setq p4 (go1 p3 p2)))
    
25.       ((or (and (> ang (/ pi 4)) (< ang (* (/ pi 4) 3))) (and (< ang (* (/ pi 4) 7)) (> ang (* (/ pi 4) 6))))
    
26.        (setq p4 (go1 p2 p3))))
    
27.     (setq p5 (polar p4 0 30))
    
28.     (command "pline" p1 p4 p5 "")
    
29.     (command "text" "j" "mc" (polar (midpoint p4 p5) (/ pi 2) 10) "10" "" num )
    
30.     (print "\n")
    
31.     (setq k (getdist "\n do you want continue? input 1 mean yes; input 0 mean no"))))
    
32. 
    
33. [/font]

[font=courier new]<br /> (defun midpoint (p2 p3) <br />   (list (/ (+ (car p2) (car p3)) 2) (/ (+ (cadr p2) (cadr p3)) 2))) <br /> (defun go1 (p3 p2) <br />   (list ((car p3) (cadr p2)))) <br /> (defun go2 (p2 p3) <br />   (list ((car p2) (cadr p3)))) <br /> (defun c:t5 (/ p1 p2 p3 k p4 p5) <br />   (setq p1 (getpoint "\n input p1")) <br />   (setq p2 (getpoint "\n input p2")) <br />   (setq p3 (polar p2 0 30)) <br />   (setq num (getint "\n input number")) <br />   (command "pline" p1 p2 p3 "") <br />   (command "text" "j" "mc" (polar (midpoint p2 p3) (/ pi 2) 10) "10" "" num ) <br />   (setq k 1) <br />   (while (= k 1) <br />     (setq p1 (getpoint "\n input p1")) <br />     (setq p3 (getpoint "\n input p2")) <br />     (setq num (+ num 1)) <br />     (setq ang (angle p2 p3)) <br />     (cond <br />       ((or (> ang (* (/ pi 4) 7)) (< ang (/ pi 4)) (and (> ang (* (/ pi 4) 3)) (< ang (* (/ pi 4) 5)))) <br />        (setq p4 (go1 p3 p2))) <br />       ((or (and (> ang (/ pi 4)) (< ang (* (/ pi 4) 3))) (and (< ang (* (/ pi 4) 7)) (> ang (* (/ pi 4) 6)))) <br />        (setq p4 (go1 p2 p3)))) <br />     (setq p5 (polar p4 0 30)) <br />     (command "pline" p1 p4 p5 "") <br />     (command "text" "j" "mc" (polar (midpoint p4 p5) (/ pi 2) 10) "10" "" num ) <br />     (print "\n") <br />     (setq k (getdist "\n do you want continue? input 1 mean yes; input 0 mean no")))) <br /> <br /> [/font]

这是一个标注数字用的程序,一个功能是输入一个数字,后面的数字自动加一,另一个主要功能是自动和原来的p2保持平行或垂直,主要修改p4的坐标达到.可是每次运行到求角度ang后就不行了!盼各位高手火眼金睛了!

ll_j

语法错误：

2. 
   
3. (defun go1 (p3 p2)
   
4.   (list (car p3) (cadr p2)))   ;原为(list ((car p3) (cadr p2))))   
   
5. (defun go2 (p2 p3)
   
6.   (list (car p2) (cadr p3)))   ;原为(list ((car p2) (cadr p3))))
   

<br /> (defun go1 (p3 p2) <br />   (list (car p3) (cadr p2)))   ;原为(list ((car p3) (cadr p2))))   <br /> (defun go2 (p2 p3) <br />   (list (car p2) (cadr p3)))   ;原为(list ((car p2) (cadr p3)))) <br />

其它在计算角度时，结果不是所要的，需要你自己查，因为只有你才知道思路。

jimmy8135

我的坐标赋值少了个括号
难怪我一只找不出
感谢!
麻烦大家了!!

唐建成

哈哈