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

; 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)
)