사각형 문자를 각도조정하고싶은데 도와주세요.

 (defun c:pg10(/ rtd ks_pt_sort p1 p2 pa ang dist p3 p4 mp size)
 (defun rtd (a)(/ (* a 180.0) pi))

 (defun ks_pt_sort(L)
  (vl-sort(vl-sort L ‘(lambda (a b)(< (cadr a)(cadr b)))) ‘(lambda (a b)(< (car a)(car b))))
 )
 
 (setq p1 (getpoint “n1st point:”))
 (setq p2 (getpoint “n2nd point:”))
 (setq pa (getpoint “n3rd point:”))
 (setq ang (angle p1 p2))
 (setq dist (distance p1 p2))

 (setq mid (polar p1 ang (/ dist 2)))
 
 (if (and (>= ang 345)(<= ang 15))
  (setq ang (/ pi 2)))
 (if (and (>= ang 165)(<= ang 195 ))
  (setq ang (/ pi 2)))
 (if (and (> ang 15)(< ang 165))
  (setq ang (ang)))
 (if (and (> ang 195)(< ang 345))
  (setq ang (ang)))
  
  
 
  

 
 (setq p4 (polar p1 (+ (/ pi 2)ang) dist))
 (setq p3 (polar p2 (+ (/ pi 2)ang) dist))

 (setq mp (inters p1 p3 p2 p4 nil))
 
 
 (command “line” p1 p2 p3 p4 “c”)
 (Command “text” “J” “MC” mp dist(rtd ang) “A” )
(princ)
)

사각형안에 문자A가 써있는 lisp인데요.
이걸 각도로 조정해서 196~344도사이는  반대방향인16~164도랑 같게 나오고싶고
345~15도 사이랑 165~195도사이는 90도방향이랑같게나오게 하고싶은데
제가 if문을 잘못쓴건지.. 실행해도 작동이되지않네요..