Wait or Pause after SendCommand

[ace_guru]

Hey Folks,

Looking at trying to do something new, from my point of view.

The idea is as follows;

1. Find current layer
2. Make current layer equal wipeout layer.
3. Start wipeout command
4. Change back to original layer

Coding is as following.

Sub WipeOut()
    Dim CurrLayer As AcadLayer
    Dim NewLayer As AcadLayer
    
    
    ' Find Current Layer
    Set CurrLayer = ThisDrawing.ActiveLayer         ' Current Layer
        Debug.Print CurrLayer.Name
    
        
    ' Change To New Layer
    Set NewLayer = ThisDrawing.Layers.Item("Wipeout")
    ThisDrawing.ActiveLayer = NewLayer
        Debug.Print NewLayer.Name
        
    
    ThisDrawing.SendCommand "Wipeout" & vbCr
    
    ' Reset To Previous Layer
    ThisDrawing.ActiveLayer = CurrLayer
        Debug.Print ActiveLayer.Name

End Sub

 It all seems to work ok up until point 3. It then reverts back to the original layer before the user gets a chance to start putting in a wipeout.

My question is... Is there a way to put in a pause or something after the wipeout commands starts for the user to be able to start drawing something before the layer gets changed back to its original state? Or is there a smarter way of doing what I'm trying to do?

Thanks & Regards,

Ace

[h_s_walker]

I'm not too up on VBA for Autocad, but I've have done a little bit of programming

What you need to look for to put BETWEEN

    ThisDrawing.SendCommand "Wipeout" & vbCr

AND

 
    ' Reset To Previous Layer
    ThisDrawing.ActiveLayer = CurrLayer
        Debug.Print ActiveLayer.Name

Is a command to suspend the macro operation until Autocad relinquishes control.

[fenton_webb]

Supplying a backslash to the command line pauses input, however, in your case I you will need two separate commands because of your requirement to 'draw some stuff' in between