activate specific opened drawing

[Anonymous]

Hello,

I need a little kick in the right direction, because I can't get it:

I have several dwg's open in AutoCAD and start a script which opens another file, does some stuff and closes the file.

After closing, I want to get back / reactivate the drawing where I started from and not activate the ltest opened file.

But how do I get it? (Especially I don't get how to set the active / start dwg as activeDwg)

The code

...

Dim ActiveDwg as AcadDocument

ActiveDwg = ThisDrawing '<---- the missing / wrong step, I think

' ...open another dwg

'..do some stuff

' ...close dwg

ThisDrawing.ActiveLayout = ThisDrawing(ActiveDwg)

….

It would be nice, if someone could give mi an advice 🙂

thanks and kind regards

[BestFriendCZ · Accepted solution]

What about this ... save index your start document and use this

Sub Test()
    Dim activeDoc As AcadDocument
'    0 index of document which you want 0..1..2
    Set activeDoc = ThisDrawing.Application.Documents(0)
    activeDoc.Activate
End Sub

[Ed__Jobe · Accepted solution]

A sample workflow for your subroutine:

Sub MyWorkProcess()
   Dim lastDwg As AcadDocument
   Set lastDwg = ThisDrawing
   ' Open new dwg and work on it
   lastDwg.Activate
End Sub

[Anonymous]

Both ways work - thanks a lot! 

kind regards

[Anonymous]

Stumbled across this solution, it's a good one, but I'm thinking if you can let the user decide where the right drawing is (because it might change each day you use it), like this:

Sub cycleDwgs()
    Dim activeDoc As AcadDocument
    Dim i As Long, docTot As Long
    docTot = ThisDrawing.Application.Documents.Count
    For i = 1 To docTot
        Set activeDoc = ThisDrawing.Application.Documents(i - 1)
        Debug.Print activeDoc.Name
        If MsgBox("Is this the document you're looking for?" & vbCrLf & vbCrLf & activeDoc.Name, vbYesNo + vbQuestion, "This dwg?") = vbYes Then
            activeDoc.Activate
            Exit For
        End If
    Next i
    
    'Continue using the correct document here, but call it as "activeDoc"

End Sub