选择对象做往复运动，不知道问题出在哪？附源代码和注释

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）
" C3 {3 v5 a! ~
* I6 I6 s: j/ e3 T3 d/ M0 N# v4 B& ~现有程序问题：只能移动到一边，无法回去（无往复运动）
  U! X& R! g9 e: K9 T! i
源代码和注释：

1. 
   " e* p) g6 ^& N8 m0 p) L
2. Sub Objectmove()
   
3. Dim p0 As Variant '起点坐标
   
4. Dim p1 As Variant '终点坐标
   
5. Dim pc As Variant '移动时起点坐标
   
6. Dim pe As Variant '移动时终点坐标
   
7. Dim movx As Variant 'x轴增量
   & f2 C* R0 f0 b8 ^+ e9 Y# }* j
8. Dim movy As Variant 'y轴增量
   ! W) j: g2 B! d; W& N. Z/ [
9. Dim getobj As Object '移动对象
   ; d$ z0 x4 `- v
10. Dim movtimes As Integer '移动次数
    5 ^* b% T+ v" G& S- r+ A2 u
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
    8 k$ ]' v0 k7 g3 j0 z; T
14. pe = p0
    & r' B9 G# U2 f  T" v( ?0 _
15. pc = p0
    ' ^; O- e  O! u
16. motimes = 3000
    
17. movx = (p1(0) - p0(0)) / motimes
    
18. movy = (p1(1) - p0(1)) / motimes
    # c8 `6 L* g1 f1 l0 w& ~
19. For i = 1 To motimes
    0 r: l$ b& k& Q
20. pe(0) = pc(0) + movx
    
21. pe(1) = pc(1) + movy
    
22. getobj.Move pc, pe '移动一段
    
23. getobj.Update '更新对象
    
24. movx = (p0(0) - p1(0)) / motimes
    
25. movy = (p0(1) - p1(1)) / motimes
    / |! O/ g& o$ `
26. For j = motimes To 1
    
27. pe(0) = pc(0) + movx
    
28. pe(1) = pc(1) + movy
    ) _% v' t! j8 L2 Z
29. getobj.Move pc, pe '移动一段
    
30. getobj.Update '更新对象
    5 k! i* c7 p1 M
31. Next j
    
32. Next i
    ) I# Y2 R0 g. l* V8 k; z
33. End Sub
    

复制代码

另：是否我的声明有问题，选择对象是只能单选?

1 o, `6 t7 z% l9 E* k. f' N$ a哪位大哥帮忙看下，再此谢过！



* }6 @5 q; \: ]# e2 v" k