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

janekou

" d# I' p/ I2 I7 c; n
效果：
5 s/ s3 K' X0 x" l
, i/ N6 ^: R) t* ]实际：
: s) V/ _- I8 x, f5 x- g# p
程序：

1. (defun C:pbox()
   ; {# J  R. ~4 ^3 s  |
2. (setq pa (getpoint "左下角的点" ))
   8 t: n. }3 v$ P3 d9 r. t3 l& [
3. (setq ww (getreal "宽"))
   
4. (setq hh (getreal "高"))
   0 z0 ]: K, Y  k' J) {0 y# q
5. (setq pb (polar pa 0 ww))
   
6. (setq pc (polar pb (/ pi 2) hh))
   / `- S" E) P3 p, h  H. [
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)))
    6 I$ Y0 D7 ^  A/ J1 }1 _8 t: ^
11. (setq mp3 (polar pc pi (/ ww 2)))
    3 s+ p6 {' L5 N6 x
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    . a# K% }" r3 y- r  S5 L
13. (command "line" mp1 mp3 "")
    
14. (command "line" mp2 mp4 "")
    
15. )
    

复制代码

1 y1 \9 c1 b3 E& Y0 R2 O' F$ `# Y! d谢谢啦

janekou

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