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

janekou

6 U; \7 R# U; I; K# D$ P
效果：

- @' h5 e- Y4 A; x+ u实际：
0 s% d' `+ h- e! J  e" Y
程序：

1. (defun C:pbox()
   : Z" B! P2 A( q& j9 I
2. (setq pa (getpoint "左下角的点" ))
   " T, c6 N- H' Q% v
3. (setq ww (getreal "宽"))
   0 i- D% ?8 S, @) d
4. (setq hh (getreal "高"))
   
5. (setq pb (polar pa 0 ww))
   - T- o- J- a( w5 r' e2 j) ^$ t
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)))
     t. j4 l1 e" p: D
10. (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
    
11. (setq mp3 (polar pc pi (/ ww 2)))
      g( G: o+ u6 t. X* S
12. (setq mp4 (polar pd (* pi 1.5) (/ hh 2)))
    
13. (command "line" mp1 mp3 "")
      y3 c  Y6 x4 Y6 @3 ]" k9 F# ?
14. (command "line" mp2 mp4 "")
    1 f, k. H& Q4 M6 p
15. )
    

复制代码

& p! F: G' t8 y6 t$ a! q
5 Z7 m! d# l+ ~  m9 U7 V
* h+ E( @+ [4 ]: G& A/ T谢谢啦

janekou

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