(DEFUN c:usrprofvars ( / ) (IF dimscl NIL (LOAD "dimscl" "\nFile DIMSCL.LSP not loaded! ")) (dimscl) (SETQ usrvars_reghive "HKEY_CURRENT_USER" usrvars_regkey "Software\\Autodesk\\AutoCAD\\R19.0\\ACAD-B000:409\\Profiles\\<>\\Variables";for <> usrvars_regname_1 "*REVCLOUDMINARCLENGTH" usrvars_regname_2 "*REVCLOUDMAXARCLENGTH" ) (SETQ usrvars_regkeys (dos_regget "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R19.0\\ACAD-B000:409\\Profiles\\<>\\Variables\\" ) ;_ end of dos_regget ) ;_ end of SETQ (IF (AND (MEMBER usrvars_regname_1 usrvars_regkeys) (MEMBER usrvars_regname_2 usrvars_regkeys) ) (PROGN (DOS_REGSETSTR usrvars_reghive usrvars_regkey "*REVCLOUDMINARCLENGTH" (RTOS (* 0.1875 dimsc) 2 4));3/8" @ current VP scale (DOS_REGSETSTR usrvars_reghive usrvars_regkey "*REVCLOUDMAXARCLENGTH" (RTOS (* 0.25 dimsc) 2 4));5/8" @ current VP scale ) ) (PRINC) ) ;_ end of DEFUN ;;;**************************************************************************** ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 0 0 nil nil T nil T) ;*** DO NOT add text below the comment! ***|;