16,554
社区成员
发帖
与我相关
我的任务
分享
Dim r As Integer
Dim x1, y1, z1, x2, y2, z2, x3, y3, z3 As Integer
r = Math.Sqrt((x1 - x2) ^ 2 + (y1 - y2) ^ 2 + (z1 - z2) ^ 2)
x3 = x1 + (x2 - x1) / r * 7.5
y3 = y1 = (y2 - y1) / r * 7.5
z3 = z1 + (z2 - z1) / r * 7.5