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

janekou

效果：
) Z1 s- z& I- v/ @
: G% j( @: A/ ^! Q+ t8 @实际：

  l, r- j' D$ _" a& b8 S' }; b程序：

1. (defun C:pbox()
   
2. (setq pa (getpoint "左下角的点" ))
   3 F, w# }% l& V( P4 }
3. (setq ww (getreal "宽"))
   
4. (setq hh (getreal "高"))
   ) g. ?: }" p5 |5 S9 p
5. (setq pb (polar pa 0 ww))
   , X) t: P4 V( D$ h6 c9 N
6. (setq pc (polar pb (/ pi 2) hh))
   
7. (setq pd (polar pc pi ww))
   4 p2 S1 i! N( K6 z' R# o
8. (command "pline" pa pb pc pd "C")
   
9. (setq mp1 (polar pa 0 (/ ww 2)))
   
10. (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
    9 M0 E; u' l4 O* M) _9 u
11. (setq mp3 (polar pc pi (/ ww 2)))
    ! R8 a2 _; W+ h( M
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    
13. (command "line" mp1 mp3 "")
    
14. (command "line" mp2 mp4 "")
    0 \/ g8 Y5 x9 [8 `3 o1 `" e' R! o: l
15. )
    

复制代码

. _  L  }5 D. I, q& H! u: M1 N3 v
. U2 Y7 j2 K% |- B; L* K
谢谢啦

janekou

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