Impossible to delete typelines

[sandrix]

Hi.
to all I am with a problem of this type
I have several dwg files version 2012 that contain
thousand different line types that I do not use.
I tried them all, but I can't eliminate them. both with the purge, both exploding everything and putting everything on a layer with the same line, and from the linetype manager erasing them one by one but tells me that "the selected linetype was not deleted.
in the end, I tried to completely erase all the content of the design... and these thousand lines are still.... .

I have therefore sought and found the discussions below
http://forums.autodesk.com/t5/autocad-lt/linetypes-will-not-purge/td-p/3236334
http://forums.autodesk.com/t5/autocad-2013-2014-dwg-format/infectious-linetypes/td-p/3746140
http://forums.autodesk.com/t5/net/purge-linetypes/td-p/2899312Is there any users of the forum able to create a lisp pre delete these cursed linetypes?? ?

Thank you.

 

[sandrix]

in rete ho trovato questo codice....
ma non mi sembra funzionare......

(vl-load-com)

(defun curgelin ()
(princ "\nprocessing, please wait... ")
(princ)
(vlax-for lin (vla-get-linetypes
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vl-catch-all-apply 'vla-delete (list lin))
)
(princ)
)

 

[tir]

http://www.cad3d.it/forum1/showthread.php?37563-stili-di-linea-non-eliminabili

 

[sandrix]

Thank you very much!! ! ! !
great forum!!
you have solved an unsustainable situation!!!