multiple drawing sheets delete by select set

[marcin_otręba]

hi,

i'm trying to develope addin to delete bunch of sheets which are selected thru oselect set ( right now i have solution for deleting sheets one by one but it works to long)

it looks something like:

activesheet= drw1.sheets.item(i)

For j = 1 To drw1.Sheets.Count
If j <> i Then
oselset.Select drw1.Sheets.Item(j)
End If
Next
oselset.Delete

but it does not work... any ideas why?

[MechMachineMan]

Because you dont have to use oSelect to delete the sheet; the method is available directly on the object.

activesheet= drw1.sheets.item(i)

For j = 1 To drw1.Sheets.Count

If j <> i Then
     drw1.Sheets.Item(j).Delete
End If

Next

[marcin_otręba]

i said that i have that solution already but it works too long i need something faster...

[MechMachineMan]

Do you want to manually select the sheets to be deleted via browser nodes, or do you have some criteria the program could use?

[marcin_otręba]

Yes i hale IT all solved i need ony deleting all in one operation...

[MechMachineMan]

Dim oSS As SelectSet oSS = ThisApplication.ActiveDocument.SelectSet Try For each oItem As Sheet in oSS oItem.Delete Next Catch Msgbox("Wrong item type found: " & oItem.Type) End try

[marcin_otręba]

I told you already That i have it workin this way what i need is solution when i add to selectset couple of sheets and then i delete them thru oselectset.delete function i can select it clicking on them and then right clicking i can delete it so i belive there is way to do it thru macro, in help i read That. Delete function called From oselectset works for all entites That can be deleted....maybe when in codę i wrote call before deleting it help, right now i dont have Access to my laptop so i will try tomorow, Thanks.

Ps sorry for my english...

[MechMachineMan]

Why do you need to delete the sheets/ what is your criteria for deleting the sheets?

[marcin_otręba]

I write it to my frientd.., in his company they create drawings for each assembly in one drawing doc placing each part on one sheet i wrote him macro which saves each sheet as drawing but i need to delete rest of sheet From it....

[MechMachineMan]

Ahhh. Do you have this macro working on documents that are opened invisibly?

[marcin_otręba]

Yup.