(defun c:trx (/ pt ui xl)
(setq pt (getpoint "Specify a point: "))
(setq ui (getpoint pt "Specify through point: "))
  (command "_xline" ui pt "")
(setq xl (entlast))

(command "_trim" xl "" "r" xl "" command \)
(princ))