Topic: MODEMACRO - file size in KB

[w64bit]

I have a MODEMACRO code to display date on statusbar.

Code: [Select]

(setvar 'modemacro "The date is: $(edtime,$(getvar,date),DD.MO.YYYY)")
Can anyone help me, please, to change the code to display the current file size in KB?

Like "The file size is ... KB"

Thank you

[Lee Mac]

I don't think this is possible, as the filesize does not appear as a system variable which may be referenced through DIESEL. You would perhaps need to use LISP to set one of the USERI system variables on drawing startup/save, and then read this system variable from a DIESEL expression embedded in your MODEMACRO system variable.

You can of course alternatively reference the filesize using a field expression (%<\AcVar filesize \f "%ld%by1">%).

[BIGAL]

Not tested

Code: [Select]

(setvar 'modemacro (strcat "File size is " (rtos (vl-file-size (strcat (getvar 'dwgprefix)(getvar 'dwgname))) 2 0) " Kb"))


[Lee Mac]

Not tested

Code: [Select]

(setvar 'modemacro (strcat "File size is " (rtos (vl-file-size (strcat (getvar 'dwgprefix)(getvar 'dwgname))) 2 0) " Kb"))


Whilst that will work to set the initial value, the resulting file size won't be updated automatically.

[d2010]

 

Not tested

Code: [Select]

(setvar 'modemacro (strcat "File size is " (rtos (vl-file-size (strcat (getvar 'dwgprefix)(getvar 'dwgname))) 2 0) " Kb"))


Whilst that will work to set the initial value, the resulting file size won't be updated automatically.

You need refreshing -disk;
You can display  the filesize of  any file, only after disk-refreshing
Step1) You check status of .BAK
Step2) If  the .BAK is updated then you display the filesize of DWG.
Please you can test with the extension  .BAK not .Dwg?