注册 登录
编程论坛 VB6论坛

X轴转换为Y轴,Y轴转换为X轴

彭林才 发布于 2016-05-12 21:04, 1838 次点击
在测量坐标系中,以北方向为X轴,东方向为Y轴,如何在vb中实现坐标轴的转换?
3 回复
#2
ZHRXJR2016-05-12 22:28
将测量的 X 的坐标与 Y 的坐标互换,那么在 VB 中 X 就是东方,Y 就是北方了。下面是一个说明的例子
程序代码:
Dim CLX() As Single, CLY() As Single, VBX() As Single, VBY() As Single
ReDim CLX(1 To 120), CLY(1 To 120), VBX(1 To 120), VBY(1 To 120)
For I = 1 To 120
CLX(I) = ABD  '假定输入测量的X坐标,ABD是需要输入的数据变量
CLY(I) = ABC  '假定输入测量的Y坐标,ABC是需要输入的数据变量
Next I
For I = 1 To 120
VBY(I) = CLX(I) '输入测量的X坐标到VB的Y坐标
VBX(I) = CLY(I) '输入测量的Y坐标到VB的X坐标
Next I

只是一个说明的例子,没有实际价值

[此贴子已经被作者于2016-5-12 22:30编辑过]

#3
xiangyue05102016-05-13 08:49
互换……
简单的直接换,
A=X
X=Y
Y=A
复杂点用2楼的方法再做一个数组。
#4
彭林才2016-05-14 22:52
楼上的回复只是将x、y值互换了,我想要的是改变坐标系,将笛卡尔坐标系转为测量坐标系,测量坐标系是以东为y轴,以北为x轴的
1