This routine sets the snapangle by selecting an entity.
If the entity is anything other than a line, prompts to pick
two points. If the snapangle is other than 0, returns to zero.
Also toggles ortho mode. Great for dynamically lengthening
a line using grips, moving an object parallel to the selected