X轴转换为Y轴,Y轴转换为X轴
在测量坐标系中,以北方向为X轴,东方向为Y轴,如何在vb中实现坐标轴的转换?
程序代码:
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编辑过]