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

janekou

要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。
" G& e8 |, x3 D* G# N) D" y+ i$ t7 Q4 e

1. (defun c:ttt ()
   : ~9 X" f- `: i& Y' }
2. (setq Osnap (getvar "osmode")
   
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   + y( L( n4 X# W
5. (setq D 10)               ;(getreal"输入D的长度:" )
   5 p. f/ X% E8 R
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   ! a6 S: A( ]3 F, j
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   + f$ V' I: p# y* @. n. \
8. (setq B 8)             ;(getreal"输入B的长度:" )
   
9. (setq A 15)         ;(getreal"输入A的角度:" )
   # B' G. [4 Q4 L/ j
10. 
    8 |' e  y% A8 ]- |. N- N( F
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    
12. (setq p3 (polar p4 0 w2 ))
    + n& [4 }- a* P8 N4 l) ^7 a; W7 J
13. (setq p2 (polar basept 0 w2 ))
    
14. (setq p7 (polar basept pi w1 ))
    
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    * ~7 _0 Z+ ^+ r8 p+ z+ S
17. 
    
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    3 ?6 U+ v& F4 G4 w
19. (setvar "osmode" osnap)
    
20. )

复制代码

SunVei

( P4 y& u; y! Y

1. 
   
2. 
     _' N8 \; @3 O
3. (defun c:ttt ()
   2 F0 E" w& x1 J  H- B0 J! v' u
4.   (setq Os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   5 ]' P5 ~, j; D; P* Y5 m+ o
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   1 b# A3 j& l( c  I. P. C1 A
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   ; M) ?* y& ]4 u' i. ], P7 D, ^( j
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   5 t5 S# F7 ^" l0 V$ B+ Q
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    
12. 
    ! C9 }0 l6 N( P# `1 [
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    ; e. l3 ~' g. t
14.   (setq p3 (polar p4 0 w2))
    
15.   (setq p2 (polar basept 0 w2))
    / z3 t0 \4 `- y% a5 Z' A0 I) [
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    ; C! \/ K0 p3 ^$ p- K% V, V; _2 f9 Y
18.   (setq ar (* pi (/ A 180)))
    
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    $ q% `  J4 F9 G8 h0 c
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    % A/ |. C  p8 T9 I6 o2 J
21.   (setvar "osmode" os)
    ! x/ ^) T2 Y0 q8 x  t1 B7 s5 a9 \
22. )
    4 j) V$ B2 E+ m+ ?, j- F0 s
23. 
    

复制代码

janekou

2# SunVei
4 k1 c- f& ]9 `0 f( q% b( O  q
谢谢，大概知道问题出在什么地方了。