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

janekou

+ ?: B0 [" q4 U8 H% r' Z
( \. z2 P0 r' F5 u# _/ P, f效果：

3 C8 `( C3 l$ @+ Z实际：

程序：

1. (defun C:pbox()
   
2. (setq pa (getpoint "左下角的点" ))
   8 R+ {: B# m$ n0 T
3. (setq ww (getreal "宽"))
   5 r" u9 s$ X! r/ I# u. a( S; `
4. (setq hh (getreal "高"))
   
5. (setq pb (polar pa 0 ww))
   
6. (setq pc (polar pb (/ pi 2) hh))
   , ]9 q2 ]: y% x+ T( @! ?
7. (setq pd (polar pc pi ww))
   
8. (command "pline" pa pb pc pd "C")
   ; N- M2 p/ e  M$ {' ~
9. (setq mp1 (polar pa 0 (/ ww 2)))
   * G! `9 Q: _1 R' q$ Q: c$ {
10. (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
    ! F' W- b% ]7 ]6 O
11. (setq mp3 (polar pc pi (/ ww 2)))
    ! X( j/ Z+ `. I
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    . W9 h7 E! \$ ]/ m! R  I
13. (command "line" mp1 mp3 "")
    
14. (command "line" mp2 mp4 "")
    
15. )
    4 L5 ^5 i& e7 o2 j9 k: r

复制代码

1 c( X* ^$ K5 N& t, Y
& x3 A3 p* ~) T8 i% v
' V8 I9 ?: [6 I( _谢谢啦

janekou

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