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

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

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

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

x

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

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

源代码和注释：

6 g! ^8 P7 \2 i8 k
Sub Objectmove()
- j ~3 f" j# D4 S" A2 R0 G
Dim p0 As Variant '起点坐标7 ?5 s+ a* h+ L2 ?- |1 q# w
Dim p1 As Variant '终点坐标
5 {1 I/ i3 T+ t. i- d
Dim pc As Variant '移动时起点坐标
8 w N4 k5 g( V1 w% E; J
Dim pe As Variant '移动时终点坐标; h" z; a0 F P: }) A' w. a
Dim movx As Variant 'x轴增量
: M+ n- a+ ?# z) O. q" ?3 }1 R2 S
Dim movy As Variant 'y轴增量3 F' A1 W7 ]5 u& r. @
Dim getobj As Object '移动对象
8 V$ v' O6 h. B5 n- d/ D
Dim movtimes As Integer '移动次数* c+ e/ g: H7 s. r
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"2 d- \! Y/ S8 i
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
7 K# W# i/ r9 M4 H1 ^; O: _& H6 [5 S
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")
, \$ T* i9 S8 s% h' `
pe = p02 W5 C9 S: {) m, V
pc = p0; e8 l2 |. x0 E4 I" |
motimes = 3000
% r6 O" p/ {1 P4 ?9 B/ I o0 H
movx = (p1(0) - p0(0)) / motimes
8 A0 ~7 N& E' z4 F
movy = (p1(1) - p0(1)) / motimes! u6 }4 n5 q& Q
For i = 1 To motimes
5 Z+ c' c6 ^$ R4 L& s3 _4 D
pe(0) = pc(0) + movx! K5 c$ T% W. I! V" k
pe(1) = pc(1) + movy
# B$ O% {; b. u) v: R
getobj.Move pc, pe '移动一段
/ C/ Z, D5 r" O. G# k5 U
getobj.Update '更新对象, [& \6 M, X5 R: c, O1 T, t
movx = (p0(0) - p1(0)) / motimes: ~1 f0 r J: x
movy = (p0(1) - p1(1)) / motimes
' t" b& e3 X) y3 y
For j = motimes To 1/ z, d! @6 O ~0 D3 d# @- O
pe(0) = pc(0) + movx' h |5 X, x$ i, d. D: ~3 [5 s
pe(1) = pc(1) + movy+ _4 p. g2 V, V
getobj.Move pc, pe '移动一段
" p. A& a) _4 J8 Z
getobj.Update '更新对象- v- Y. X# N2 w6 T) f: ]; z
Next j4 q4 g' ], w$ q
Next i5 b3 }- C* Q/ V! q
End Sub
# {& B! d+ J" ?

复制代码

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

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

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

通知

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

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

浏览过的版块