Como selecionar várias linhas na área de desenho do AutoCAD e retornar o comprimento total usando AutoCAD VBA

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

' Esta macro permite ao usuário selecionar várias linhas
' na área de desenho do AutoCAD e exibir o comprimento
' de todas elas
Sub ComprimentoLinhas()
  ' vamos declarar uma variável para receber as
  ' linhas selecionadas
  Dim linha As AcadLine
  ' e também a localização das linhas
  Dim localizacao As Variant
  ' comprimento total das linhas
  Dim comprimento_total As Double
 
  ' em caso de erro
  On Error GoTo Finalizar
    
  ' vamos percorrer todas as linhas que o usuário selecionar
  comprimento_total = 0
  While True
    ThisDrawing.Utility.GetEntity linha, localizacao, vbNewLine & _
      "Selecione mais uma linha"
    ' somamos mais este comprimento
    comprimento_total = comprimento_total + linha.Length
  Wend
  
Finalizar:
  ' mostramos o resultado
  ThisDrawing.Utility.Prompt "Comprimento total das linhas: " _
    & comprimento_total
End Sub