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

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

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

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

x

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

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

源代码和注释：

1 z6 z% j4 r( Y
Sub Objectmove()( S$ Q3 E, _+ H ]3 k: s. }
Dim p0 As Variant '起点坐标
, b* @$ d+ A. V3 D8 |
Dim p1 As Variant '终点坐标1 ?* L5 g; C$ I; V2 ]/ F
Dim pc As Variant '移动时起点坐标2 C3 d' X2 j+ ~- N# F; o2 S
Dim pe As Variant '移动时终点坐标
# u z) p! E5 V- i7 G
Dim movx As Variant 'x轴增量4 K O! V! G2 R( t& D6 d+ h
Dim movy As Variant 'y轴增量# B' D* p# B+ A( L+ n
Dim getobj As Object '移动对象5 a. Q6 ?, A& P0 g L$ `: g) m
Dim movtimes As Integer '移动次数: ~% G2 }% [1 R- n3 W
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"
2 Q5 \% L g' A
p0 = ThisDrawing.Utility.GetPoint(, "起点:")
" |! D5 C9 x# e0 D, i, _
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")0 J! l, G6 U) S7 k% ]" y& U
pe = p0
; J, H' f$ }6 C
pc = p03 Z" c6 O1 c" X4 l6 ]* l
motimes = 3000: ]( d. W9 ?2 C- ]5 M1 [# L
movx = (p1(0) - p0(0)) / motimes
% P0 N+ j1 Q0 r. P. k
movy = (p1(1) - p0(1)) / motimes
$ z+ A4 Y/ j( P' K
For i = 1 To motimes' |' b* p2 O! d3 n
pe(0) = pc(0) + movx3 _% p. H# k. x/ D# g
pe(1) = pc(1) + movy& a. ?2 ~# Z, Q* Q. |* ?- A
getobj.Move pc, pe '移动一段
4 H. ]# ~3 _9 d3 W
getobj.Update '更新对象" Y9 s! G0 k- E& y% ]5 q5 V) s6 E3 {
movx = (p0(0) - p1(0)) / motimes
& p4 o+ C9 ^/ q2 H, l# }
movy = (p0(1) - p1(1)) / motimes
# b; `8 ]6 R: F' p
For j = motimes To 1$ q& d% `2 c$ Y2 m' R
pe(0) = pc(0) + movx6 i( H0 o# H& b5 T" X5 N
pe(1) = pc(1) + movy
4 z- }8 o, \' y3 V# n- H& T
getobj.Move pc, pe '移动一段
getobj.Update '更新对象
# y/ p* C+ H2 Y$ z) i- O( u
Next j" s9 a. b- ]; O7 D6 n; Z: V
Next i
+ [ J/ I, L0 U6 }& X: s' V
End Sub* ], y% T% `% f% a B0 E

复制代码

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

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

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

通知

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

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

浏览过的版块