I just noticed something when I added this to a routine. I have a routine that will save out several files from the current active dwg. I have placed your code near the middle of the routine. However, once the routine finishes up on the last drawing to be saved, it runs your code only on that save out.
(ALERT "Save As .CE.XREF.1.")
(COMMAND "_saveas" "" "~")
(ALERT "Save As .CE.XREF.2.")
(COMMAND "_saveas" "" "~")
(ALERT "Save As .CE.XREF.3.")
(vl-load-com)
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DLAO\n0-*\n")
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DLAO\nC_*\n")
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DLAO\nCNT_*\n")
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DLAO\nEX_PTS*\n")
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DLAO\nPROFILE*\n")
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DLAO\nTB1*\n")
(COMMAND "_saveas" "" "~")
(ALERT "Save As .CE.XREF.4.")
(COMMAND "_saveas" "" "~")
(ALERT "Save As .CE.XREF.5.")
(COMMAND "_saveas" "" "~")