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

riversail · 发表于 2015-6-16 17:34:23

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

现有程序问题：只能移动到一边，无法回去（无往复运动）

源代码和注释：

+ y5 }" Z( p( d/ I
Sub Objectmove()8 W5 H1 ?! E' W0 A9 U* ]& \
Dim p0 As Variant '起点坐标
7 b Q/ P. f7 `; q/ Z: o
Dim p1 As Variant '终点坐标0 H/ E. W5 e0 N* `: _* b. x
Dim pc As Variant '移动时起点坐标
}, [2 b% n; o
Dim pe As Variant '移动时终点坐标; a, y/ z \9 q A! b& F! W: ]
Dim movx As Variant 'x轴增量' t; @9 F" B# J# _. W* u; g
Dim movy As Variant 'y轴增量5 S& A/ ]8 ]3 q' h4 I2 q
Dim getobj As Object '移动对象2 F& b) F1 v: j" o$ ], }$ D( Q
Dim movtimes As Integer '移动次数
, C% b7 @6 L, C) D, `
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"0 D- ~; G! C! k9 N- B# v& W
p0 = ThisDrawing.Utility.GetPoint(, "起点:")& P. u" x& B& T; W$ N) s0 e
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:"); v9 d: K3 ]- B
pe = p0
& | B9 o7 S" v( M/ N
pc = p0 K1 {# i3 y& B- t+ {
motimes = 3000
' @: M& s. R; |' G5 w1 K
movx = (p1(0) - p0(0)) / motimes
, ~ N/ o6 Y8 |
movy = (p1(1) - p0(1)) / motimes7 l* j( E/ d3 M! l9 e# Y2 i9 U; ]
For i = 1 To motimes
( }4 E+ d2 U- [ |6 g( Z5 |
pe(0) = pc(0) + movx( j C3 M" Z6 |# ~' W6 y
pe(1) = pc(1) + movy p, H0 b5 N* c+ g+ S& f
getobj.Move pc, pe '移动一段
5 E+ V2 o2 [, H
getobj.Update '更新对象
3 z8 ~9 j& T( A+ U8 s) j5 T4 V
movx = (p0(0) - p1(0)) / motimes) X3 f0 i6 }9 U5 B
movy = (p0(1) - p1(1)) / motimes( O! `7 G2 S0 E
For j = motimes To 1; m5 v' |$ c, L) B: i) l3 n: u
pe(0) = pc(0) + movx
8 f6 \. B Q! R& c$ `6 {
pe(1) = pc(1) + movy
' \8 D8 F% i- K. E' a
getobj.Move pc, pe '移动一段
0 v$ ^6 ]0 ~. Q8 b
getobj.Update '更新对象
( G2 {* B6 O; y; ~6 }4 B `
Next j" a( V. i9 x8 f; f6 @8 O* G+ p5 z* v' T" p
Next i
% [5 |1 R" ?/ H: s7 n
End Sub' R( i' r" f" v2 U

复制代码

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

哪位大哥帮忙看下，再此谢过！

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块