Ok... I got ya...
It's quick and dirty but I think it's what you're trying to do.
Code:
(defun C:TZOID (/ p1 dq p2 d2 ang p1o1 p1o2 p2o1 p2o2)
(setq p1 (getpoint "\nSpecify first point: ")
d1 (/ (getreal "\nWidth: ") 2)
p2 (getpoint "\nSpecify second point: ")
d2 (/ (getreal "\nWidth: ") 2)
ang (angle p1 p2)
p1o1 (polar p1 (- ang (/ pi 2)) d1)
p1o2 (polar p1 (+ ang (/ pi 2)) d1)
p2o1 (polar p2 (- ang (/ pi 2)) d2)
p2o2 (polar p2 (+ ang (/ pi 2)) d2)
)
(command ".line" p1o1 p1o2 p2o2 p2o1 "c")
(princ)
)