Turn on all tangent edges in all views

[aurel_e]

I'm looking for an I-logic rule to turn on all the tangent edges in all the views in multi-sheets drawings.

Inventor 2020.

Thank you.

[JhoelForshav]

Hi @aurel_e 

Try this:

Dim oDoc As DrawingDocument = ThisDrawing.Document
For Each oSheet As Sheet In oDoc.Sheets
	For Each oView As DrawingView In oSheet.DrawingViews
		oView.DisplayTangentEdges = True
	Next
Next

[aurel_e]

Hi @JhoelForshav 

It isn't working. This is the message;

For what I can see, it's working just for the first sheet.

[JhoelForshav · Accepted solution]

Hi @aurel_e 

For some views it's not possible to turn on tangent edges

This will do it for all views that allow it:

Dim oDoc As DrawingDocument = ThisDrawing.Document
For Each oSheet As Sheet In oDoc.Sheets
	For Each oView As DrawingView In oSheet.DrawingViews
		On Error Resume Next
		oView.DisplayTangentEdges = True
	Next
Next
oDoc.Update

[dgreatice]

Hi all,

you need filtering about viewstyle:

Dim oDoc as DrawingDocument = ThisDrawing.Document
For Each oSheet In oDoc.Sheets
    For Each oView In oSheet.DrawingViews
        If Not oView.ViewStyle = kFromBaseDrawingViewStyle Then
            oView.DisplayTangentEdges = False
        End If
    Next
Next

[aurel_e]

@JhoelForshav 

It's perfect now.

Thank you.

[octavio.olivaEUAB9]

Disculpa esta configuración donde la inserto para obtener de forma automática cada dibujo que cree, las aristas Tangentes?