Absolutely I could do that, but what baffles me is, why doesn't
AcLyDictionary exist when I open a drawing?? I've got a ton of layer
filters that need to be deleted, but they won't because that particular
dictionary doesn't even exist!!
Do I need to create it first to initialize something going on behind the
scenes before I can delete it??!?
(I think my head's going to explode this morning)
--
I love deadlines
I like the whooshing sound they make as they fly by.
"Jeff Mishler" wrote in message
news:41499ee2_2@newsprd01...
| I have no idea why it does what it does, as I don't have 2005 to
experiment
| with. However, couldn't you just change the code to this to take care of
and
| case-sensitivity?
|
| If (Ucase(objRec.Name) = "ACAD_LAYERFILTERS") Or _
| (Ucase(objRec.Name) = "ACLYDICTIONARY") Then objDict.Remove
|
| --
| Jeff
| check out www.cadvault.com
| "Matt W" wrote in message
| news:4149965e$1_1@newsprd01...
| > Okay... now I'm totally confused.
| > I took a look at the Acad Database using DBVIEW and prior to running the
| > layer filter delete program, ACLYDICTIONARY did NOT exist. But if I
| > manually deleted the layer filters, then opened DBVIEW again to take a
| > look,
| > ACLYDICTIONARY shows up. (Maybe it's NOT case-sensitive)
| >
| > So now my question is, what need's to be initiated before the program
can
| > be
| > run?? We've found this to be an invaluable tool since we're constantly
| > dealing with drawings from people who, let's face it, don't know how to
| > clean up after themselves. In one drawing alone, I've deleted 13,500
| > layer
| > filters (that's not a typo). You can just imagine how long it took to
| > display the layer properties manager!!
| >
| > --
| > I love deadlines
| > I like the whooshing sound they make as they fly by.
| >
| > "Matt W" wrote in message
| > news:4149946f$1_2@newsprd01...
| > | Just an FYI:
| > |
| > | Using the following code to remove Layer Properties Filters, I've
| > noticed
| > | something kinda quirky.
| > | On some of my drawings (mainly Land Desktop and Building Systems, both
| > | 2005), it didn't work.
| > | HOWEVER, if I changed AcLyDictionary to ACLYDICTIONARY (all caps) then
| > it
| > | works (same thing for the LSP equivalent that R Bell has posted
before).
| > |
| > | I didn't realize it was case sensitive??!?
| > |
| > | Sub LayerFilterDelete()
| > | Dim objDict As AcadDictionary
| > | Dim objRec As AcadObject
| > | If ThisDrawing.Layers.HasExtensionDictionary Then
| > | Set objDict = ThisDrawing.Layers.GetExtensionDictionary
| > | For Each objRec In objDict
| > | If (objRec.Name = "ACAD_LAYERFILTERS") Or _
| > | (objRec.Name = "AcLyDictionary") Then objDict.Remove
| > | objRec.Name
| > | Next
| > | End If
| > | End Sub
| > |
| > | --
| > | I love deadlines
| > | I like the whooshing sound they make as they fly by.
| > |
| > |
| > |
| >
| >
|
|
