Try something like this.
(vla-put-supportpath
(vla-get-files (vla-get-preferences (vlax-get-acad-object)))
(strcat
"\\\\1\\designdata\\cadd\\dc acad\\default\\general\\support\\2021 lsp;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\general\\support\\;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\general\\symbols;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\general\\fonts;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\mech;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\mech\\support;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\elec\\support\\symbols;"
"\\\\1\\designdata\\cadd\\dc acad\\default\\elec\\anno\\job setup;"
(getenv "appdata")"\\Autodesk\\AutoCAD 2021\\R24.0\\enu\\support;"
"C:\\program files\\autodesk\\autocad 2021\\support;"
"C:\\program files\\autodesk\\autocad 2021\\support\\en-us;"
"C:\\program files\\autodesk\\autocad 2021\\fonts;"
"C:\\program files\\autodesk\\autocad 2021\\help;"
"C:\\program files\\autodesk\\autocad 2021\\express;"
"C:\\program files\\autodesk\\autocad 2021\\support\\color;"
"C:\\program files (x86)\\autodesk\\applicationplugins\\autodesk appmanager.bundle\\contents\\resources;"
"C:\\program files (x86)\\autodesk\\applicationplugins\\autodesk appmanager.bundle\\contents\\windows\\2021;"
"C:\\program files (x86)\\autodesk\\applicationplugins\\autodesk featuredapps.bundle\\contents\\resources;"
"C:\\program files (x86)\\autodesk\\applicationplugins\\autodesk featuredapps.bundle\\contents\\windows\\2021\\win64;"
)
)
Yes it is possible, but what's the benefit of that new sorting / order since paths will be the same ?
First one wins in a search. I let my people add a personal folder up top create custom things like pgp and lsp routines. I also give them the option of using a personal lisp routine via a workspace for things they want that are not company policy.