Zoom Example

Zoom Example

Sub Example_Zoom()

  'This example displays the zoom of a selected AecCamera object
  
  Dim obj As Object
  Dim pt As Variant
  Dim camera As AecCamera
  
  ThisDrawing.Utility.GetEntity obj, pt, "Select a Camera"
  
  If TypeOf obj Is AecCamera Then
      Set camera = obj
      MsgBox "Zoom is: " & camera.Zoom, vbInformation, "Zoom Example"
  Else
      MsgBox "Not a Camera", vbExclamation, "Zoom Example"
  End If

End Sub