ADE XL corner models editing with SKILL

 Hello I have following script which is editing ADE_XL corner's model paths:

procedure(adxlCornerModelsEdit()
    let((sess sdbh cornerName cHandle model_list modellist_handle model
    corner_list model_file_path)
        sess = axlGetWindowSession(hiGetCurrentWindow())
        sdbh = axlGetMainSetupDB(sess)
        corner_list = car(cdr(axlGetCorners(sdbh)))
        foreach(cornerName corner_list
            cHandle = axlGetCorner(sdbh cornerName)
            model_list = car(cdr(axlGetModels(cHandle)))
            printf("%L\n",model_list)
            foreach( model model_list
                model_file_path = axlGetModelFile(axlGetModel(cHandle model))
                printf("%s\t",model_file_path)
               
                axlSetModelFile(axlGetModel(cHandle model) strcat("$SOMEVAR/" model))
            );foreach
        );foreach
        axlSaveSetup()
    );let
);procedure

adxlCornerModelsEdit()

The script is wroking properly.

But I do not like the fact, that it is tracing one by one Corners in order to do the job for each of them.

Is it possible the models added to the Corner setup to be reached at once and so their paths to be edited on one cycle, so the script to be faster?

Best regards,

tyanata