Identifying Autocad Architecture/MEP

[dbaldacchino]

Hi all,

Is there a way to tell my VBA script whether it is being run by Autocad Architecture or Autocad MEP (ABS)? The ACADVER variable in both apps reports the same thing (17.1s (LMS Tech)) and is retrieved simply with Application.Version, but this seems to be just the Autocad version number. Is there something that would report whether it's Architecture or MEP? Thanks!

[zoomharis]

Hi all,

Is there a way to tell my VBA script whether it is being run by Autocad Architecture or Autocad MEP (ABS)? The ACADVER variable in both apps reports the same thing (17.1s (LMS Tech)) and is retrieved simply with Application.Version, but this seems to be just the Autocad version number. Is there something that would report whether it's Architecture or MEP? Thanks!

How about system variable PRODUCT ? If that doesn't help, try sysvar PROGRAM. Sorry that I don't have any verticals here to test that.

[dbaldacchino]

Thanks for the tip, unfortunately they're useless. PROGRAM results in "acad" and PRODUCT results in "AutoCAD". I just can't believe there's not a simple way!

[zoomharis]

Thanks for the tip, unfortunately they're useless. PROGRAM results in "acad" and PRODUCT results in "AutoCAD". I just can't believe there's not a simple way!

Presuming that both applications have different titles, you could use Application.Caption to distinguish between them.

[dbaldacchino]

Ahhh that's it. I didn't realize there was a caption property. Now I can look for the word "Architecture" and if it's not there, it means MEP is running. Thanks a lot!

[dgorsman]

You might also want to check for which ARX files have been loaded.

[Ed Jobe]

You can also use these functions. GetRegAppBase can be modified to return whatever you need to determine which app is running.

Public Function GetAppPath() As String
    'returns path of acad.exe for current desktop app
    'you may need to append a backslash when concatenating text
    Dim strPath As String
    strPath = ThisDrawing.Application.Path
    GetAppPath = strPath
    
End Function



Public Function GetAppRegBase() As String
    Dim str As String
    str = GetAppPath
    Select Case str
        Case Is = "C:\Program Files\Autodesk Map 3D 2005"
            GetAppRegBase = "Software\Autodesk\AutoCAD\R16.1\ACAD-302:409\"
        Case Is = "C:\Program Files\Autodesk Building Systems 2007"
            GetAppRegBase = "Software\Autodesk\AutoCAD\R17.0\ACAD-5006:409\"
        Case Else
            GetAppRegBase = ""
    End Select
        
End Function

[dbaldacchino]

Thanks Ed, that will work too. I was trying to find a solution without having to rely on the installation path just in case I come across a machine with a different configuration.