Visual Basic Customization

Visual Basic Customization

*Adam, Claire
Message 1 of 1 (43 Views)

zooming in Aerial View

43 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.

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
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.