Change Profile from Command Line / Lisp??

[ILoveMadoka]

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!!

[alanjt]

This should give you the information you're looking for. )

[JohnM]

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

[alanjt]

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)
)

[ILoveMadoka]

Awesome guys!!

 

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

 

 

Thanks much!

[alanjt]

Awesome guys!!

 

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

 

 

Thanks much!

 

Makes life fun.

 

You're welcome.