I did hope you maybe had the answer, I think a lot of VBA-programmers
struggle with this limitation of the method.
My latest attempt is the following code.
It is not exact the way a user works with AutoCAD but it approaches normal
behaviour:
When the user has selected some entities he has to push the right
mousebutton before a Zoom-button is pressed, otherwise the selected items
don't become part of the selectionset. The only way to quit the
select-action is to push on the Enter-button (keyboard) to succeed or Escape
to cancel the procedure.
Maybe something to develop or improve,
Henk
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long)
As Integer
Private Const VK_ESCAPE = &H1B
Private Const VK_ENTER = &HD
Public Sub ExtendedSelection()
Dim objSS As AcadSelectionSet
Dim intCode(0) As Integer, varCodeValue(0)
On Error Resume Next
Set objSS = ThisDrawing.SelectionSets("Temporary")
If objSS Is Nothing Then
Set objSS = ThisDrawing.SelectionSets.Add("Temporary")
Err.Clear
End If
intCode(0) = 0: varCodeValue(0) = "LINE"
Selection:
If Not objSS.Count = 0 Then objSS.Highlight True
On Error GoTo KeyPress
objSS.SelectOnScreen intCode, varCodeValue
KeyPress:
If (GetAsyncKeyState(VK_ESCAPE) And &H8000&) Then
objSS.Highlight False
objSS.Delete
Set objSS = Nothing
Exit Sub
ElseIf (GetAsyncKeyState(VK_ENTER) And &H8000&) Then
ThisDrawing.Utility.prompt objSS.Count & " entities selected." & vbLf
objSS.Highlight False
objSS.Delete
Set objSS = Nothing
Else
GoTo Selection
End If
End Sub
