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

' 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 & _