Como calcular o ângulo entre dois pontos na área de desenho do AutoCAD usando a função angle da AutoLISP

; Uma função personalizada que nos permite
; calcular e retornar o ângulo entre dois
; pontos na área de desenho do AutoCAD usando a
; a função angle da linguagem AutoLISP
; Note que a função angle retorna o ângulo em radianos
(defun c:calcular-angulo()
  ; 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
  ; segundo ponto
  (setq q (getpoint "\nCoordenadas do segundo ponto: "))
 
  ; agora chamamos a função angle fornecendo os
  ; dois pontos geométricos indicados pelo usuário
  (setq angulo_radianos (angle p q))
  
  ; vamos converter ângulos em radianos para ângulos
  ; em graus
  (setq angulo_graus (* angulo_radianos (/ 180 pi)))
  
  ; e finalmente mostramos o resultado
  (princ (strcat "\nO ângulo entre o primeiro ponto e o segundo é: " 
    (rtos angulo_graus)))
  (princ)
)