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

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

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

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

x

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

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

源代码和注释：

$ q/ E* m/ j0 i" N& O
Sub Objectmove()2 e6 m0 n* Z b6 G/ A
Dim p0 As Variant '起点坐标# P( r4 G6 D5 }# X" P' G
Dim p1 As Variant '终点坐标- y: \/ n9 Q+ A3 O$ m2 H! y
Dim pc As Variant '移动时起点坐标2 A( t8 j: \9 g. i; F6 a! P( e/ z
Dim pe As Variant '移动时终点坐标7 \& ~6 y+ O f& N
Dim movx As Variant 'x轴增量) J" Z) K& S4 s' U* z% k$ {& P6 v
Dim movy As Variant 'y轴增量
6 |3 T m3 l2 n& d* F: ]4 O
Dim getobj As Object '移动对象
( b1 u7 e3 C5 F5 n
Dim movtimes As Integer '移动次数; k& t M. f: F6 [9 u! @
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
* s* n5 j5 A. K; Y9 C* o/ f) @ e* a
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
, R6 t/ `! @9 C1 Z% |2 K
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")2 L5 K5 e* @; h8 O5 a. }
pe = p02 p8 q- b* q% {2 S" b6 o
pc = p0) B7 R0 {0 w9 p7 R3 s
motimes = 30000 z0 W- v# {% k$ c2 _. x
movx = (p1(0) - p0(0)) / motimes
! X9 V. Y ~8 |) e0 @
movy = (p1(1) - p0(1)) / motimes6 q7 j2 ~/ c1 v0 T
For i = 1 To motimes4 k- N2 k; t( z; f& P# t. `
pe(0) = pc(0) + movx
" L0 Z! ~& h5 r0 U3 v& w$ Q4 h
pe(1) = pc(1) + movy
- K2 b" T1 K" j \+ }% ?3 D
getobj.Move pc, pe '移动一段
4 T; A3 ~2 C" n6 z& j+ G" I8 h
getobj.Update '更新对象0 g+ E `* O: g* s8 _# W9 t% ~
movx = (p0(0) - p1(0)) / motimes
2 H3 e% Y) K( N, R5 h
movy = (p0(1) - p1(1)) / motimes6 y* P9 q* y& c8 c q* [5 k
For j = motimes To 1
- W5 O! |& p1 b( }6 z! P, K* L
pe(0) = pc(0) + movx
9 G0 G& `+ \$ o1 A5 D
pe(1) = pc(1) + movy
! t. J0 R b2 i2 d2 X8 x
getobj.Move pc, pe '移动一段
7 k3 E; i& }1 u& x/ L
getobj.Update '更新对象' q4 s* H# Z4 v
Next j
6 \" \: Y+ Z! k: c+ C. C4 c
Next i
5 [. L# {- r9 ^1 A9 x
End Sub- s% S5 c) @: a# _: j/ Z' {

复制代码

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

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

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

通知

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

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

浏览过的版块