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

janekou

6 u0 L, x( O; F要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。

1. (defun c:ttt ()
   
2. (setq Osnap (getvar "osmode")
   + p; g% w. h2 ~  X6 S4 y5 f
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   
5. (setq D 10)               ;(getreal"输入D的长度:" )
   
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   . |0 n- t, a% X& K8 B
8. (setq B 8)             ;(getreal"输入B的长度:" )
   
9. (setq A 15)         ;(getreal"输入A的角度:" )
   - @4 k9 h5 ~: a& B/ \0 Y: x$ G) _4 }
10. 
    7 W6 D+ l& l* E1 B( ]
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    7 P1 L8 d0 f  j7 V. S* m7 K. e
12. (setq p3 (polar p4 0 w2 ))
    
13. (setq p2 (polar basept 0 w2 ))
    $ b4 c7 p& f0 V3 P
14. (setq p7 (polar basept pi w1 ))
    ( e3 z9 r/ D7 ~" }5 U( O1 h: U6 f
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    
17. 
    $ l, t, m& L: E: n( S) E$ k6 a
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    
19. (setvar "osmode" osnap)
    1 u$ i' u' n. I! {- w5 r
20. )

复制代码

SunVei

1. 
   3 U& h$ P9 P* P8 h+ H) d, }; K
2. 
   + A+ T& z; p: Z) g
3. (defun c:ttt ()
   8 c" G' a2 B- F4 m; @  p6 N
4.   (setq Os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   , g0 g8 C9 Y; M. D9 F+ Y! F
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
     P6 O* }( S& {. Z$ p: t$ {
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   : u6 }  O/ K. S" n
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   ) Q* f+ V' Z# \' @- c2 X. g
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    & R6 O9 D" x8 ?5 A4 M
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    7 J2 M  n& ?. K; J0 ~. D
12. 
      l5 [5 a2 B6 Y. i4 v! k" R
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    % w5 M5 L! F; x+ ~' L( w
14.   (setq p3 (polar p4 0 w2))
    
15.   (setq p2 (polar basept 0 w2))
    
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    
18.   (setq ar (* pi (/ A 180)))
    
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    - u& w# p3 ^6 a2 f9 j9 |
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    
21.   (setvar "osmode" os)
    , t. U. z) @9 w4 }" Y
22. )
      ^3 Q+ N6 b, G: _2 m
23. 
    : _& R; S1 D4 [4 {

复制代码

janekou

2# SunVei
( c( d2 z7 w/ A! K" T  H# I
6 ~4 W5 Q* ], @谢谢，大概知道问题出在什么地方了。