定义.bas

坐标转换程序

Attribute VB_Name = "Module1"

Global ROW_OUT As Double   '确定输出行
Global Cac_D As Integer    '计算是两桩点之间的距离
Global File_Path As String
Global Project_Name As String  '工程名称
Global Caculaters As String    '计算者
Global Checkers As String      '检核人


Public Function PI() As Double
   PI = 3.14159265358979
End Function