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

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

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

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

x

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

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

源代码和注释：

1 ?& H) e3 Q# Y
Sub Objectmove()
" }: J4 `' h2 s7 U
Dim p0 As Variant '起点坐标
! M3 |9 l: Z# Y- T
Dim p1 As Variant '终点坐标
% W7 z! s, D C
Dim pc As Variant '移动时起点坐标7 z6 t& ^( _: i* N
Dim pe As Variant '移动时终点坐标" n' _; c1 G4 h5 j3 ?9 N$ K3 c2 P/ }
Dim movx As Variant 'x轴增量% B l1 ?1 I) b# n7 C
Dim movy As Variant 'y轴增量3 R. M6 J8 D0 o) A2 q$ c
Dim getobj As Object '移动对象
9 S5 z( e7 C$ j, `3 e8 J3 l, K
Dim movtimes As Integer '移动次数
/ E. V8 T( O5 t* }1 S8 |( q1 P0 x& M
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象") u! H8 B% c5 d) g& s% A
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
( t: c. g4 T& p4 F
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
2 B2 K8 q, T' E0 d( {1 y
pe = p0
( r1 w; G8 r0 Y& @% M" R- }
pc = p0
% F7 Y6 v0 U& L9 G/ E4 ~/ p
motimes = 3000/ _5 z; h+ t+ h& G v$ t
movx = (p1(0) - p0(0)) / motimes
# |+ W! v$ C/ U, n" y9 A6 h2 t
movy = (p1(1) - p0(1)) / motimes1 f8 _( M6 l- K2 Y, u! c3 f; {
For i = 1 To motimes. L8 K( o/ r& B4 |3 j* o$ d E
pe(0) = pc(0) + movx
4 b$ {, L. u6 O5 i# c5 O, |- Z/ l4 L
pe(1) = pc(1) + movy3 T2 o) k9 Z' R% k
getobj.Move pc, pe '移动一段" I7 A3 X4 b6 ^
getobj.Update '更新对象
9 N& Q% _: }, H$ y0 |# P
movx = (p0(0) - p1(0)) / motimes# I7 Q7 G( I. y* T
movy = (p0(1) - p1(1)) / motimes
) Y* I* o. y" b7 q" t2 ^+ k
For j = motimes To 1
$ q3 O! B# g) y3 n' \; ?( P
pe(0) = pc(0) + movx2 p! w- g) ?7 t" ?, E- a' `! b" n
pe(1) = pc(1) + movy
/ T, i5 c' z5 u, \1 _
getobj.Move pc, pe '移动一段
9 X* D# Y4 m9 J+ w
getobj.Update '更新对象5 V* ~2 y) Z0 x& Y1 h& G
Next j( E* R& P$ h! p2 @
Next i. e# }8 q, T( }) c
End Sub4 H9 r! g9 B; V0 b4 Y- K* ]

复制代码

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

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

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

通知

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

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

浏览过的版块