Choose Home tab→Relate group→ Perpendicular .
Click a line.
Click a line, arc, or circle (A). One line moves to make the two lines perpendicular (B).
Perpendicular command