将测量的 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