Hacer cambios y cerrar

Buen día señores. Espero que ya hayan recibido o estén por recibir vacuna, como yo ya estoy viejito, creo que todos son igual, en fin. Saludos a todos.

El asunto es que con una rutina lisp hago algunos cambios a los archivos y me gustaría que al terminar, se cierre el archivo guardando cambios o en su defecto, que al cerrar el archivo, se ejecute la rutina... lo que suceda primero.

Saludos y gracias..........

PD. No creo que sea necesario, pero anexo la rutina que estoy usando.

Código:


(DEFUN C:cerrar()
  (setq conj1(ssget "X" (list
  (cons 0 "VIEWPO*")
  ;(cons 8 "DEFPOINTS")
  )))
  (setq cuantos(sslength conj1))
  (setq i 0)
  (repeat cuantos
    (setq ent1(ssname conj1 i))
    (setq obj1(vlax-ename->vla-object ent1))
    (vla-put-color obj1 256)
    (setq i(1+ i))
    )
  (vl-cmdf "-layer" "_off" "defpoints" "")
  (vl-cmdf "-purge" "_A" "" "_N")
  (vl-cmdf "-purge" "_R" "" "_N")
  (vl-cmdf "_clayer" "0")
  
  )


Al final de la rutina, solo agrega un qsave y luego close.

También podrías usar un reactor, pero estos tienen la peculiaridad que no deben de usarse command o sus variantes.

Muchas gracias.....
Aprovechando la vuelta, otro punto importante. Como se ve en la rutina, selecciono todos los viewports del dibujo, peero... si hay viewports que se hicieron con objetos, como una polilínea irregular, éste no se selecciona, alguna sugerencia?

Otra vez gracias