----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' 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
         
    ' houve erro
    If Err Then
      MsgBox "Erro: " & Err.Description
      Exit Sub
    End If
  End If
     
  ' Se chegou até aqui, então deu tudo certo
  Debug.Print "Executando " + acadApp.Name + " versão " + acadApp.Version
          
  ' obtemos o documento ativo
  Set acadDoc = acadApp.ActiveDocument
  ' não existe documento aberto no AutoCAD?
  If acadDoc Is Nothing Then
    ' criamos um novo documento
    Set acadDoc = acadApp.Documents.Add
  End If
   
  ' não há espaço ativo?
  If acadDoc.ActiveSpace = 0 Then
    acadDoc.ActiveSpace = 1
  End If
End Sub

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Esta macro AutoCAD VBA demonstra como podemos
' calcular a distância entre dois pontos na área de
' desenho do AutoCAD
Sub DistanciaDoisPontos()
  ' vamos declarar os dois pontos geométricos
  Dim p As Variant
  Dim q As Variant
  ' para guardar as coordenadas temporárias
  Dim x As Double, y As Double, z As Double
  ' para guardar a distância
  Dim distancia As Double

  ' vamos pedir para o usuário informar os dois pontos
  p = ThisDrawing.Utility.GetPoint(, vbCrLf & _
    "Indique o primeiro ponto: ")
  q = ThisDrawing.Utility.GetPoint(p, vbCrLf & _
    "Indique o segundo ponto: ")

  ' agora calculamos a distância entre os dois pontos informados
  x = p(0) - q(0)
  y = p(1) - q(1)
  z = p(2) - q(2)
  distancia = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
 
  ' e mostramos o resultado
  MsgBox "A distância entre os dois pontos é: " & distancia
End Sub

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Esta macro AutoCAD VBA mostra como selecionar uma linha
' na área de desenho do AutoCAD e retornar suas coordenadas
' iniciais e finais
Sub CoordenadasLinha()
  ' vamos declarar um variável para receber a linha
  ' selecionada
  Dim linha As AcadLine
  ' e também a localização da linha
  Dim localizacao As Variant
  ' para guardar o ponto inicial
  Dim ponto_inicial As Variant
  ' para guardar o ponto final
  Dim ponto_final As Variant
   
  ' caso haja algum erro
  On Error Resume Next
   
  ' agora pedimos para o usuário selecionar a linha
  ThisDrawing.Utility.GetEntity linha, localizacao, _
    "Selecione uma linha"
   
  ' vamos obter o ponto inicial da linha
  ponto_inicial = linha.StartPoint
  ' vamos obter o ponto final da linha
  ponto_final = linha.EndPoint
   
  ' e mostramos as coordenadas iniciais e finais da linha
  ThisDrawing.Utility.Prompt "As coordenadas iniciais são: X = " _
    & ponto_inicial(0) & "; Y = " & ponto_inicial(1) & "; Z = " _
    & ponto_inicial(2)
  ThisDrawing.Utility.Prompt vbCrLf & "As coordenadas finais são: X = " _
    & ponto_final(0) & "; Y = " & ponto_final(1) & "; Z = " _
    & ponto_final(2)
End Sub

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Procedimento que permite desenhar uma linha entre dois pontos
Sub DesenharLinhaDoisPontos()
  ' vamos declarar o objeto Line
  Dim linha As AcadLine
  ' o ponto inicial
  Dim pontoInicial(0 To 2) As Double
  ' o ponto final
  Dim pontoFinal(0 To 2) As Double

  ' vamos definir as coordenadas dos dois pontos. Uma boa idéia
  ' seria pedir para o usuário informar os pontos. Em outras dicas
  ' do site essa idéia é explorada
  pontoInicial(0) = 0: pontoInicial(1) = 0: pontoInicial(2) = 0
  pontoFinal(0) = 350: pontoFinal(1) = 500: pontoFinal(2) = 0

  ' e agora desenhamos a linha
  Set linha = ThisDrawing.ModelSpace.AddLine(pontoInicial, pontoFinal)
  ' e damos uma Zoom All na área de desenho
  ZoomAll
End Sub