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

janekou

要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。
" |! z6 m  S& }/ Q

1. (defun c:ttt ()
   
2. (setq Osnap (getvar "osmode")
   * w/ Z7 ]7 _1 M/ h: B8 W: Q# Q
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   
5. (setq D 10)               ;(getreal"输入D的长度:" )
   * k/ G. j6 I- Q( K1 C
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   
8. (setq B 8)             ;(getreal"输入B的长度:" )
   5 c; c- \( \8 r% g
9. (setq A 15)         ;(getreal"输入A的角度:" )
   
10. 
    4 ~5 a- E" d( b( {3 D
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    ( X4 L+ O1 v+ d' J. n; w
12. (setq p3 (polar p4 0 w2 ))
    6 |4 F% Q6 |5 a2 b$ L% Z% m4 h2 d
13. (setq p2 (polar basept 0 w2 ))
    , `6 ~$ O& a) z" M) s9 f
14. (setq p7 (polar basept pi w1 ))
    
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    3 G0 r+ k( F$ A* a0 o
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    
17. 
    / ]3 w- y$ b6 [/ H/ M& z0 A
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    0 H' l& f# {) f6 ]
19. (setvar "osmode" osnap)
    6 u9 q* h# K- Z8 f
20. )

复制代码

SunVei

3 j. \! i0 f& x; I0 z, Q- b0 {$ a

1. 
   3 s) X& L3 G2 b1 u  T; ^5 n
2. 
   
3. (defun c:ttt ()
   / Q0 H% ^8 u( D( p/ s: {8 t
4.   (setq Os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
     {' d* g/ F: x  c, V0 H% I
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   1 c) |. Y8 [" w
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   - y7 j" O: q/ S" B6 o1 F6 E/ @
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    0 a( Z, [& ]4 w$ V0 I
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    2 d* l0 p( ?7 D- Y
12. 
    
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    
14.   (setq p3 (polar p4 0 w2))
    
15.   (setq p2 (polar basept 0 w2))
      V+ |8 c( W2 w* k
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    3 }9 Z+ n) ~' n
18.   (setq ar (* pi (/ A 180)))
    
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    ( D- K6 @; Y# B
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    - }6 \8 t6 E" a2 T
21.   (setvar "osmode" os)
    
22. )
    + c- H# j3 s' H# ?
23. 
    ( Q  r1 K. `# [. r# U

复制代码

janekou

2# SunVei

* i+ F8 v3 T$ d/ y6 A9 P谢谢，大概知道问题出在什么地方了。