0 Members and 1 Guest are viewing this topic.
(setq myprofiles (vla-get-profiles (vla-get-preferences (vlax-get-Acad-Object))))(setq showprofile (strcase (vla-get-ActiveProfile myprofiles)))
$(upper,$(getvar,CPROFILE))