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

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）
$ d6 U9 `+ s; C
  _* L& N, Y- u现有程序问题：只能移动到一边，无法回去（无往复运动）

源代码和注释：

1. 
   / K" d- z% Z: W2 d$ }
2. Sub Objectmove()
   2 T' Q$ i! g  }  N' ~' [( ]# \6 Y
3. Dim p0 As Variant '起点坐标
   
4. Dim p1 As Variant '终点坐标
   , p+ o$ {+ A3 V, x( V# Q- h% N
5. Dim pc As Variant '移动时起点坐标
   
6. Dim pe As Variant '移动时终点坐标
   
7. Dim movx As Variant 'x轴增量
   
8. Dim movy As Variant 'y轴增量
   9 M) U2 t6 j$ O% q1 C' p
9. Dim getobj As Object '移动对象
   
10. Dim movtimes As Integer '移动次数
    
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    ( k2 S7 p* |. j0 W) N2 s
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
    $ g- j+ v, R+ v8 u6 Y
14. pe = p0
    
15. pc = p0
    
16. motimes = 3000
    # N8 B9 I0 U; x7 B& h  x" a( O
17. movx = (p1(0) - p0(0)) / motimes
    
18. movy = (p1(1) - p0(1)) / motimes
    ) h. E8 A2 z# [: _: D. F
19. For i = 1 To motimes
    5 U, {" F/ ?  L, I
20. pe(0) = pc(0) + movx
    
21. pe(1) = pc(1) + movy
    ; I8 n! J" V0 b3 l% b
22. getobj.Move pc, pe '移动一段
    ' ^3 U) r+ v% A$ j" |# @5 e3 n
23. getobj.Update '更新对象
      i, q  y2 A0 A8 i
24. movx = (p0(0) - p1(0)) / motimes
    # a0 H7 T/ W) o. H
25. movy = (p0(1) - p1(1)) / motimes
    ! C* k$ X! V7 N7 h( W
26. For j = motimes To 1
    
27. pe(0) = pc(0) + movx
    1 H" V5 {. x: [. x" L5 l" O2 m0 j
28. pe(1) = pc(1) + movy
    + m( x" q7 ^( B  _7 E, o2 ?9 F
29. getobj.Move pc, pe '移动一段
    
30. getobj.Update '更新对象
    
31. Next j
    5 |9 Y. N6 p  q# i. N
32. Next i
    
33. End Sub
    

复制代码

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

哪位大哥帮忙看下，再此谢过！
9 _7 k& u2 x/ A" p# m0 Y
" m7 ^( j3 ^! H5 N' Q, O6 _
: @7 Y8 S7 x- J  ~) |
- x$ a' c. L' a1 K+ r  z