Visual Basic Customization

Visual Basic Customization

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

zooming in Aerial View

46 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
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.