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

janekou

要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。

1. (defun c:ttt ()
   ; G, _. ^- m/ ?' f" F8 K5 \& y
2. (setq Osnap (getvar "osmode")
   
3. (setvar "osmode" 0)
   
4. (setq basept '(50 50))     ;(getpoint"输入基准点:" )
   
5. (setq D 10)               ;(getreal"输入D的长度:" )
   2 Y0 b* ~  ]; s& `
6. (setq w1 20)          ;(getreal"输入w1的长度:" )
   
7. (setq w2 22)            ;(getreal"输入w2的长度:" )
   - _1 t  j3 z! w0 H
8. (setq B 8)             ;(getreal"输入B的长度:" )
   
9. (setq A 15)         ;(getreal"输入A的角度:" )
   
10. 
    5 ]: a8 w: r- b' o/ ^
11. (setq p4 (polar basept (/ pi 2) (/ B 2 )))
    
12. (setq p3 (polar p4 0 w2 ))
    9 k0 e/ z) M& G/ q! b: K
13. (setq p2 (polar basept 0 w2 ))
    * l* B2 \; f3 d# A
14. (setq p7 (polar basept pi w1 ))
    
15. (setq p6 (polar p7 (/ pi 2) (/ D 2 )))
    1 }5 l: ~1 F" F6 R7 G, M
16. (setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
    . l6 q  \8 ^6 w+ I
17. 
    - n6 f( o2 u: K, y( t4 D2 p
18. (command "pline" p7 p6 p5 p4 p3 p2 ""
    + ~+ X' f( u+ n) t1 T$ Q8 v, Z+ i4 b6 E
19. (setvar "osmode" osnap)
    
20. )

复制代码

SunVei

4 J3 j, J, \% k

1. 
   2 ~3 e2 o# C2 Q2 S- W
2. 
   
3. (defun c:ttt ()
   
4.   (setq Os (getvar "osmode"))
   6 z3 f( ]9 t: E. j8 @
5.   (setvar "osmode" 0)
   ( p# T: K) g$ y2 {
6.   (setq basept '(50 50))                ;(getpoint"输入基准点:" )
   
7.   (setq D 10.0)                         ;(getreal"输入D的长度:" )
   , I  m- w$ v( {% `: h# ^
8.   (setq w1 20.0)                        ;(getreal"输入w1的长度:" )
   
9.   (setq w2 22.0)                        ;(getreal"输入w2的长度:" )
   + `8 U- F) P. q- U" S; P% B/ e: U
10.   (setq B 8.0)                          ;(getreal"输入B的长度:" )
    ' }9 A- O* m! O
11.   (setq A 15.0)                         ;(getreal"输入A的角度:" )
    
12. 
    2 |$ z' h# h; I' l
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))
    + n' x2 q' l4 s: ]7 T$ D0 L3 D3 }6 \- D
17.   (setq p6 (polar p7 (/ pi 2) (/ D 2)))
    
18.   (setq ar (* pi (/ A 180)))
    8 n3 u; N/ A6 @
19.   (setq p5 (polar p6 ar (/ w1 (cos ar))))
    
20.   (command "pline" p7 p6 p5 p4 p3 p2 "")
    7 s) p$ o0 b" N6 D  d' b( L
21.   (setvar "osmode" os)
    2 M6 t5 i$ M% O  b( v
22. )
    
23. 
    

复制代码

janekou

2# SunVei

  M) d7 {' A! @; b$ N谢谢，大概知道问题出在什么地方了。