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

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

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

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

x

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

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

源代码和注释：

3 ]* i! E: s/ a! Z: E$ @
Sub Objectmove()1 A0 U! s9 i% a" D6 o
Dim p0 As Variant '起点坐标- R2 o5 ]+ }$ r* J+ Q
Dim p1 As Variant '终点坐标
^% ~2 N. W+ c! K4 w$ z3 h" }
Dim pc As Variant '移动时起点坐标! {. g( j0 u0 f9 }, E' Y
Dim pe As Variant '移动时终点坐标
. |+ g- H; i1 n: N
Dim movx As Variant 'x轴增量5 ?( z0 c6 l x# X
Dim movy As Variant 'y轴增量* K1 W! a- M* ?
Dim getobj As Object '移动对象
0 ~" f f) J c: t& k7 B
Dim movtimes As Integer '移动次数% g. F7 J# z- i
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"5 h; B$ U1 ]4 R0 `. I# a, C# r
p0 = ThisDrawing.Utility.GetPoint(, "起点:"). b1 n. y; s0 t* I, l% w
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
2 }+ V& V4 i8 r% O# y
pe = p0
0 {' I2 A* F9 C9 N( j
pc = p04 F9 V/ C4 p) H0 k8 }* v- Z
motimes = 30006 V- u$ o# V' t: Z9 t# j9 C
movx = (p1(0) - p0(0)) / motimes
1 M3 O! I& N% e1 T3 ~. J2 e; h
movy = (p1(1) - p0(1)) / motimes' `; |( [1 Q0 q+ ]' ?9 |, |0 E
For i = 1 To motimes
: @5 o- K9 }+ N7 j# \, X# d! O n
pe(0) = pc(0) + movx
3 w: G; X6 x8 y" A9 Q, b0 |) t1 X1 ~
pe(1) = pc(1) + movy
0 Z. W% x( q; p4 C" J+ D5 O* f
getobj.Move pc, pe '移动一段7 ?1 _3 N! B* {, s# }/ {0 Z" v
getobj.Update '更新对象
9 C2 A- b# n% [8 `. A! d
movx = (p0(0) - p1(0)) / motimes
# M( v @$ Z) b/ k/ b N
movy = (p0(1) - p1(1)) / motimes' V" I4 I8 Q# e* R$ E6 }( z
For j = motimes To 1( Q3 T4 l: q4 F
pe(0) = pc(0) + movx- E: u2 v+ L. J% F4 m! x3 y D9 _
pe(1) = pc(1) + movy" U T; D& u, {# [$ u1 E
getobj.Move pc, pe '移动一段. U7 u# Z- E- e* z. M
getobj.Update '更新对象: z0 m- y) Y: x/ M3 v
Next j
, `2 B \9 x4 w, _6 c* A6 A
Next i
& a0 N, q' \7 A" f+ I- h
End Sub
: V5 ?7 s0 W6 ^- ~- Y) }! d

复制代码

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

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

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

通知

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

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

浏览过的版块