Change Profile from Command Line / Lisp??

I switch back and forth between two profiles all the time

and was wondering in it is possible to do this via lisp?

Wanting to create a shortcut to flip from one profile

to the other and back again as needed.

Something along the lines of Profile1 and Profile2.

Is it as simple as a setvar?

TIA!!

this is what i use for mt 2D and 3D profile switch

just change the 2D and 3D to your profile names

 
(vl-load-com)
(defun c:po (/ cpr)
 (if (= (getvar "cprofile") "3d")
   (setq cpr "2d")
   (setq cpr "3d")
 )
 (if (= cpr nil)
   (setq cpr "2d")
 )
 (vla-put-ActiveProfile
   (vla-get-Profiles
     (vla-get-Preferences (vlax-get-acad-object))
   )
   cpr
 )
) ;_defun

Untested...

(defun c:PTog (/ lst)
 (setq lst '("Profile1" "Profile2"))

 (vl-catch-all-apply
   (function vla-put-activeprofile)
   (list (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))
         (if (eq (getvar 'cprofile) (car lst))
           (cadr lst)
           (car lst)
         )
   )
 )
 (princ (strcat "Active Profile: \"" (getvar 'cprofile) "\""))
 (princ)
)

Awesome guys!!

Only thing better than a solution is having multiple solutions...

Thanks much!

Awesome guys!!

 

Only thing better than a solution is having multiple solutions...

 

 

Thanks much!

Makes life fun.

You're welcome.