请问程序什么地方错了呢，麻烦高人指点一下

janekou

效果：
8 ~; |9 J7 s5 O# m. z# W
) F; c" \* I2 b$ u8 W, i) C实际：
. J: w% U1 U! V$ w4 P1 X
" q* P* D( S/ m1 Z程序：

1. (defun C:pbox()
   
2. (setq pa (getpoint "左下角的点" ))
   2 w8 M9 ]6 [# Z; E# c0 P
3. (setq ww (getreal "宽"))
   
4. (setq hh (getreal "高"))
   
5. (setq pb (polar pa 0 ww))
   
6. (setq pc (polar pb (/ pi 2) hh))
   2 K8 c$ R+ x' I+ z
7. (setq pd (polar pc pi ww))
   
8. (command "pline" pa pb pc pd "C")
   % s' a! I/ P8 l( F; ~
9. (setq mp1 (polar pa 0 (/ ww 2)))
   ! s6 x0 [7 j$ ^4 F5 ^. I8 @- I  d+ R
10. (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
    
11. (setq mp3 (polar pc pi (/ ww 2)))
    
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    7 \' X9 `0 g% \% R  k* I
13. (command "line" mp1 mp3 "")
    0 j4 B) v" _& m5 |& E) z& V. T
14. (command "line" mp2 mp4 "")
    
15. )
    

复制代码

( s- d# C6 L. ?3 M/ g5 N8 o$ g
! y1 x5 F$ m8 ]6 z4 N/ {! \
% B, c" a, O/ b$ q3 t# s谢谢啦

janekou

原来是因为那个对象捕捉的问题啊，关了问题就解决了，嘻嘻~~