如何与用户交互，返回角度？

• 回答：

   Private Sub Command1_Click()
          MxDrawX1.DoCommand 1
  
          End Sub
  
          Private Sub MxDrawX1_ImplementCommandEvent(ByVal iCommandId As Integer)
          If iCommandId = 1 Then
  
          Dim utility  As MxDrawXLib.MxDrawUtility
          Set utility = New MxDrawXLib.MxDrawUtility
  
          Dim angle As Double
  
          angle = utility.GetAngle(, Chr(13) + Chr(10) + "输入角度:")
  
          If angle <> -99999.9 Then
              MsgBox angle * 180# / 3.14159265
          End If
  
  
          End If
  
          End Sub