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

janekou

2 H' Y5 L& d- k& [. z
效果：

实际：
; ^" F! [% |: F) T" Q' y  f% e
程序：

1. (defun C:pbox()
   : R% Y/ e' c3 M2 O
2. (setq pa (getpoint "左下角的点" ))
   
3. (setq ww (getreal "宽"))
   
4. (setq hh (getreal "高"))
     N, P# K. v! \9 T, y# h: Z9 d( p. {
5. (setq pb (polar pa 0 ww))
   
6. (setq pc (polar pb (/ pi 2) hh))
   
7. (setq pd (polar pc pi ww))
   
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 p4 g( [& E  T* [" i
11. (setq mp3 (polar pc pi (/ ww 2)))
    
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    0 m- d2 d# b" d: U
13. (command "line" mp1 mp3 "")
    
14. (command "line" mp2 mp4 "")
    ( v1 M2 t1 d( M/ \
15. )
    ) Z1 B2 I( [4 }5 o4 T

复制代码

' R2 E6 X1 \" w5 ?
6 H2 N6 X% Y  y( t' u  g. L谢谢啦

janekou

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