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

janekou

' K+ y" ^1 l( y' n6 h% k
要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。

1. (defun c:ttt ()
   
2. (setq Osnap (getvar "osmode")
   
3. (setvar "osmode" 0)
   . A" y# p: e/ v$ I" Z$ c- ]
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   
5. (setq D 10)               ;(getreal"输入D的长度:" )
   8 _0 n5 T  H$ [# e6 N$ l/ P
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   - O5 D* u0 h" E4 I0 n+ O" t
8. (setq B 8)             ;(getreal"输入B的长度:" )
   
9. (setq A 15)         ;(getreal"输入A的角度:" )
   
10. 
    
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    & C0 i1 a* i. m# j7 }* t4 l7 k  K
12. (setq p3 (polar p4 0 w2 ))
    ) U9 Y$ C1 l4 S; @6 ]; w
13. (setq p2 (polar basept 0 w2 ))
    / D$ U; A. x# U7 y
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))))
    + l8 c9 g1 u! d* t/ P6 B, `2 G
17. 
    
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    
19. (setvar "osmode" osnap)
    / c: h& I3 M. W; s0 ]; H6 y9 f
20. )

复制代码

SunVei

" e: `$ H# U0 a' }" [5 ^, C

1. 
   1 |2 M: t$ B3 Z/ K7 w+ k
2. 
   
3. (defun c:ttt ()
   
4.   (setq Os (getvar "osmode"))
   $ s6 A5 W% z- Q: W" i
5.   (setvar "osmode" 0)
   
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   # Z$ u8 z$ U; s" V- u$ P
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   ; g! l/ v( W0 q' ^3 c. m+ i9 ~# Z
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    
12. 
    6 r& {7 O* Y: ~* M: ]  N' ]& s
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    
14.   (setq p3 (polar p4 0 w2))
    
15.   (setq p2 (polar basept 0 w2))
    
16.   (setq p7 (polar basept pi w1))
    ' W; \4 y$ N4 m: k
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    # x9 M5 X- v. ^1 E" {
18.   (setq ar (* pi (/ A 180)))
    
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    
21.   (setvar "osmode" os)
    
22. )
    7 c" F* f: s8 Z) G# u; O# O
23. 
    ) o; x" A/ e1 W0 }7 Y1 a5 D. W

复制代码

janekou

2# SunVei

2 v. i" t. W* K& h+ O- g( n7 N谢谢，大概知道问题出在什么地方了。