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

janekou

效果：
+ X: }# K5 d( {% ~; N
实际：
& s  i( v& f, e0 ~
  T8 T4 v" M* ^  j6 \0 V( Y4 O程序：

1. (defun C:pbox()
   " [# `9 W+ l- m' n- `  w5 a/ F
2. (setq pa (getpoint "左下角的点" ))
   & N! C( A3 Y. ~+ [
3. (setq ww (getreal "宽"))
   : o7 b9 c$ S3 ]# d) a: r2 z" |. j
4. (setq hh (getreal "高"))
   
5. (setq pb (polar pa 0 ww))
   & Y' G) E" S1 d6 \2 D1 A
6. (setq pc (polar pb (/ pi 2) hh))
   
7. (setq pd (polar pc pi ww))
   9 N3 B+ b2 T9 z- k& x8 c. i
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)))
    & C9 Z5 T  c) T: z' Z) ?
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    
13. (command "line" mp1 mp3 "")
    ! h, j, h' j# E% ]
14. (command "line" mp2 mp4 "")
    
15. )
    

复制代码

$ Y* S8 N: w1 @* v% k
% C5 i( W5 H0 q2 j7 p7 k: z
谢谢啦

janekou

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