Turn off Sketch Symbol Leader

[C_Haines_ENG]

Im looking for a way to toggle all sketch symbols leaders off. I have the code below to attempt this but the .Leader property is read only.

Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheet As Sheet = oDrawDoc.ActiveSheet
Dim oSketchedSymbols As SketchedSymbols = oSheet.SketchedSymbols

For Each oItem As SketchedSymbol In oSketchedSymbols
		
oItem.LeaderVisible = False
oItem.Leader 'THIS IS READ ONLY???
	
Next   

 Does anyone else know how to solve this?

[mfoster9TD82]

You may need to get the placement and sketch symbol definition from the existing sketch symbol, delete it and place another one using SketchedSymbols.Add(). It doesn't really looks like you can remove leaders from sketch symbols, but you can add them...


Edit:

I was mistaken. After fooling around with it more, you can delete the all the Nodes in the leader of each sketch symbol:

Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheet As Sheet = oDrawDoc.ActiveSheet
Dim oSketchedSymbols As SketchedSymbols = oSheet.SketchedSymbols

For Each oItem As SketchedSymbol In oSketchedSymbols
		
	If Not oItem.Leader Is Nothing AndAlso Not oItem.Leader.AllNodes Is Nothing Then
		While Not oItem.Leader.AllNodes Is Nothing AndAlso oItem.Leader.AllNodes.Count > 0 
			oItem.Leader.AllNodes(1).Delete
		End While
	End If
Next

edit2: code fix

[C_Haines_ENG]

Inventor doesnt seem to like this line:

oItem.Leader.AllNodes(1).Delete

Class not registered, incorrect parameter, etc. 

[mfoster9TD82]

What version of inventor are you using?
And are you getting that in a compiler error or a runtime error?

[bradeneuropeArthur · Accepted solution]

Dim d As DrawingDocument = ThisDrawing.Document
Dim s As Sheet = d.ActiveSheet
Dim sss As SketchedSymbols = s.SketchedSymbols

	For Each ss As SketchedSymbol In sss
	Try	
		ss.Leader.AllLeafNodes.Item(1).Delete
Catch
		
	End Try
Next

[A.Acheson]

Hi @C_Haines_ENG 

Is your goal to switch off the leader visibility? 

You might want to put in an error trap for any that are off also. If you go about deleting then you have nothing to bind the symbol to the view.

Syntax

SketchedSymbol.LeaderVisible() As Boolean

Property Value

This is a read/write property whose value is a Boolean.

[C_Haines_ENG]

Looks like the try line saved it from bugging out, thank you.