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

janekou

( n- ]8 K" d! X
  L1 Z8 b- j' Z0 l, r2 c要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。

1. (defun c:ttt ()
   
2. (setq Osnap (getvar "osmode")
   " z3 N1 }( \+ G
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   
5. (setq D 10)               ;(getreal"输入D的长度:" )
   
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   ( P8 H( R) J" {$ Y5 j$ a9 ?1 h- x' i
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   & U; c+ d6 Q1 v5 f- T- S' l( d
8. (setq B 8)             ;(getreal"输入B的长度:" )
   % U+ }% p5 `. M6 x. G
9. (setq A 15)         ;(getreal"输入A的角度:" )
   - Q2 i  f+ S' i! X4 y- X" i
10. 
    + S* ?, @: c) o  m& L! }
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    ; `7 ~" q2 O7 r$ c. ~( d) \: b
12. (setq p3 (polar p4 0 w2 ))
    
13. (setq p2 (polar basept 0 w2 ))
    
14. (setq p7 (polar basept pi w1 ))
    * A: a1 D, n7 F1 [. ?/ F
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    # p  U5 s2 U, R: k% M
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    
17. 
    $ G* n3 P4 W- p7 y
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    
19. (setvar "osmode" osnap)
    
20. )

复制代码

SunVei

: z5 @% w+ {" q+ v( W' @8 A7 [

1. 
   ( R, g! K% Z7 y, v1 E3 i, E  ?
2. 
   
3. (defun c:ttt ()
   ) O0 q1 h' n: c! {2 {! q6 s
4.   (setq Os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   ) I+ u8 u% u* M7 T' x% G: H' ?4 K5 t
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    ! S4 L+ ~" }2 ?# Z7 A1 F
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    
12. 
    
13.   (setq p4 (polar basept (/ pi 2) (/ B 2)))
    
14.   (setq p3 (polar p4 0 w2))
    
15.   (setq p2 (polar basept 0 w2))
    1 O2 `/ _. Y( L: C( k# C; r9 p
16.   (setq p7 (polar basept pi w1))
    
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    5 M/ k9 ^, }; n- K
18.   (setq ar (* pi (/ A 180)))
    & `% \! R' N- b! y5 K, r1 @
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    - H( c9 l8 e" U+ N9 T: `
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    6 I0 Q& u/ q/ Q! x, y
21.   (setvar "osmode" os)
    
22. )
    6 E8 ~# [7 ]( ]: @: |& d
23. 
    ! [  J& F; H4 _7 r! Y6 C

复制代码

janekou

2# SunVei

谢谢，大概知道问题出在什么地方了。