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

janekou

2 T' V5 X7 I* y: A" T
- i9 k7 f3 m5 \/ C, C6 \! a效果：

, z+ R( J! h/ z实际：
0 z3 [$ T& K, ?% |- H/ E% u" n/ h
: r! I" S+ c6 D  `程序：

1. (defun C:pbox()
   2 `0 p2 g8 ?; _! ~. \3 f
2. (setq pa (getpoint "左下角的点" ))
     x. `4 Y% B- n# @1 P+ _( T6 ^
3. (setq ww (getreal "宽"))
   . W% @$ Y2 U& D4 G
4. (setq hh (getreal "高"))
   
5. (setq pb (polar pa 0 ww))
   3 f" A, M& r5 A
6. (setq pc (polar pb (/ pi 2) hh))
   
7. (setq pd (polar pc pi ww))
   . t4 D3 P3 T- l$ j! p6 F4 B' H) E
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)))
    
11. (setq mp3 (polar pc pi (/ ww 2)))
    * ^( b7 j7 Q" I1 Y: B' @+ W
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    
13. (command "line" mp1 mp3 "")
    0 \9 @/ I! n6 h& z) |+ k! B
14. (command "line" mp2 mp4 "")
    & W0 z6 W. q% g, `; `
15. )
    

复制代码

! K9 e. z3 N8 a3 }+ F
; G& R; q4 D# `" W+ ^( ]" a
谢谢啦

janekou

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