Como posicionar um ponto em coordenadas polares na área de desenho do AutoCAD usando a função polar da AutoLISP

; Esta função permite ao usuário informar as
; coordenadas de um ponto na área de desenho do
; AutoCAD e, em seguida, informar o ângulo em graus
; e a distância do segundo ponto. Usamos então a função
; polar da AutoLISP para calcular as coordenadas
; polares do segundo ponto e desenhá-lo.
(defun c:posicionar-ponto-polar()
  ; 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 ângulo
  ; em graus
  (setq angulo_graus (getreal "\nInforme o ângulo em graus: "))
 
  ; vamos pedir para o usuário indicar a distância
  (setq distancia (getreal "\nInforme a distância: "))
 
  ; vamos converter ângulos em graus para ângulos