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

janekou

5 A1 e$ u* {+ V8 l+ k
6 _2 n/ M! F7 I/ n" C要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。
) r1 {/ J* k9 y# R, K4 L

1. (defun c:ttt ()
   $ E# v8 q8 o" h
2. (setq Osnap (getvar "osmode")
   
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   1 Y4 ~, a3 F) Y9 O- B
5. (setq D 10)               ;(getreal"输入D的长度:" )
   6 S5 ^; I4 F! Q
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   : E7 h; w5 T- b4 l
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   ! G# C- ?- O$ D' e( M
8. (setq B 8)             ;(getreal"输入B的长度:" )
   
9. (setq A 15)         ;(getreal"输入A的角度:" )
   
10. 
    2 g! v, @# W( q) q* j
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    
12. (setq p3 (polar p4 0 w2 ))
    
13. (setq p2 (polar basept 0 w2 ))
    / t/ l+ d, A( c# f
14. (setq p7 (polar basept pi w1 ))
    0 S7 N. I7 M- p  g' Q
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    
17. 
    
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    0 N$ e$ o; ]; z& F) k
19. (setvar "osmode" osnap)
      W! L8 j  b# L+ x: T' ?6 K' P
20. )

复制代码

SunVei

$ X; p& {. }  \# l% R0 I2 S

1. 
   
2. 
   ! e0 e2 d6 \5 N% i8 X5 R
3. (defun c:ttt ()
   ( o, s, f. y2 x+ \4 d
4.   (setq Os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   $ a! N7 P" l) q5 u8 l2 Y
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   , ^+ h8 q5 n7 c  e
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    
12. 
    " m4 Q) `% Y7 C! F
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    , k# d* W- `- F& ?/ e; Y
14.   (setq p3 (polar p4 0 w2))
      |# v5 g7 m( m) x8 ^
15.   (setq p2 (polar basept 0 w2))
    . J( l6 |4 G" ]: Q
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    2 [! O; l, W5 l/ q, y6 M0 S
18.   (setq ar (* pi (/ A 180)))
    
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    + F: P, F' F1 h; C5 P* b
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    
21.   (setvar "osmode" os)
    1 M5 Y* Y" N" l  r
22. )
    0 C* V6 {3 g( n) a9 l, C2 P
23. 
    

复制代码

janekou

2# SunVei

: h( B3 H$ \# g3 y; f2 f% W谢谢，大概知道问题出在什么地方了。