Visual Basic Customization
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic to the Top
- Bookmark
- Subscribe
- Printer Friendly Page
*Adam, Claire
zooming in Aerial View
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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
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

