[VBA函数]：如何用GetAngle获取缺省角度

efan2000

当需要用户按右键指定缺省角度（Degree类型）时，可以用下面的函数。

2. 
   
3.   [FONT=courier new]
   
4. '输入角度
   
5. Pt    给定点
   
6. Prompt    提示信息
   
7. defDeg    缺省角度，不是弧度
   
8. Public Function GetAngle(Optional ByVal Pt As Variant, Optional ByVal Prompt As String, Optional ByVal defDeg As Double) As Double
   
9.     If defDeg <> 0 Then GetAngle = ThisDrawing.Utility.AngleToReal(CStr(defDeg), acDegrees)
   
10.    
    
11.     On Error GoTo ErrTrap
    
12.     If Prompt = "" Then Exit Function
    
13.     If Not IsMissing(Pt) Then
    
14.        GetAngle = ThisDrawing.Utility.GetAngle(Pt, Prompt)
    
15.     Else
    
16.        GetAngle = ThisDrawing.Utility.GetAngle(, Prompt)
    
17.     End If
    
18.     Exit Function
    
19.    
    
20. ErrTrap:
    
21.     Debug.Print "GetAngle: " & Err.Number & ", " & Err.Description
    
22.     On Error GoTo 0
    
23. End Function
    
24. 
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> '输入角度<br /> Pt    给定点<br /> Prompt    提示信息<br /> defDeg    缺省角度，不是弧度<br /> Public Function GetAngle(Optional ByVal Pt As Variant, Optional ByVal Prompt As String, Optional ByVal defDeg As Double) As Double<br />     If defDeg <> 0 Then GetAngle = ThisDrawing.Utility.AngleToReal(CStr(defDeg), acDegrees)<br />     <br />     On Error GoTo ErrTrap<br />     If Prompt = "" Then Exit Function<br />     If Not IsMissing(Pt) Then<br />        GetAngle = ThisDrawing.Utility.GetAngle(Pt, Prompt)<br />     Else<br />        GetAngle = ThisDrawing.Utility.GetAngle(, Prompt)<br />     End If<br />     Exit Function<br />     <br /> ErrTrap:<br />     Debug.Print "GetAngle: " & Err.Number & ", " & Err.Description<br />     On Error GoTo 0<br /> End Function<br /> <br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     Dim Ang As Double
   
7.     Ang = GetAngle(, "请输入角度<" & 45 & ">", 45)
   
8.     Debug.Print Ang
   
9. End Sub
   
10. 当指定角度时，得到45°的弧度值0.785398163397448 。
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub Test()<br />     Dim Ang As Double<br />     Ang = GetAngle(, "请输入角度<" & 45 & ">", 45)<br />     Debug.Print Ang<br /> End Sub<br /> 当指定角度时，得到45°的弧度值0.785398163397448 。<br />   [/FONT]<br />