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

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）
; E  w3 E/ B; c. c" u" \
现有程序问题：只能移动到一边，无法回去（无往复运动）
% d/ A& A1 e! g5 q$ R/ o% \0 U
源代码和注释：

1. 
   
2. Sub Objectmove()
   
3. Dim p0 As Variant '起点坐标
   - v- ]5 r& K0 p$ g3 j
4. Dim p1 As Variant '终点坐标
   ( V- r2 f& H# O, D' ~
5. Dim pc As Variant '移动时起点坐标
   2 w2 S; b8 l' _* y) r/ L
6. Dim pe As Variant '移动时终点坐标
   
7. Dim movx As Variant 'x轴增量
   
8. Dim movy As Variant 'y轴增量
   
9. Dim getobj As Object '移动对象
   : o0 q2 f( G3 b
10. Dim movtimes As Integer '移动次数
    5 b& Z% e# R& \0 [' a- l
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
      \& Y! P( t7 n  }$ F0 \: f
14. pe = p0
    ' U4 M. S4 D0 N5 t' d; Q0 k
15. pc = p0
    - w2 n; Y( l& y& i6 j5 ^  T
16. motimes = 3000
    9 M8 W0 o. K& U# ?6 u
17. movx = (p1(0) - p0(0)) / motimes
      N, v9 l6 `  k+ s+ ^
18. movy = (p1(1) - p0(1)) / motimes
    & T4 _1 h& D8 U4 Q1 I' E! |
19. For i = 1 To motimes
    
20. pe(0) = pc(0) + movx
    - G" l3 K% R2 o" i8 v! P8 J/ N* u
21. pe(1) = pc(1) + movy
    
22. getobj.Move pc, pe '移动一段
    
23. getobj.Update '更新对象
    . L+ X+ }2 a( `% a
24. movx = (p0(0) - p1(0)) / motimes
    : Q7 V! ?% Y  q2 w6 f' R# j2 D9 V6 a
25. movy = (p0(1) - p1(1)) / motimes
    + W% z0 d2 E9 `* M# t+ s
26. For j = motimes To 1
    3 D/ ^! B4 A: f; P  T- T# ?
27. pe(0) = pc(0) + movx
    6 x+ u5 I& S5 H
28. pe(1) = pc(1) + movy
    % f: ]- \+ h6 A* d( Y9 U
29. getobj.Move pc, pe '移动一段
    2 o2 Y6 D! y7 f( q. u, [
30. getobj.Update '更新对象
    
31. Next j
    , M7 g' ]1 m2 o5 H' T+ c
32. Next i
    3 f7 I7 _* q! [' U
33. End Sub
    

复制代码

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

+ x* p" a! q' d) \' U哪位大哥帮忙看下，再此谢过！


! G; q9 U& g% Q& H4 ~
  k7 E7 Y& {# q7 E( Q7 o6 v