My own solution is here, using the commands:
set_param(0,'CurrentSystem',...)
set_param(gcs,'CurrentBlock',...)
Example:
% Open test model (R2014b)
clc
fuelsys;
% Set current subsystem ("compiled mode" necessary?)
set_param(0,'CurrentSystem','fuelsys/fuel rate controller');
% Set current block
set_param(gcs,'CurrentBlock','control logic');
% Get current block
disp('Current block:');
disp(gcb);
disp(' ');
% Selected block might be different
disp('Selected block:');
set_param('fuelsys/Metered Fuel','Selected','on');
disp(char(find_system('fuelsys','Selected','on')));
disp(' ');
% Get current block
disp('Current block:');
disp(gcb);
disp(' ');