Profiles swapper in lisp

can someone help me?
I need a lisp that will unload the current profile and load and set current another profile (arg).
snipped-for-privacy@neo.rr.com
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
well i guess if you just import your profile in options- profiles you can set this profile as the current one.
odd

Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
snipped-for-privacy@neo.rr.com wrote...

(vlax-put (vlax-get (vlax-get (vlax-get-acad-object) "Preferences" ) "Profiles" ) "ActiveProfile" "Profile Name Here" )
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.