Open Drawings Commands

[Terry Cadd]

I have a little program that the user can issue several commands in all open drawings.
It has worked for years in AutoCAD versions 2006 through 2012.
I am testing our programs in AutoCAD 2015 before updating the Drafting Department.

After loading OpenDwgsCmds.lsp here is an example for using it.
Command: ODC
ZOOM E
END

The commands can even be an AutoLISP program you need to run in all open drawings such as MyCode or (c:MyCode) or (MyCode).
OpenDwgsCmd does not work in AutoCAD 2015 using the SendCommand in the VBA code.
A programmer with Autodesk helped me with the code by replacing "SendCommand" with "SendKeys" in the VBA code.
By replacing SendCommand with SendKeys the program will work,
but I have to toggle to each open drawing before it executes the commands.
I use Ctrl+Tab to toggle to each drawing, but that's not the way it's supposed to work.
In previous AutoCAD versions it executed the code automatically in all open drawings.

I have attached the code I am working with to see if someone can help me.
To test OpenDwgsCmdsOriginal.dvb rename it to OpenDwgsCmds.dvb
Thank you,
TerryCadd
a.k.a. Terry Miller
__________________________________________________
OpenDwgsCmds.dvb Original Version with SendCommand
__________________________________________________

Option Explicit
Sub Main()
  Dim objDwg As AcadDocument
  Dim objAcad As AcadApplication
  Dim intDwgCnt As Integer
  Dim strThisDwg As String
  Dim intThisDwg As Integer
  Set objAcad = AcadApplication.Application
  intDwgCnt = 0
  strThisDwg = ThisDrawing.FullName
  For Each objDwg In objAcad.Documents
    If objAcad.Documents.Item(intDwgCnt).FullName <> strThisDwg Then
      objAcad.Documents.Item(intDwgCnt).Activate
      objDwg.SendCommand "(load ""OpenDwgsCmds.lsp"")" & vbCr & "OpenDwgsCmds" & vbCr
    Else
      intThisDwg = intDwgCnt
    End If
    intDwgCnt = intDwgCnt + 1
  Next objDwg
  objAcad.Documents.Item(intThisDwg).Activate
  ThisDrawing.SendCommand "(load ""OpenDwgsCmds.lsp"")" & vbCr & "OpenDwgsCmds" & vbCr
End Sub

______________________________________________
OpenDwgsCmds.dvb Revised Version with SendKeys
______________________________________________

Public Sub Main()
  Dim initialDwg As AcadDocument
  Set initialDwg = Application.ActiveDocument
  initialDwg.SendCommand "(load ""OpenDwgsCmds.lsp"") OpenDwgsCmds "
  Dim objDwg As AcadDocument
  For Each objDwg In Application.Documents
    If Not objDwg Is initialDwg Then
      objDwg.Activate
      DoEvents
      SendKeys "{(}load ""OpenDwgsCmds.lsp""{)} OpenDwgsCmds ", True
      DoEvents
    End If
  Next
  initialDwg.Activate
End Sub

[BlackBox]

Not sure if this is your particular issue, but in addition to the 'big split' in 2013 API, 2015 API also introduces changes that were not present in 2014 (i.e., MdiActiveDocument is now Nullable, there are changes to how one can call Commands, etc.)... Mind you I skipped VBA altogether going Visual LISP --> .NET, but I'd speculate this affects VBA as well at some level.



From Kean:

AutoCAD 2015 for developers

AutoCAD 2015: calling commands

Supporting AutoCAD 2015’s dark theme

AutoCAD 2015’s updated JavaScript API

... etc.

[Ed Jobe]

It looks to me like you're just trying to save all dwgs after switching to ps. You should just do it all in vba and avoid sendcommand/sendkeys. Here is a sub I wrote to save all. Just add your code to switch to ps before oDwg.Save.

Sub SaveAll()
    Dim oDwg As AcadDocument
    
    For Each oDwg In AcadApplication.Documents
        If oDwg.GetVariable("DBMOD") > 0 And Not oDwg.Name Like "Drawing*" Then
            oDwg.Save
            CommandLine oDwg.Name & " ...Saved"
        Else
            CommandLine oDwg.Name & " ...Not Saved"
        End If
    Next oDwg
End Sub


Sub CommandLine(msg As String)
    ThisDrawing.Utility.Prompt (msg & vbCrLf & "Command: ")
End Sub

[Terry Cadd]

Hi Ed,
You have helped me out in the past. I was just playing around with your SaveAll program. Very cool stuff.
I like your example For Each loop because it is short and sweet.
I also did a search on running an AutoLisp program from VBA and read a lot of posts.
How would I add code to run a AutoLisp routine in you For Each loop?
Thanks for you help.
Terry

[Ed Jobe]

VBA is not a good choice for trying to run lisp like that because the lisp will run asynchronously. That's why I suggested you use vba to do the few commands you listed. If you use acad 2015 then you have another choice in .NET for mixing lisp into your code.

VBA works ok where you call a lisp and then the vba finishes, after which the lisp will run. But not where you want to execute some lisp, have it return and then continue with vba execution.