Deleting Layer States

Does any one have a lisp routine of deleting multiple (if not all)layer states within a drawing. Going through the dialog box on each drawing is quite cumbersome. I searched past topics on this subject and just had a hard time finding something that worked for me.

Thanx

Troy

 

Here is a link to a recent post.

http://discussion.autodesk.com/thread.jspa?threadID=373740

Tim

 

How about Superpurge? Works wonders.

 

Thanx for the link Tim, but what that lisp routine was referring to was deleting layer filters not layer states, which is what I am trying to do. Can you think of another link that might help???

Troy

 

;;; Purge/delete all layer states
;;; Example: (DeleteLayerStates)
(defun DeleteLayerStates ()
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove (vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object))))
"ACAD_LAYERSTATES")))
(princ)
)

http://www.jtbworld.com/lisp/purger.htm

--
Best Regards, Jimmy Bergmark
CAD and Database Developer Manager at www.pharmadule-emtunga.com
Blog: http://jtbworld.blogspot.com
JTB FlexReport (FLEXlm report tool) - www.jtbworld.com/jtbflexreport
SmartPurger (Purges automatically) - www.jtbworld.com/?/smartpurger.htm
or download some freeware at www.jtbworld.com
More on AutoCAD 2005;
www.jtbworld.com/autocad2005.htm

 

BEAUTIFUL!!!! Thanx Jim, this is going to make things for efficient.

Troy