Length of segments in the 3D sketch

[Rogov_Sergey]

Hi, tell me. There is a 3D sketch in which several segments have several questions.

1. How to use ilogic for the total and each segment?

2. How do I create a plane at the end of the last segment?

[Rogov_Sergey]

1. How to get the length of each segment?

sorry for my bad English

[JhoelForshav]

Hi @Rogov_Sergey 

Something like this maybe? 🙂

Dim oDoc As PartDocument = ThisDoc.Document
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oSketch As Sketch3D = oDef.Sketches3D.Item(1)
Dim i As Integer = 1
For Each oEnt As SketchEntity3D In oSketch.SketchEntities3D
	If oEnt.Type <> ObjectTypeEnum.kSketchPoint3DObject
		Dim length As Double
		oCurve = oEnt.Geometry
		Dim oCurveEval As CurveEvaluator
		oCurveEval = oCurve.Evaluator
		Dim MinParam As Double
		Dim MaxParam As Double
		Call oCurveEval.GetParamExtents(MinParam, MaxParam)
		Call oCurveEval.GetLengthAtParam(MinParam, MaxParam, length)
		MsgBox("Segment:" & i & vbCrLf & "Length: " & length * 10 & "mm")	
		i += 1
	End If
Next

EDIT: I forgot the i += 1 line....

[JhoelForshav · Accepted solution]

To also add a workplane:

Dim oDoc As PartDocument = ThisDoc.Document
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oSketch As Sketch3D = oDef.Sketches3D.Item(1)
Dim i As Integer = 1
Dim oLastSegment As SketchEntity3D
For Each oEnt As SketchEntity3D In oSketch.SketchEntities3D
	If oEnt.Type <> ObjectTypeEnum.kSketchPoint3DObject
		Dim length As Double
		oCurve = oEnt.Geometry
		Dim oCurveEval As CurveEvaluator
		oCurveEval = oCurve.Evaluator
		Dim MinParam As Double
		Dim MaxParam As Double
		Call oCurveEval.GetParamExtents(MinParam, MaxParam)
		Call oCurveEval.GetLengthAtParam(MinParam, MaxParam, length)
		MsgBox("Segment:" & i & vbCrLf & "Length: " & length * 10 & "mm")	
		i += 1
		oLastSegment = oEnt
	End If
Next
'Add workPlane
oDef.WorkPlanes.AddByNormalToCurve(oLastSegment, oLastSegment.EndSketchPoint)

[Rogov_Sergey]

Thank you very much.