Visual Basic Customization

Visual Basic Customization

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

zooming in Aerial View

45 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
Are You Going To Be @ AU 2014? Feel free to drop by our AU topic post and share your plans, plug a class that you're teaching, or simply check out who else from the community might be in attendance. Ohh and don't forgot to stop by the Autodesk Help | Learn | Collaborate booths in the Exhibit Hall and meet our community team if you get a chance!