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

janekou

9 t! E4 i/ ~6 w
* j& g3 X# u) P$ b8 C9 O9 Z6 I效果：

实际：
7 K8 \! q. V. G! C$ p/ |+ `
程序：

1. (defun C:pbox()
   1 F" E8 X. h( S7 J
2. (setq pa (getpoint "左下角的点" ))
   - s1 z5 p, k  M. I- p$ i
3. (setq ww (getreal "宽"))
   5 w. h" }: i- d
4. (setq hh (getreal "高"))
   ; [& _3 @4 v8 e& s4 Z
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")
   ! m' A. Y$ ^$ t' o; g! z4 ~1 `
9. (setq mp1 (polar pa 0 (/ ww 2)))
   . z( U& T+ ]  n
10. (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
    & @2 K  J! G& r" z0 C; r6 P: @
11. (setq mp3 (polar pc pi (/ ww 2)))
    & [$ i; Y; e4 j$ a" D  I& [( [
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    
13. (command "line" mp1 mp3 "")
    
14. (command "line" mp2 mp4 "")
    ) |% {# r; s! n, Z3 e' [  _% O/ e
15. )
    

复制代码

! O' @( j0 ?( x2 Y/ Y5 ^" M9 B
8 P* ~. d* D1 ]3 v, G3 d# A6 M
2 V4 v- T; t7 u& d2 R% R' Q. y- U谢谢啦

janekou

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