Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
WCrihfield
in reply to: Anonymous

Would this work for you then?

Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oCustPropSet As PropertySet = oDoc.PropertySets.Item("Inventor User Defined Properties")
Dim oFace As Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select a Part Face.")
Dim oMeasure As MeasureTools
Dim oTLL As Double = oMeasure.GetLoopLength(oFace.Edges)  'oTLL is short for Total Loop Length
Dim oTLL_Prop As [Property] = oCustPropSet.Add(oTLL,"Total Loop Length")

If this solves your problem, please "Accept As Solution".

Or if it helps you along the way to achieving your goal, please click "Like".

Wesley Crihfield

EESignature

(Not an Autodesk Employee)