[求助]请教高手，谁有这样几个函数？

userzhl

(mai_arc_ang ang1 ang2)  ;两个角的夹角

(mai_point_in_arc pt1 cen2 rad ang3 ang4) ;点是否在弧上

(mai_merge_line na mai_toler nil T nil T) ;删除掉，清理重复线条

(mai_equal cover_len cover_max)
(equal a  b 0.0001)
带容差，后面为我自己的变量