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

janekou

+ A) O$ o1 _! r8 D
要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。
4 X* E! W* k8 k. r

1. (defun c:ttt ()
   . W1 Y) R8 D% r% q+ j% C) y
2. (setq Osnap (getvar "osmode")
   
3. (setvar "osmode" 0)
   # _  [1 N7 O% R
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   . T: G% ]4 ?) e1 j# O2 G( T  z
5. (setq D 10)               ;(getreal"输入D的长度:" )
   
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   % ^0 m5 |8 T9 r. e* E
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   
8. (setq B 8)             ;(getreal"输入B的长度:" )
   ; Y( f, G' b: c
9. (setq A 15)         ;(getreal"输入A的角度:" )
   7 e* }( R% R( e3 q* s; X
10. 
    5 |2 g. \2 p1 j' T' v) h
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    * f3 E( ]8 d& I9 J% h$ J4 L6 o. B
12. (setq p3 (polar p4 0 w2 ))
    & E4 `$ D0 l6 H" D, O
13. (setq p2 (polar basept 0 w2 ))
      d$ E% Y/ c# f
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))))
    / M: v( ~9 o- d* _
17. 
    
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    % k& m8 R7 A! [) V& X9 _
19. (setvar "osmode" osnap)
    
20. )

复制代码

SunVei

1. 
   
2. 
   : n0 Y( A! z' i( E5 U- q. i6 J
3. (defun c:ttt ()
   
4.   (setq Os (getvar "osmode"))
   . C5 P) w8 q2 ^; v: J. u
5.   (setvar "osmode" 0)
   * q  H9 _5 P3 |! B8 A; \) U9 [
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   4 B" R& O2 Y0 D' p9 X! _4 ~
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   * c8 s5 E2 m) J
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    9 Y4 d- ^+ A+ N. V; \
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    
12. 
    & r2 X' r5 {. |4 |8 }- Q
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    - {3 G* s$ Z' ~6 @1 Q
14.   (setq p3 (polar p4 0 w2))
    
15.   (setq p2 (polar basept 0 w2))
    7 h( j$ Z; T: X9 D* x! |6 I
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    % N: p2 b- f; K% Q% Z5 I- b* ]0 T
18.   (setq ar (* pi (/ A 180)))
    " y  f5 q, o% B8 Q9 Y4 Y* T
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    2 u1 B6 M" k( ]& R0 }
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    
21.   (setvar "osmode" os)
    ' [* v% O3 u, f
22. )
    
23. 
    

复制代码

janekou

2# SunVei
  x! q8 n* ~$ e& o! z: i
谢谢，大概知道问题出在什么地方了。