I'm not aware of a way to configure Event Viewer so that those settings/filters persist, but you can disable it altogether:
Code:
(vl-load-com)
(defun c:DisableEventViewer ( / *error* _IsCivilDatabase vrsn acApp aeccApp show)
(defun *error* (msg)
(if aeccApp
(vlax-release-object aeccApp)
)
(if acDoc
(vla-endundomark acDoc)
)
(cond ((not msg)) ; Normal exit
((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit)
((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display it
)
(princ)
)
(defun _IsCivilDatabase (/ isCivilDb)
;; Example:
;; (if (_IsCivilDatabase)
;; (prompt "\nCivil 3D Drawing opened. ")
;; )
(foreach x (entget (namedobjdict))
(if (and (= 3 (car x)) (= "Root" (cdr x)))
(setq isCivilDb T)
)
)
isCivilDb
)
(if
(and
(_IsCivilDatabase)
(setq vrsn (getvar 'acadver))
(setq vrsn
(cond
((vl-string-search "23.0" vrsn) "13.0") ; 2019
((vl-string-search "22.0" vrsn) "12.0") ; 2018
((vl-string-search "21.0" vrsn) "11.0") ; 2017
((vl-string-search "20.1" vrsn) "10.5") ; 2016
((vl-string-search "20.0" vrsn) "10.4") ; 2015
((vl-string-search "19.1" vrsn) "10.3") ; 2014
((vl-string-search "19.0" vrsn) "10.0") ; 2013
((vl-string-search "18.2" vrsn) "9.0") ; 2012
((vl-string-search "18.1" vrsn) "8.0") ; 2011
((vl-string-search "18.0" vrsn) "7.0") ; 2010
((vl-string-search "17.2" vrsn) "6.0") ; 2009
((vl-string-search "17.1" vrsn) "5.0") ; 2008
(T nil)
)
)
(setq aeccApp (vla-getinterfaceobject
(setq acApp (vlax-get-acad-object))
(strcat
"AeccXUiLand.AeccApplication."
vrsn
)
)
)
(= -1
(vlax-get
(setq show
(vlax-get
(vlax-get
(vlax-get
(vlax-get
(vlax-get (vlax-get aeccApp 'ActiveDocument)
'Settings
)
'DrawingSettings
)
'AmbientSettings
)
'GeneralSettings
)
'ShowEventViewer
)
)
'Value
)
)
(princ "\nDisabling Event Viewer... ")
(princ)
)
(progn
(vla-startundomark
(setq acDoc (vla-get-activedocument acApp))
)
(vlax-put show 'Value 0)
(princ "Done. \n")
)
(cond
((not vrsn)
(prompt "\n** Not a Civil 3D Drawing ** \n")
)
(vrsn
(prompt
"\n** Unable to interface with \"AeccXUiLand.AeccApplication\" object ** \n"
)
)
(show
(prompt "\nEvent Viewer already disabled. \n")
)
)
)
(*error* nil)
)