I am trying to get the input curves from an extrude feature. I've managed to grab the feature, and create an extrude builder from it. I can access the section but I am not sure how to go from there to curves. Does anyone have any ideas? Recording a journal gets me some of this code:
Dim extrude1 As Features.Extrude = CType(wrkPrt.Features.FindObject("EXTRUDE(6)"), Features.Extrude)
wrkPrt.Features.SetEditWithRollbackFeature(extrude1)
nxSes.UpdateManager.InterpartDelay = True
Dim mirrorCurve1 As Features.MirrorCurve = CType(wrkPrt.Features.FindObject("MIRROR_CURVE(5)"), Features.MirrorCurve)
mirrorCurve1.MakeCurrentFeature()
If Not wrkPrt.Preferences.Modeling.GetHistoryMode Then
Throw (New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))
End If
Dim extrudeBuilder1 As Features.ExtrudeBuilder
extrudeBuilder1 = wrkPrt.Features.CreateExtrudeBuilder(extrude1)
Dim section1 As Section
section1 = extrudeBuilder1.Section
section1.PrepareMappingData()
re: curves in section object
Below is a snippet of code from a journal that calculates the length of a tube feature by adding up the length of the input curves. The tube is made of one or more "section" objects that contain the curves. I think that the same will apply to an extrude feature.
If myTubeFeature IsNot Nothing Then
tubeParents = myTubeFeature.GetSections
For i As Integer = 0 To tubeParents.Length - 1
For Each objSec As Section In tubeParents
objSec.GetOutputCurves(tubeCurves)
For Each objCurve As Curve In tubeCurves
totalLength += objCurve.GetLength()
Next
Next
Next
'do something with the calculated total length
MsgBox("Total Length: " & totalLength)
End If