i don't know of any BAS things that do that, but you could create a script, it wouldn't be hard.
_unit = _this select 0
_marker = _this select 1
_chopper = _this select 2
_unit fire ["Throw","SmokeShellRed"]
_marker setPos [_unit select 0, _unit select 1, 0]
_chopper doMove getMarkerPos "_marker"
@UnitReady _chopper
_chopper Land "GET IN"
@_unit in _chopper
_chopper doMove [0,0,0]
exit