• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • Visual Basic Customization

    Reply
    *Adam, Claire

    zooming in Aerial View

    34 Views, 0 Replies
    02-17-2000 06:36 AM
    Dear all,

    I initialise some macros after a user has zoomed by having the following
    code attached to the "thisdrawing" object my vba project

    Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    'The "CommandName" variable describes which command has been actioned
    'This code intercepts actions immediatly after they have finished
    'Coomands can be initiated from the command line, VBA,
    'the ACAD menus, the ACAD toolbars, or LISP.

    'ZOOMED
    If StrComp(CommandName, "Zoom", vbTextCompare) = 0 Then
    lots of nice stuff
    end if
    end sub

    This works really well except for one important time..... if the user has
    zoomed in using the Aerial View the above code is not executed. In fact the
    AcadDocument_EndCommand is not even triggered.

    Does anyone have any idea how I can capture a zoom event which has been
    initiated in the Aerial View ?

    many thanks
    Claire
    Please use plain text.