How to get tangent lines of selected body in drawing?

[ngdnam88]

Dears,

I'm trying setting visibility for tangent lines of selected body in Drawing. Is there any way to get them?

Thanks,

[bradeneuropeArthur]

Maybe this is something you are really searching for?

https://forums.autodesk.com/t5/inventor-ideas/2d-drawing-profiles-bevelled-flanges/idi-p/12459712

Or this will do the trick for you:

Dim d As DrawingDocument = ThisDrawing.Document
Dim s As Sheet = d.ActiveSheet
Dim dv As DrawingView = s.DrawingViews.Item(1)
dv.DisplayTangentEdges = True
'dv.DisplayForeshortenedTangentEdges = True

[ngdnam88]

Hi, Sorry my question is not clear. I mean I wanna hide another tangent lines, keep selected tangent lines (as the ref. post) but apply for selected body not for a view drawing. Thanks! Ref.
https://forums.autodesk.com/t5/inventor-programming-ilogic/tangent-edge-visibility-in-drawing-views/... 

[bradeneuropeArthur]

For my understanding:

For example you have a assembly with three (3) profiles.

You want to show "the tangent edges" only for one of them, and the other two (2) not

[ngdnam88]

Hi @bradeneuropeArthur 
Exactly I have a multi-solidbody part, and I wanna keep tangent lines visible (2 green arrows) - another tangent lines of each body shall hidden.

- The ref. post is applying for selected view and keep tangent lines that selected. I wanna apply as the ref. to selected body only not for all in a selected view. Is it possible?

Thanks,

[WCrihfield]

Hi guys.  Just as a plan of what needs to be done here...  Since these look like drawing views we are looking at, not actual part or assembly modeling screen lines, you would first need to make sure that setting that @bradeneuropeArthur pointed out above is set to True, to make sure all tangent lines are included, then we will selectively turn visibility off for the unwanted lines later.  Next, you will need to dig down into the model's ComponentDefinition, to that SurfaceBody object, and get a reference to those specific Edge objects that you want to turn visibility off for.  Then, once you have a variable representing each of them, use the DrawingView.DrawingCurves property of the DrawingView, with one of the Edge objects as 'input' into that property, to get the DrawingCurvesEnumerator object collection containing the DrawingCurve object within the DrawingView for the Edge object.  Then you can step down into the DrawingCurve.Segments property, which represents a DrawingCurveSegments collection, then step through its segments, which are DrawingCurveSegment objects, which have a DrawingCurveSegment.Visible property we can set to False.

[ngdnam88]

Deleted!

[ngdnam88]

Hi @WCrihfield 
Could you please help me what's wrong in my working code? Thanks!

Sub Main()    
	Dim _InventorApp As Application = ThisApplication
	Dim oDOC As DrawingDocument = _InventorApp.ActiveEditDocument
	Dim hSet As HighlightSet = oDOC.CreateHighlightSet()
	hSet.Color = _InventorApp.TransientObjects.CreateColor(255, 0, 0)
	Dim oTangentColl As ObjectCollection = _InventorApp.TransientObjects.CreateObjectCollection : oTangentColl.Clear()
	Dim oSolidCurveColl As ObjectCollection = _InventorApp.TransientObjects.CreateObjectCollection : oSolidCurveColl.Clear()

	Dim oView As DrawingView = _InventorApp.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select a View to Edit.")
	If oView Is Nothing Then Exit Sub

	Dim nPick As DrawingCurveSegment = _InventorApp.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Pick the BODY Line.")
	If (nPick Is Nothing) Then
		MsgBox("[NOTHING] Selected!", vbOKOnly + vbCritical, "Opps...!")
		Exit Sub
	Else
		'Highlight [BODY] Working
		If nPick.GeometryType <> Curve2dTypeEnum.kLineSegmentCurve2d Then MsgBox("THIS IS NOT A LINE SEGMENT") : Exit Sub
		Dim nPartEdge As Edge = nPick.Parent.ModelGeometry
		Dim oSB As SurfaceBody = nPartEdge.Parent
		For Each oCurve As DrawingCurve In oView.DrawingCurves(oSB)
			If oCurve.EdgeType <> DrawingEdgeTypeEnum.kTangentEdge Then
				For Each SEG As DrawingCurveSegment In oCurve.Segments
					oSolidCurveColl.Add(SEG)
				Next
			Else : Continue For : End If
		Next
		hSet.AddMultipleItems(oSolidCurveColl)

		'Select Tangent to Collection
		While True
			Dim tPick As DrawingCurveSegment = _InventorApp.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Pick the Tangent... | ESC to Done")
			If IsNothing(tPick) Then Exit While
			If tPick.Parent.EdgeType = DrawingEdgeTypeEnum.kTangentEdge = False Then oTangentColl.Add(tPick)
		End While

		'Setting for...
		For Each tCurve As DrawingCurve In oView.DrawingCurves(oSB)
			If tCurve.EdgeType = DrawingEdgeTypeEnum.kTangentEdge Then
				For Each tSEG As DrawingCurveSegment In tCurve.Segments
					tSEG.Visible() = False
					

					'NEED CODE FOR CHECKING WITH oTangentColl

				Next
			Else : Continue For : End If
		Next

	End If
End Sub

[A.Acheson]

Hi @ngdnam88 ,

I haven't tested the full code but did a review and got as far as this line. Is this line actually returning an object of type edge?  Also is your part in an assembly? In that case it will need to be a proxy edge. 

Dim nPartEdge As Edge = nPick.Parent.ModelGeometry

How far are you getting in the code? What lines are failing for you?

[ngdnam88]

Hi @A.Acheson 
I'm using it to return the SolidBody. I using it from my previous post, solution from @Michael.Navara

https://forums.autodesk.com/t5/inventor-programming-ilogic/highlight-the-solidbody-that-include-a-cr... 

I think my codes falling in lines from 37 to 48

For Each tCurve As DrawingCurve In oView.DrawingCurves(oSB)
	If tCurve.EdgeType = DrawingEdgeTypeEnum.kTangentEdge Then
		For Each tSEG As DrawingCurveSegment In tCurve.Segments
			tSEG.Visible() = False

			'NEED CODE FOR CHECKING WITH oTangentColl

		Next
	Else : Continue For : End If
Next

[A.Acheson]

Maybe try a different approach which i do often is to work backwards from picking the curve individually by code and try and inspect the line types and see can you get the visibility to be switched off and on by code. It might be the case that the collection of edges in the part is not matching the collection of  curves. 

[ngdnam88]

Hi @A.Acheson 
I'm trying working with part (.ipt) model, it did not work - but it can work with an assembly (.iam).
What's wrong here?
.ipt (Multi SolidBody)

.iam: Tangent Lines can visible with above code

[A.Acheson]

When you say its a multibody part do you mean it is a part derived using make components or just a regular part with multiple bodies? Are you gaining access to the correct solidbody (check by name)? It is strange that it works in the assembly and not the part.

[ngdnam88]

Hi @A.Acheson 

It's a regular part (.ipt) with multiple bodies,

And I checked, this code access to correct solid body for working

Dim nPartEdge As Edge = nPick.Parent.ModelGeometry
Dim oSB As SurfaceBody = nPartEdge.Parent
Msgbox(oSB.Name)