Topic: Generating a log file of sysvars for the open drawing?

[KewlToyZ]

Just curious, I'm sure you guys had one before I read but my memory is failing on what it was on.
I was goofing around trying to get my SYSVARS to list in a log file for the drawing I have open.
But using the SET command doesn't work from lisp.

Code: [Select]

(defun c:sysvars()
;======================================================================
; Turn off command line responses
;======================================================================
(setvar "CMDECHO" 0); DO NOT CHANGE THIS LINE
;======================================================================
(command "LOGFILEON")
(princ "\n   Logging turned on!!\n")
(command "INPUTHISTORYMODE" 0)
;======================================================================
(princ "\n   Begin listing SYSVARS!!\n")
(command "SET" "?" "*")

;======================================================================
; Turn on command line responses
;======================================================================
(setvar "CMDECHO" 1); DO NOT CHANGE THIS LINE
;======================================================================
(command "INPUTHISTORYMODE" 5)
(princ "\n   Logging SYSVARS successful!!\n")
(command "LOGFILEOFF")
)

[alanjt]

SET is the command alias for SETVAR.

[Lee Mac]

Alternatively, you could just use SYSVDLG and click 'SaveAll' - the resultant .svf file is Text file format. 

[ribarm]

Or perhaps use command Alan mentioned once on AUGI, VARS2SCR and export variables into *.scr file witch is also Text file format...

M.R.

[KewlToyZ]

That's the program I was trying to remember!!!
Hmmmm now if I can just find what file the code is in....lol
I have it come up in my command list and function, I just don't remember what it was named...
doh!!!

[KewlToyZ]

OK that is integrated into AutoCAD.
I'll have to take a look and see if the code is available to check it out.
Thanks guys 

[Lee Mac]

SYSVDLG  -->  sysvdlg.arx

[Ketxu]

But using the SET command doesn't work from lisp.

You can use
(vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) "set\n?\n*\n")
instead of (command "SET" "?" "*")

[alanjt]

But using the SET command doesn't work from lisp.

You can use
(vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) "set\n?\n*\n")
instead of (command "SET" "?" "*")

or just repalce "SET" with "SETVAR" (the actual command name - not alias).

SET is the command alias for SETVAR.

[danallen]

SET is the command alias for SETVAR.

Not true, SET can be used with read to create symbol names based on other variables.

Code: [Select]

(set (read "a") 5.0)
is the same as

Code: [Select]

(setq a 5.0)except that "a" could be replaced with (strcat "a" yourvariable)

or for a full function:

Code: [Select]

;==========================================================
; SETV function saves setvar settings to be reset at end with RSETV
;     (setv "cmdecho" 0) set cmdecho off
;     (rsetv "cmdecho")  resets cmdecho (see below)
;   taken from Essential AutoLISP by Roy Harkow
;==========================================================
(defun-q SETV (sysvar newval / cmdnam)
  (setq cmdnam (read (strcat sysvar "1"))) ;Create   [savevar]1
  (set cmdnam (getvar sysvar)) ;Save     [savevar]'s value
  (setvar sysvar newval) ;Then set [savevar] to new value
)

(defun-q RSETV (sysvar / )
  (if (eval (read (strcat sysvar "1"))) ;Only change if exists
    (progn
      (setq cmdnam (read (strcat sysvar "1"))) ;Create   [savevar]1
      (setvar sysvar (eval cmdnam)) ;Restore  [savevar]'s value
      (set cmdnam nil)
    ) ;end progn
  ) ;end if
)


[alanjt]

SET is the command alias for SETVAR.

Not true, SET can be used with read to create symbol names based on other variables.

Code: [Select]

(set (read "a") 5.0)

I know, but it's also the default command alias for the setvar command, which is what the op was intending to call. For his function to work, he just needed to replace "SET" with "SETVAR" This has nothing to do with the set function.

[Ketxu]

SET is the command alias for SETVAR.

yes, i think so too, i just post another way to call sth else  based on sencommand method ^^

[KewlToyZ]

Is there a way to get through the prompts for hit any key?
I was trying the Expert variable but the only references I have are:
;EXPERT - Controls whether certain prompts are issued.
;0 Issues all prompts normally.
;1 Suppresses "About to regen, proceed?" and "Really want to turn the current layer off?"
;2 Suppresses the preceding prompts and "Block already defined. Redefine it?"
;   (BLOCK) and "A drawing with this name already exists. Overwrite it?" (SAVE or WBLOCK).
;3 Suppresses the preceding prompts and those issued by the LINETYPE command if you try to load a linetype
;   that’s already loaded or create a new linetype in a file that already defines that linetype.
;4 Suppresses the preceding prompts and those issued by UCS Save and VPORTS Save if the name you supply already exists.
;5 Suppresses the prompt, "That name is already in Use, redefine it?"
;   issued by the -DIMSTYLE Save option when you supply the name of an existing dimension style.
Any feedback appreciated. VARS2SCR isn't really what I was looking for.