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

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

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

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

x

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

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

源代码和注释：

1 K9 J0 C% F) n
Sub Objectmove()& Z! a* j$ j! W' }7 z# s. ^- H
Dim p0 As Variant '起点坐标
% Y. B% h M. h0 E: @
Dim p1 As Variant '终点坐标
8 K+ o5 n+ s8 p# H9 u5 Z U: _8 G
Dim pc As Variant '移动时起点坐标
" q( f! ~8 D; B8 P" w5 A! y9 W
Dim pe As Variant '移动时终点坐标
* }- ?- w6 e4 [. ^! @/ C: g8 W
Dim movx As Variant 'x轴增量; m* N- m+ r7 N5 T+ W
Dim movy As Variant 'y轴增量
0 N; F6 W# k# d. _* D# C$ }
Dim getobj As Object '移动对象
) `0 @0 `. [4 q8 C6 X* q }5 F7 n/ H
Dim movtimes As Integer '移动次数
+ R& B1 U- U" z+ a
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"; u! H3 _9 J' b/ k8 ^- j8 p
p0 = ThisDrawing.Utility.GetPoint(, "起点:")" \. r; m( _" E' s: p& d
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")$ w2 {2 S& c% F8 A+ S, c
pe = p0
0 ^* E9 t/ f% n* k/ b) V/ D2 @7 T
pc = p0
& { T' z' Q% `9 d1 z
motimes = 30006 _; Y/ h4 @: K4 N4 z) F9 S( ]! x5 H
movx = (p1(0) - p0(0)) / motimes) W5 _3 v, `8 k8 b8 y8 P$ @
movy = (p1(1) - p0(1)) / motimes0 s( K; A1 w# B6 }& X9 j5 o- F* F
For i = 1 To motimes% Z4 P; L, U v7 ^/ Z6 J* {
pe(0) = pc(0) + movx
/ A* o2 m) @& n+ ?: K; K/ V* ^
pe(1) = pc(1) + movy
: S9 @6 y% c* ~) O& z" U
getobj.Move pc, pe '移动一段, h, S6 I3 I+ u, V3 T% [
getobj.Update '更新对象/ }5 q7 i5 T+ Z1 M1 }) I% x
movx = (p0(0) - p1(0)) / motimes& [' p' L8 w& `' q9 Y& C5 d
movy = (p0(1) - p1(1)) / motimes1 ^6 O# b% L) H4 T+ Z' B3 ^
For j = motimes To 15 G0 L% ^8 F: g9 `' w
pe(0) = pc(0) + movx
' e/ |) B9 y: \* s
pe(1) = pc(1) + movy& H& G" f0 Q: `! ^ ?- C
getobj.Move pc, pe '移动一段
' d: h( v& x, r) q2 s! Y, |
getobj.Update '更新对象
$ |0 T: a6 q: f+ D' R) d
Next j
7 i9 l _+ B" k. D
Next i: ?7 l# x. B% q$ Y
End Sub
( q% w1 p( {9 I& l! t9 t0 s1 w7 y

复制代码

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

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

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

通知

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

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

浏览过的版块