var_def.bas

来自「测绘工程中的前方交会,主要是摄影测量中运用的较多」· BAS 代码 · 共 27 行

Attribute VB_Name = "Var_Def"
Public g_MyWs As Workspace
Public g_d_Base As Database
Public g_ProjectFile As String
Public g_ProDir As String
Public g_CurDir As String
Public Const g_P = 206264.806286
Public Const PI = 3.141592653
Public Const g_MaxNum As Long = 3000 '定向点最大个数
Public g_H_AB As Double 'ab 高差
Public g_S_AB As Double 'ab 距离

Public g_HA As Double 'a点仪器高

Public g_A_H(g_MaxNum)  As Double
Public g_A_V(g_MaxNum) As Double
Public g_B_H(g_MaxNum)  As Double
Public g_B_V(g_MaxNum)  As Double
Public g_Potname(g_MaxNum) As String

Public g_X_B As Double
Public g_Y_B As Double
Public g_XC(g_MaxNum) As Double
Public g_YC(g_MaxNum) As Double
Public g_ZC(g_MaxNum) As Double
Public g_PotNum As Integer