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

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

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

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

x

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

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

源代码和注释：

: X q% `8 U8 D' A
Sub Objectmove()9 Z5 R; B. L2 `4 u1 d @. P
Dim p0 As Variant '起点坐标
3 v" i$ s* n+ m% o5 N; K; `$ I
Dim p1 As Variant '终点坐标- J- ?# I7 }" j) W+ G( Y
Dim pc As Variant '移动时起点坐标' P# j/ f F& C9 d
Dim pe As Variant '移动时终点坐标8 @; o7 d% z: X* S) s
Dim movx As Variant 'x轴增量
8 r+ K6 G# Q: y. Z* _
Dim movy As Variant 'y轴增量
0 L$ u* C; B8 F6 M
Dim getobj As Object '移动对象5 S2 o: f" L" T* o4 H" T
Dim movtimes As Integer '移动次数
4 k, q! ~2 T: W
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
# y/ G2 D2 ]$ ^* y+ Q" v# R4 E: @0 q
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
+ P" p5 N/ P8 m7 X+ [7 e
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:") s" W: M7 ^6 P. L
pe = p0
3 V O1 l( x% h! A6 x. U
pc = p0
6 R& _4 g! t" U+ v$ `9 \4 S
motimes = 3000
8 \7 t8 K- s% h+ K
movx = (p1(0) - p0(0)) / motimes; U% x: S' u( P+ ~7 M s" c# i
movy = (p1(1) - p0(1)) / motimes# ^. L1 I( `1 \3 z2 }3 h
For i = 1 To motimes
5 ` Y* M V# K8 B* f+ N$ J
pe(0) = pc(0) + movx
4 c! ^: j0 M- s; y9 F1 j$ e/ g
pe(1) = pc(1) + movy" x6 z6 r/ g. X. f9 y, y. {# T( X
getobj.Move pc, pe '移动一段7 X1 @) o; H) X! H" Q; m# U
getobj.Update '更新对象: y, p+ q* {) c+ ^* d7 {9 D; p
movx = (p0(0) - p1(0)) / motimes
0 B: x. W" A& u' b7 Q
movy = (p0(1) - p1(1)) / motimes
% n; _& `: s8 A( x4 {( v
For j = motimes To 1
3 Y1 k6 I$ e/ h$ |# F3 V. M0 x4 W
pe(0) = pc(0) + movx
" J7 U; ^2 z( b/ e' |0 A$ {
pe(1) = pc(1) + movy2 q! V% V1 T: w* [$ o2 e' P' d
getobj.Move pc, pe '移动一段! Q& x7 P0 ~* c! d
getobj.Update '更新对象
7 N" l2 _+ @1 a, N: X! a0 T6 W
Next j
: G6 [0 ^6 F2 X9 O( z+ D
Next i/ k/ K0 E, m8 S# d" d
End Sub7 N& M5 U: d+ `4 n

复制代码

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

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

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

通知

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

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