Reloading linetypes via VBA

Anyone know how to reload a linetype that's already present in the drawing?

I have a large number of files with defective linetype definitions (never
mind why - my own stupidity, mainly) and I'd like to use DBX to repair them.
But the "load" method for the linetypes object fails if the linetype already
exists in the drawing. I tried deleting the linetype, then reloading it, but
of course the deletion fails if the linetype is referenced by a layer.

 

Well since the linetype can't be removed because it is referenced, iterate
thru the layer collection and add all the layers with the defective
linetype attached to your own collection. Cycle thru your collection and
change the linetype to something else. Purge the defective linetype, reload
the good one and re-apply it to the ones you're tracking in your
collection.

-- Mike
___________________________
Mike Tuersley
CADalyst's CAD Clinic
Rand IMAGINiT Technologies
___________________________
the trick is to realize that there is no spoon...