Определение угла между отрезками

Думал, что просто есть аналог, вот и спросил. А так - действительно придёться нацарапать свою маленькую функцию.

Попробовал написать это в командной строе, получил ответ:
"Используйте ANG(v), ANG(p1,p2), ANG(apex,p1,p2), ANG(apex,p1,p2,p)"

"p1, p2" - точки,
"v" - вектор,
а что значит "apex"?
Интересно как расшифровать последний вариант "ANG(apex,p1,p2,p)" ?

Разницу вычислить - не всегда удачное решение.
Отрезки рисуются по двум точкам - эти точки - задают вектор, по которому высчитывается угол к оси X. Таким образом, если рисовать отрезок из т1 в т2 - угол будет иметь одну величину, а если мы отрезок переориентируем и нарисуем его сперва из т2 в т1 (направим вектор в другуй сторону), то угол будет иметь другое значение. Хотя на вид - отрезок как был нарисован в одном месте, так и остался.
На чертеже визуально не понятно - из какой в какую точку направлен отрезок. И вычислить угол между двумя такими отрезками можно, но результат не всегда получаеться таким, каким ты его ожидаешь увидеть, потому что всё зависит от того, как были нарисованы отрезки. Вот я и задумался - как сделать так - что бы угол определялся именно по тому "обходу" который "визуально " понятен (бралось внутреннее значение угла).

Конечно, полученный угол функция должна оценить и принять соответствующий алгоритм вычислений (а не просто вычислить разницу), это у меня работало. Здесь есть другой момент, когда отрезки физически не пересекаются, тут все понятно, а когда они пересекаются, то получается 2 угла... У меня отрезки выбирал пользователь, поэтому я просто в функцию дополнительно передавал точки указания, которые однозначно указывают на нужный угол...

Сори за оформление - ступил... Исправить уже ничего не в силах

;Функция получения угла по 3 точкам
направление угла зависит от переменной angdir
Возвращает градусы

(defun angle-3point-samocad (1line basepo 2line / ang1 ang2)

(setq ang1 (rad->deg-samocad(angle basepo 1line)))
(setq ang2 (rad->deg-samocad(angle basepo 2line)))
 
(cond
 ((= ang1 ang2) 0.0)
 ;по часовой стрелке
 ((and (= (getvar "angdir") 1)
      (> ang1 ang2))
  (- ang1 ang2))

 ((and (= (getvar "angdir") 1)
      (< ang1 ang2))
  (- 360.0 (- ang2 ang1)))

 ;против часовой
 ((and (= (getvar "angdir") 0)
      (< ang1 ang2))
  (- ang2 ang1))

 ((and (= (getvar "angdir") 0)
      (> ang1 ang2))
 (- 360.0 (- ang1 ang2)))
 );cond
 )

;1.1перевод градусов в радианы (вещественные числа)

(defun deg->rad-samocad (angdeg / )
 (* (/ pi 180) angdeg)
 )
;(DEG->RAD-SAMOCAD -10)
;---------------------------------------------------
;1.2 перевод радиан в градусы
;---------------------------------------------------
(defun rad->deg-samocad (angrad)
 (*(/ 180.0 pi) angrad)
 )
;(rad->deg-samocad pi)

ребята! научите как сделать приложение для измерения углов между двумя прямыми и создать свою кнопку для этой комманды.