Reply

Block Occurrences

[ Edited ]

 

Hi

I need unblock all of the blocks in DFT.

I use

.....

For Each objSheet In objDraft.Sections.WorkingSection.Sheets

    With objSheet

        For i = .BlockOccurrences.Count To 1 Step -1

            .BlockOccurrences(i).Unblock

        Next

   end with

....

Same for Background Sheets but I don't know,  how I can unblock used block occurrences in user defined 2D Views?

Can anyone help me?

 

Posted by: Dalibor Sidlo
Post date: 7/28/2009 2:49:35 AM

1 REPLY

RE: Block Occurrences

[ Edited ]

You almost got it...

For Each objSheet In objDraft.Sheets 'This will search all sheets (working and background)

With objSheet

For i = .BlockOccurrences.Count To 1 Step -1

.BlockOccurrences(i).Unblock()

Next

'In every sheet look for drawing views and unblock blocks

For Each objDrawingView In .DrawingViews

For i = objDrawingView.Sheet.BlockOccurrences.Count To 1 Step -1

objDrawingView.Sheet.BlockOccurrences.item(i).Unblock()

Next

Next

End With

Next

 

Posted by: Julian Guillo
Post date: 7/28/2009 3:10:28 AM