Como calcular a distância entre dois pontos no AutoCAD usando a função distance da AutoLISP

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

; Uma função personalizada que nos permite
; calcular e retornar a distância entre dois
; pontos na área de desenho do AutoCAD usando a
; a função distance da linguagem AutoLISP
(defun c:calcular-distancia()
  ; vamos pedir para o usuário indicar o
  ; primeiro ponto
  (setq p (getpoint "\nCoordenadas do primeiro ponto: ")) 
   
  ; vamos pedir para o usuário indicar o
  ; primeiro ponto
  (setq q (getpoint "\nCoordenadas do segundo ponto: "))
 
  ; agora chamamos a função distance fornecendo os
  ; dois pontos geométricos indicados pelo usuário
  (setq distancia (distance p q))
  
  ; e finalmente mostramos o resultado
  (princ (strcat "\nA distância entre os dois pontos é: " 
    (rtos distancia)))
  (princ)
)