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

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

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

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

x

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

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

源代码和注释：

8 I y0 U& Y4 p6 J
Sub Objectmove()
( b4 F8 m8 v" }- z! Y. C# V
Dim p0 As Variant '起点坐标
" n& m7 S, |; P* H5 `7 c
Dim p1 As Variant '终点坐标5 L$ ]+ @7 ^& U( x8 ]2 ]0 |6 K$ Y5 E
Dim pc As Variant '移动时起点坐标
2 a! d: B C8 k4 Z [3 L, ^0 u
Dim pe As Variant '移动时终点坐标
/ L/ {/ H5 G8 |+ K7 S" j$ p
Dim movx As Variant 'x轴增量* V3 j. }7 o8 a5 ^( C4 s
Dim movy As Variant 'y轴增量
8 d% W* w# E9 Q! x+ \
Dim getobj As Object '移动对象9 b: o$ T( I6 V& }
Dim movtimes As Integer '移动次数
( {6 h- V) j- h o3 s) L' A! A
ThisDrawing.Utility.GetEntity getobj, po, "请选择移动对象"% S- V/ ~& c: H, l) z, S+ u
p0 = ThisDrawing.Utility.GetPoint(, "起点:")% e6 r5 N) D. X n: P6 ^( E
p1 = ThisDrawing.Utility.GetPoint(p0, "终点:")# ~6 [2 [. b! _0 T9 J, m
pe = p0( x7 e V* H/ N2 o k
pc = p0
" K) \% O3 o7 t- X. z
motimes = 3000
1 q3 Z) h$ u# }5 G7 O9 M
movx = (p1(0) - p0(0)) / motimes
6 k) Y: H7 Y& Y$ v. p8 N# l4 w5 ^
movy = (p1(1) - p0(1)) / motimes
: `6 `% q1 t! ]8 J+ B& h
For i = 1 To motimes
0 o% g8 a8 Y8 m( m, _: @: v6 F
pe(0) = pc(0) + movx/ W7 T3 R7 K* e1 ]% A
pe(1) = pc(1) + movy) j. e6 ]! G, k0 p/ N6 x' K
getobj.Move pc, pe '移动一段
. L: z; Z: Y4 _$ I# |/ \
getobj.Update '更新对象, ^# e2 E, i5 H$ K* Q
movx = (p0(0) - p1(0)) / motimes
4 |* \# M3 m4 w Y7 ?0 g
movy = (p0(1) - p1(1)) / motimes
6 k6 R& z( n1 W& S6 X/ |
For j = motimes To 1
1 c& C' L% ~- _* L
pe(0) = pc(0) + movx
1 L1 X( Q9 Y7 c
pe(1) = pc(1) + movy
& Z ?8 D5 y g2 [) g; d
getobj.Move pc, pe '移动一段8 a2 @( I) W# y) G
getobj.Update '更新对象
' N( p5 L. G: Z5 L9 q8 p& r
Next j- ?# T& f4 L/ ^8 x3 r0 i L% s
Next i5 L' ~6 V# O& E/ v
End Sub9 C/ }1 b1 N% q0 }* g ]1 \

复制代码

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

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

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

通知

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

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

浏览过的版块