Try these:
(defun @setenv (Key Value / Path)
(setq Path
(strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\FixedProfile\\General")
)
(if Value
(vl-registry-write Path Key Value)
(vl-registry-delete Path Key) ; added 12-17-01
)
)
(defun @getenv (Key / Path)
(setq Path
(strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\FixedProfile\\General")
)
(vl-registry-read Path Key)
)
John F. Uhden
Quick test here on Vanilla 2021:
Computer\HKEY_USERS\S-1-5-21-1809253830-3232121265-1379586990-1106\Software\Autodesk\AutoCAD\R24.0\ACAD-4101:409\FixedProfile\General
I think it used to save here:
Computer\HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R24.0\ACAD-4101:409\Profiles\<<Unnamed Profile>>\General or (General Configuration)