Here would be a different type of 3 point arc.....first point and second point and the drag in the desired direction....here is a macr of a similar situation...how could this be put to lisp?
Thanks
arc;node,quad;\$M=E;node,quad;\;$(getvar,lastpoint);