Tired of calculating rebars standard 90 degree bend?

Here is a LISP routine you can use.

(defun C:JHOOK( / ang ang0 ang1 ang2 ac ac2 pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 P1 P2 P3 P4 P5 P6)
(setq pt3 (upoint 1 "" "Start point " nil nil) pt4 (upoint 1 "" "Reference Point " nil pt3))
(setq ac (/ #dwgsc 20.0)
ac2 (* 2.0 ac)
dt (/ #dwgsc 20)
ang (angle pt4 pt3)
ang0 (+ ang (dtr 90))
ang2 (+ ang (dtr 135))
pt3 (polar pt3 (angle pt3 pt4) (* 0.5 ac))
pt4 (polar pt4 ang (* 0.5 ac))
pt2 (polar pt3 ang ac)
pt2 (polar pt2 ang0 ac)
pt1 (polar pt2 ang0 ac2)
pt5 (polar pt4 ang0 ac)
pt5 (polar pt5 ang2 ac)
pt6 (polar pt5 (+ ang (dtr 45)) ac2))
(command "pline" pt1 "w" "0" "0" pt2 "a" pt3 "l" pt4 "a" pt5 "l" pt6 "" )
)