01-14-2020
05:42 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-14-2020
05:42 AM
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
(Not an Autodesk Employee)