Deleting centerlines on a drawing

[DWhiteley]

I've got this bit of code that is supposed to delete all centerlines on my drawing sheet.

j = oSheet.Centerlines.Count

For i = 1 To j

Try

oSheet.Centerlines.Item(i).Delete()

Catch ex As Exception

End Try

Next

Howver, I find that (inellegantly) I have to run it a few times in my code to actually remove all centerlines.

For some reason I get exceptions on some. It's not as though they have child/parent relationships - they are just workplanes displayed on the drawing.

The workplanes were created using this code:

j = oPartCompDef.WorkPlanes.Count

For i = 4 To j

oWP = oPartCompDef.WorkPlanes.Item(i)

Dim oWPpx As WorkPlaneProxy

Call oOcc.CreateGeometryProxy(oWP, oWPpx)

Call oDrawingDoc.Sheets(1).DrawingViews(1).SetVisibility(oWPpx, True)

　

Next

Does anyone have any ideas on why this is happening?

Thanks in adavance

Dave

envisage uk

[MechMachineMan]

See if this works any better for you

Sub Main()
Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oCL As Centerline


For Each oSheet in oDoc.Sheets
	oSheet.Activate

	For Each oCL in oSheet.Centerlines
		'If oCL.Attached = False
			oCL.Delete
		'End if 'Centerline attached
	Next 'Centerline

End Sub

[DWhiteley]

many thanks, i'll give it a try