So, vielen Dank für Eure Ansätze.
Dadurch konnte ich mein Problem folgendermaßen lösen...
CODE:
________________________________________________________________
Sub Schnurlaenge()
Dim iDoc As PartDocument
Set iDoc = ThisApplication.ActiveDocument
Dim iPropInfUser As PropertySet
Set iPropInfUser = iDoc.PropertySets.Item("Inventor User Defined Properties")
Dim iG_LProperty As property
Set iG_LProperty = iPropInfUser.Add("G_L")
Dim iDef As PartComponentDefinition
Set iDef = iDoc.ComponentDefinition
Dim ipath As Path
Set ipath = iDef.Features.SweepFeatures.Item(1).Path
Dim TotalLength As Double
TotalLength = 0
Dim Gesamtlänge As String
Dim iCurve As Object
Dim i As Integer
For i = 1 To ipath.Count
Set iCurve = ipath.Item(i).Curve
Dim iCurveEval As CurveEvaluator
Set iCurveEval = iCurve.Evaluator
Dim MinParam As Double
Dim MaxParam As Double
Dim length As Double
Call iCurveEval.GetParamExtents(MinParam, MaxParam)
Call iCurveEval.GetLengthAtParam(MinParam, MaxParam, length)
TotalLength = TotalLength + length
Next i
Überlappung = 100
Gesamtlänge = Round(TotalLength * 10 + Überlappung, 0)
iG_LProperty.Value = Gesamtlänge
End Sub
_________________________________________________________________
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP