Como acessar o AutoCAD a partir do Excel e retornar sua versão

' Não se esqueça de adicionar a referência ao
' AutoCAD 2021 Type Library
' Ferramentas -> Referências -> AutoCAD 2021 Type Library
' Mova esta referência o mais alto que puder usando as
' setas para cima e para baixo

Option Explicit

' vamos declarar a variável que representará a aplicação AutoCAD
Public acadApp As AcadApplication
' e uma variável para representar o documento do AutoCAD
Public acadDoc As AcadDocument

' corpo da macro que acessa o AutoCAD e retorna a sua versão
Sub AcessarAutoCAD()
  ' em caso de erro
  On Error Resume Next
         
  ' vamos obter a aplicação AutoCAD
  Set acadApp = Interaction.GetObject(, "AutoCAD.Application")
  ' poderia ser também
  ' Set acadApp = Interaction.GetObject(, "AutoCAD.Application.22")
     
  ' houve erro?
  If Err Then
    ' vai mostrar na janela de Verificação imediata
    Debug.Print "Erro: " & Err.Number
    Debug.Print Err.Description
    Debug.Print "Iniciando o AutoCAD"
    Err.Clear
                       
    ' criamos uma nova instância do objeto AcadApplication
    Set acadApp = New AcadApplication
    ' poderia ser também
    ' Set acadApp = Interaction.CreateObject("AutoCAD.Application.22")
         
    ' tornamos a aplicação visível na tela
    acadApp.Visible = True