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

janekou

5 L1 C8 |9 `% E8 ]7 {
4 Q' {: W! s  a" z6 x效果：
2 `! k% v' c+ Y" @/ `; m! f: m
3 J1 J& {+ U5 r# F2 v. j实际：

程序：

1. (defun C:pbox()
   
2. (setq pa (getpoint "左下角的点" ))
   
3. (setq ww (getreal "宽"))
   0 t6 }- Q& _! }* Y! c  L% [/ W
4. (setq hh (getreal "高"))
   % n( ^0 f1 |8 ~! q0 V
5. (setq pb (polar pa 0 ww))
   
6. (setq pc (polar pb (/ pi 2) hh))
   + x8 A9 @2 Q1 }3 d6 p$ {
7. (setq pd (polar pc pi ww))
   6 Z) ]7 G: A+ X$ S6 x3 K# Q6 B
8. (command "pline" pa pb pc pd "C")
   
9. (setq mp1 (polar pa 0 (/ ww 2)))
   8 x( d+ Q  u* S2 ^* n  _1 S1 X
10. (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
    2 F2 z3 C2 s* O; K
11. (setq mp3 (polar pc pi (/ ww 2)))
    
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    + O- W4 y% T, Z. y( R& I& Z
13. (command "line" mp1 mp3 "")
    
14. (command "line" mp2 mp4 "")
    
15. )
    - A; }) F: H6 w+ j0 \9 ~

复制代码

  K' F4 T" J2 Q# B
% u! L8 ?: ?2 H# l% w+ `# R- ^
谢谢啦

janekou

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