秒问题

Jeff_M · 发表于 2008-9-26 16:32:58

Duh。代码
我不&#039；我们不需要经常转换或绘制Civil
事实上，我&#039；我这样做是为了不&#039；我们不必记住未来项目中的所有符号
I&#039；我越来越老了，记住VBA和CAD的每一个细节一天比一天更具挑战性，哈哈。

Jeff_M · 发表于 2008-9-26 17:13:09

这里是#039；这是一个将测量仪DMS转换为Acad弧度的快速工具。需要传递的参数是：
以整数形式表示的方向象限，其中NE=1、SE=2、SW=3和NW=4作为双精度….使用转换器CDbl（txtbox.value）
MM作为双精度…同上

Function NEWS2Rads(iDir As Integer, dd As Double, mm As Double, ss As Double) As Double
Dim decDeg As Double
decDeg = ss / 60#
decDeg = (mm + decDeg) / 60#
decDeg = dd + decDeg
Dim pi As Double
Dim radDeg As Double
pi = Atn(1) * 4
radDeg = pi * (decDeg / 180#)
Select Case iDir
    Case Is = 1 'NorthEast
        NEWS2Rads = (pi * 0.5) - radDeg
    Case Is = 2 'SouthEast
        NEWS2Rads = (pi * 1.5) + radDeg
    Case Is = 3 'SouthWest
        NEWS2Rads = (pi * 1.5) - radDeg
    Case Else   'NorthWest
        NEWS2Rads = (pi * 0.5) + radDeg
End Select
        
End Function