请问下我的角度设错了吗？

janekou

2 Q  p9 S$ R! h2 c& N! m要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。
, k) m; _% r6 ]& B

1. (defun c:ttt ()
   
2. (setq Osnap (getvar "osmode")
   $ j, [9 i2 L  C3 K
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   5 P. b6 n5 E3 S: x6 f, ?) i( x
5. (setq D 10)               ;(getreal"输入D的长度:" )
   ) Q6 p9 }" y5 {2 m9 ?( y8 f6 v
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   
8. (setq B 8)             ;(getreal"输入B的长度:" )
   
9. (setq A 15)         ;(getreal"输入A的角度:" )
   
10. 
    0 T: q% a, S. D( x. s, I
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    
12. (setq p3 (polar p4 0 w2 ))
    
13. (setq p2 (polar basept 0 w2 ))
    5 O4 {9 c- L( ]& L5 J
14. (setq p7 (polar basept pi w1 ))
    
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    ; Y+ T8 x! q: P- W$ K+ Z
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    / _  [- T3 q5 |& F% n1 U
17. 
    
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    7 z: N1 H8 A0 L* i9 N
19. (setvar "osmode" osnap)
    & A# M/ T6 H3 B
20. )

复制代码

SunVei

9 J, O4 a" s7 b- Q$ ~* W  L, g

1. 
   " F" X* D# R  Y% x8 `( p
2. 
   ) J; E/ }) Q# d4 Z4 D2 M- \
3. (defun c:ttt ()
     x0 C1 v8 |7 v+ b8 E( `# B& U
4.   (setq Os (getvar "osmode"))
   9 p8 I, r( M9 u  o6 J+ O
5.   (setvar "osmode" 0)
   : I& k/ U  k* `! `
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   ( ^) O) j  I* O6 ^
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   : F, d9 r, ?) D  S1 s; ]" r
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    6 p& R" c. f( \! {, d, {
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    4 V5 V& I' G+ r; Q
12. 
    
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    3 M+ {9 v; Z4 Q) ]
14.   (setq p3 (polar p4 0 w2))
    + Q* V, G" ^- x! w0 f( W0 \
15.   (setq p2 (polar basept 0 w2))
    
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    9 D- A- M  z7 g6 I* Z  m
18.   (setq ar (* pi (/ A 180)))
    
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    ( |% ?% o; \. M9 q
21.   (setvar "osmode" os)
    
22. )
    
23. 
    

复制代码

janekou

2# SunVei

* u& P' T: f! n& y% Y( ^谢谢，大概知道问题出在什么地方了。