Lock FILEDIA Value to 1

[emiller]

Please allow the ability to lock the FILEDIA value at 1.

[rkmcswain]

While you wait, you can do this yourself with an autolisp reactor.

Something like this:

;;; Credit Peter Jamtgaard for original code
;--------------------------------------
(defun C:ALERTME ()
   (vl-load-com)
   (setq VTFRXN (vlr-editor-reactor nil '((:VLR-sysVarChanged . VTF))))
)

(defun VTF (CALL CALLBACK)
   (if (= (strcase (car CALLBACK)) (setq str "FILEDIA"))
     (if (zerop (getvar "filedia"))
       (progn
	 (setvar str 1)
	 (princ (strcat "\nCannot set " str " to 0 "))
       )
     )
 
   )
)
;---------------------------------------

* You might want to test with scripts, publishing, etc.

[emiller]

Thanks!

[dougmcalexander]

It is corrected in release 2023. 

[rkmcswain]

@dougmcalexander - how so? Nothing has changed for 30+ years.