NEED HELP WITH LISP ROUTINE - PURGE linetype lisp

[ECASAOL350033]

Hi guys,

I have this lisp routine that somehow used to work though it deletes all my layouts now.

(defun c:removeline ()
  (vlax-for n (vla-get-blocks
                (vla-get-activedocument
                  (vlax-get-acad-object)
                )
              )
    (vl-catch-all-apply 'vla-delete (list n))
  )
  (princ)
)

This routine used to remove all nested linetypes that were not used. It worked a couple of time though for some reason it deletes all the layout tabs. I think that either a variable has been changed or something else. It has the same effect on all the other pc's in the office (deletes layout tabs)

Thanks heaps.

Rico