Express tool - Exoffset

I always use the command "exoffset" and I want to skip the "T" or [Through] via lisp.

Command: exoffset

Settings: Distance = Through, Layer = SOURCE, Gaptype = Normal

Specify offset distance or [Through] : T

Select object(s) to offset or [Options/Undo]:

1 object(s) found.

Shift+Pick for multiple; Ctrl+Pick to erase source object.

How can I achieve this. Thanks.

(defun C:test ()
(command (C:exoffset) "T"
(while (= 1 (getvar "cmdactive"))
(command pause))
)
(princ)
)

You would need to modify the Express Tools' exoffset.lsp file.

Comment line 105 and change line 262 to (setq d 0.0)