Topic: Lost Style Purging capabilties in vba?

[Matersammichman]

What happened to the ability to purge the following in vba?

RoofSlabStyles
SlabStyles
CurtainWallStyles
CurtainWallUnitStyles
WindowAssemblyStyles

I could purge them fairly easily via vba in ADT2002, but can't in 2005.

What gives?

[David Hall]

what code are you using to purge?
ThisDrawing.PurgeAll

[Matersammichman]

That's just for regular CAD purging.
What I'm referring to is Styles (ADT).

[David Hall]

I dont have ADT, so I dont know off the top of my head. 

[David Hall]

chirp

[Bob Wahr]

I don't have ADT so I don't get to play along from home but you might look at something like

Code: [Select]

dim objRoofSlabs as RoofSlabStyles
dim objRoofSlab as RoofSlabStyle
on error goto ka_blooie

set objroofslabs = thisdrawing.roofslabstyles
For each objroofslab in objroofslabs
  objroofslab.delete 'hopefully if the style is used it will toss a binky or whatever Kerry says
next objroofslab

arvyderchy:
  Exit Sub
ka_blooie:
  err.clear
  resume next objroofslab
end sub
This is really rudimentary, really basic, and guaranteed NOT to work as is and is intended merely as a suggestion on one way that it might be possible to go about it.

[David Hall]

Spit the dummy is what your looking for. but toss the binky was funny as hell

[Bob Wahr]

yeah, I knew it was something like that, I just couldn't come up with it, thanks.

[MickD]

Spit the dummy is what your looking for. but toss the binky was funny as hell

[Kerry]

heheheeh

I use a 'SpitTheDummy' method ..

but 'ka_blooie:' sounds pretty descriptive ..   : - )

[David Hall]

this is so funny, Im now using

Code: [Select]

ed.WriteMessage("AutoCAD has Tossed the Binky  ");as my error checking line