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

riversail

程序目的：  模拟运动（选择物件，使其做往复运动）
" O6 y4 s1 i% Y
现有程序问题：只能移动到一边，无法回去（无往复运动）
9 ?/ x2 a1 v/ K7 _- i
源代码和注释：

1. 
   
2. Sub Objectmove()
   
3. Dim p0 As Variant '起点坐标
   7 p; k2 F. W9 W  L1 {
4. Dim p1 As Variant '终点坐标
   
5. Dim pc As Variant '移动时起点坐标
   
6. Dim pe As Variant '移动时终点坐标
   # V  ~$ R7 x' T1 E, i, R7 N6 G2 c
7. Dim movx As Variant 'x轴增量
   2 I3 @% S  t$ b' _/ H
8. Dim movy As Variant 'y轴增量
   
9. Dim getobj As Object '移动对象
   
10. Dim movtimes As Integer '移动次数
    
11. ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
    & }: \2 d  T; H1 t0 t
12. p0 = ThisDrawing.Utility.GetPoint(, "起点:")
    
13. p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
    # {( Y! g2 X9 T5 t, a! z
14. pe = p0
    & E' O. T" t6 }5 `: {- A6 k
15. pc = p0
    * M0 }' W& I" N7 M  m% }
16. motimes = 3000
    5 F' {) ^/ m, c3 P; w
17. movx = (p1(0) - p0(0)) / motimes
    / j5 f: L0 u1 B. D# t( V3 S3 `
18. movy = (p1(1) - p0(1)) / motimes
    
19. For i = 1 To motimes
    , B- R0 v0 c( e5 C0 ^; R
20. pe(0) = pc(0) + movx
    
21. pe(1) = pc(1) + movy
    " w$ W' c" e0 c* \# h/ S& F
22. getobj.Move pc, pe '移动一段
    2 _$ g0 d. j' x0 ^1 P1 f
23. getobj.Update '更新对象
    
24. movx = (p0(0) - p1(0)) / motimes
    / b- p0 R4 L. i% A) l) G# k/ u  I
25. movy = (p0(1) - p1(1)) / motimes
    % X6 g8 C  B6 l; S( I+ w
26. For j = motimes To 1
    
27. pe(0) = pc(0) + movx
    
28. pe(1) = pc(1) + movy
    
29. getobj.Move pc, pe '移动一段
    
30. getobj.Update '更新对象
    / t' t) d# u6 L
31. Next j
    
32. Next i
    & t0 I6 W) y$ Y, [8 j5 ?7 Y
33. End Sub
    

复制代码

另：是否我的声明有问题，选择对象是只能单选?
: X# W3 x% l! ?
哪位大哥帮忙看下，再此谢过！




# @6 x0 x2 y) z+ i* H: U