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

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）

8 c; b+ e$ Z) n! d% `0 }8 l现有程序问题：只能移动到一边，无法回去（无往复运动）

源代码和注释：

1. 
   3 r' j% o8 |. T5 Y, _
2. Sub Objectmove()
   
3. Dim p0 As Variant '起点坐标
   
4. Dim p1 As Variant '终点坐标
   
5. Dim pc As Variant '移动时起点坐标
   
6. Dim pe As Variant '移动时终点坐标
   8 _6 \; E/ J- @1 b' c
7. Dim movx As Variant 'x轴增量
   
8. Dim movy As Variant 'y轴增量
   
9. Dim getobj As Object '移动对象
   ! |) `! b( g4 a: _& S
10. Dim movtimes As Integer '移动次数
    4 O8 N; F0 W: q5 k2 m# V' _
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    " g- T" V9 s" I$ t# R; a' T- i" b
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    0 m. C) s* `" @. |* x& H
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
    
14. pe = p0
    6 [( T" V# w4 I" S
15. pc = p0
    
16. motimes = 3000
    
17. movx = (p1(0) - p0(0)) / motimes
    ; I3 v( m" k2 Q
18. movy = (p1(1) - p0(1)) / motimes
    3 K5 Q+ U: J# P8 S- j. o
19. For i = 1 To motimes
    
20. pe(0) = pc(0) + movx
    6 h2 f# u0 }2 C7 U+ I3 r
21. pe(1) = pc(1) + movy
    & l  P7 o" g/ y, @0 W" ]
22. getobj.Move pc, pe '移动一段
    - ^- {1 X5 v" g/ z. B7 R; y
23. getobj.Update '更新对象
    
24. movx = (p0(0) - p1(0)) / motimes
    % j! H7 w0 E6 f: k& A0 |
25. movy = (p0(1) - p1(1)) / motimes
    * @; q& Y, U6 n% K+ }0 o
26. For j = motimes To 1
    ( _/ O8 d- f9 l2 D- Q& `3 |/ m
27. pe(0) = pc(0) + movx
    ; F7 c& }6 v. D+ H6 I8 n
28. pe(1) = pc(1) + movy
    
29. getobj.Move pc, pe '移动一段
    
30. getobj.Update '更新对象
    * d% W+ t, V' A. R4 B5 _
31. Next j
    3 x. W5 e& x7 H4 G) ^
32. Next i
    + L  p2 N, B8 f# l
33. End Sub
    

复制代码

另：是否我的声明有问题，选择对象是只能单选?
. k, b* U, W7 I/ o0 r) L
; l$ Y% J2 w4 z! J& J5 a- S哪位大哥帮忙看下，再此谢过！


# [/ W8 V7 ?" T1 m4 A  s
0 @% h0 g: b3 d" t, c