Get the Area from the Face Created by "Face from Curves"

Public Module GetFace

Dim theSession As Session = Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim theUI As UI = UI.GetUI()
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = theSession.ListingWindow
Dim dispObj1 As Face = SelectFace()
Dim minPt As Point3d = PointOnSelectedFace()

Public Sub Main()

Dim partBodies As BodyCollection
Dim partBodiesArray() As Body
Dim theBody As Body
Dim myMeasure As MeasureManager = theSession.Parts.Display.MeasureManager()
Dim displayPart As NXOpen.Part = theSession.Parts.Display

If workPart Is Nothing Then
Guide.InfoWriteLine("No work part for processing")

Else partBodies = workPart.Bodies
If dispObj1 Is Nothing Then

Else
' Achtung: partBodiesArray() speichert verschiedene Koerpers
partBodiesArray = partBodies.ToArray()
lw.Open()
lw.WriteLine("Number of BODIES in part= " + partBodiesArray.Length.ToString)

theBody = dispObj1.GetBody()
For Each theBody In partBodiesArray
Dim attributes() As NXObject.AttributeInformation = theBody.GetUserAttributes()
' Read Material type
For Each attribute As NXObject.AttributeInformation In attributes
lw.WriteLine(attribute.Title & " = " & attribute.StringValue)
Next attribute

Next theBody

If theBody.IsSheetBody = True Then
Dim AccuracyValue(11) As Double
Dim MassProperties(46) As Double
Dim Stats(12) As Double 'Errors are Estimates of the Relative Tolerances

Dim tagList(0) As NXOpen.Tag
tagList(0) = theBody.Tag
AccuracyValue(0) = 0.99
'AskMassProps3d(objects, numObjs, type, units (3 ist Gramm und Centimeter), density, accuracy, accValue)
theUfSession.Modl.AskMassProps3d(tagList, 1, 2, 3, 0.0375, 1, AccuracyValue, MassProperties, Stats)
lw.WriteLine("Volumen: " & MassProperties(1) * 1000.ToString & " mm^3") 'Why is it 0 here?
lw.WriteLine("Surface Area: " & MassProperties(0) * 100.ToString & " mm^2")
lw.WriteLine("Masse: " & MassProperties(3).ToString & " g")

Else

Dim massUnits(4) As Unit
massUnits(0) = theSession.Parts.Display.UnitCollection.GetBase("Area")
massUnits(1) = theSession.Parts.Display.UnitCollection.GetBase("Volume")
massUnits(2) = theSession.Parts.Display.UnitCollection.GetBase("Mass")
massUnits(3) = theSession.Parts.Display.UnitCollection.GetBase("Length")
Dim mb As MeasureBodies = Nothing
'.NewMassProperties(array of units, accuracy parameter, array of bodies to measure)
mb = myMeasure.NewMassProperties(massUnits, 0.999, partBodiesArray)
mb.InformationUnit = MeasureBodies.AnalysisUnit.GramMillimeter
lw.WriteLine("volume: " & mb.Volume.ToString & " mm^3")
lw.WriteLine("surface area: " & mb.Area.ToString & " mm^2")
lw.WriteLine("mass: " & mb.Mass.ToString & " g")

End If

'Read the area and the total edge length of the selected face
Dim areaUnit As Unit = CType(workPart.UnitCollection.FindObject("SquareMilliMeter"), Unit)
Dim lengthUnit As Unit = CType(workPart.UnitCollection.FindObject("MilliMeter"), Unit)
Dim measureFaces1 As MeasureFaces
Dim mFaces = New Face() {dispObj1} 'das Array speichert die einzige ausgewählte Fläche
measureFaces1 = workPart.MeasureManager.NewFaceProperties(areaUnit, lengthUnit, 0.999, mFaces)
Dim x1, x2 As Double
x1 = measureFaces1.Area
x2 = measureFaces1.Perimeter
lw.WriteLine("Flächengröße: " & x1)
lw.WriteLine("Kantenlänge des Blechs + Kurven im Blech: " & x2)

'Get the inner edges and their total length on a face
' Create an instance of FaceLoop
Dim faceLoopInstance As New FaceLoop()
' Call the ReturnInnerEdgeLength method on the instance
'faceLoopInstance.ReturnInnerEdgeLength()
faceLoopInstance.SetDefaultUnit()
Dim allLengthInnerEdge As Double = faceLoopInstance.ReturnInnerEdgeLength()
lw.WriteLine("innere Kantenlänge: " & allLengthInnerEdge.ToString)
lw.WriteLine("äußere Kantenlänge: " & (x2 - allLengthInnerEdge).ToString)

'Calculate the „full“ area of a face by Extrusion
Dim edges() As Edge = dispObj1.GetEdges()
Dim faceRule As NXOpen.EdgeChainRule = workPart.ScRuleFactory.CreateRuleEdgeChain(edges(0), edges(UBound(edges)), False)

' Create a section
Dim mySection As NXOpen.Section = workPart.Sections.CreateSection(0.0095, 0.01, 0.5)
Dim help As New NXOpen.Point3d(0, 0, 0)
Dim nullObj As NXOpen.NXObject = Nothing
mySection.AddToSection({faceRule}, dispObj1, nullObj, nullObj, help, NXOpen.Section.Mode.Create, False)
'Greife den Normalvektor der ausgewählten Fläche zu
Dim cp(2) As Double
Dim pt(2) As Double
Dim u1(2) As Double
Dim v1(2) As Double
Dim u2(2) As Double
Dim v2(2) As Double
Dim norm(2) As Double
Dim radii(1) As Double
Dim param(1) As Double
'theUfSession.Modl.AskFaceParm(face1.Tag, cp, param, pt) return the closest U,V parameter on the face, get the (u,v) values at a point
theUfSession.Modl.AskFaceProps(dispObj1.Tag, param, pt, u1, v1, u2, v2, norm, radii)

lw.WriteLine("Normalvektor X:" & formatnumber(norm(0), 2).ToString & " Y:" &
formatnumber(norm(1), 2).ToString & " Z:" &
formatnumber(norm(2), 2).ToString)

'Messe die Dicke durch Trace_A_Ray

Dim locationOnFace(2) As Double
locationOnFace(0) = minPt.X
locationOnFace(1) = minPt.Y
locationOnFace(2) = minPt.Z

Dim evaluator As IntPtr = Nothing
theUfSession.Evalsf.Initialize(dispObj1.Tag, evaluator)
Dim surfacePosition As UFEvalsf.Pos3 = Nothing
theUfSession.Evalsf.AskMinimumFaceDist(evaluator, locationOnFace, surfacePosition)

'display_temporary_asterisk(surfacePosition.pnt3, 186)
'DisplayTempLine(locationOnFace, surfacePosition.pnt3, 186)

'lw.WriteLine("selected point: (" & point1.Coordinates.X.ToString & ", " & point1.Coordinates.Y.ToString & ", " & point1.Coordinates.Z.ToString & ")")
lw.WriteLine("point with minU & minV on surface: (" & minPt.X.ToString & ", " & minPt.Y.ToString & ", " & minPt.Z.ToString & ")")
lw.WriteLine("distance: " & surfacePosition.distance.ToString)

'Get the parallel face by TraceARay
Dim bodyTag(partBodiesArray.Length - 1) As Tag
For k As Integer = 0 To partBodiesArray.Length - 1
bodyTag(k) = partBodiesArray(k).Tag
Next k

Dim rayDirection As Double() = {norm(0) * -1, norm(1) * -1, norm(2) * -1}
Dim identity(15) As Double
theUfSession.Mtx4.Identity(identity)
Dim num_results As Integer
Dim hits() As UFModl.RayHitPointInfo
theUfSession.Modl.TraceARay(1, bodyTag, locationOnFace, rayDirection, identity, 2, num_results, hits)

Dim hitPoint() As Double
For i As Integer = 0 To hits.Length - 1 'nur 0 zu 1
Dim hitFace As Tag = hits(i).hit_face
Dim hitNorm() As Double = hits(i).hit_normal
hitPoint = hits(i).hit_point
Next
lw.WriteLine("hit point: (" & hitPoint(0).ToString & ", " & hitPoint(1).ToString & ", " & hitPoint(2).ToString & ")")

'Measure the distance betwenn the minU/V Point (i.e. locationOnFace) and hitPoint
Dim temp1(2) As Double 'Output: Minimum distance Point on object1
Dim temp2(2) As Double 'Output: Minimum distance Point on object2
Dim minDist As Double 'Output: Resultant minimum distance.
theUfSession.Modl.AskMinimumDist(Nothing, Nothing, 1, locationOnFace, 1, hitPoint, minDist, temp1, temp2)
lw.WriteLine("Materialdicke: " & minDist.ToString)

'Read the normal vectors of all Faces, and access the opposite face
Dim norm2(2) As Double
Dim oppositeFaces As New List(Of Face)({})

For Each bodyFace As Face In theBody.GetFaces()
theUfSession.Modl.AskFaceProps(bodyFace.Tag, param, pt, u1, v1, u2, v2, norm2, radii)

lw.WriteLine("Normalvektor X:" & formatnumber(norm2(0), 2).ToString & " Y:" &
formatnumber(norm2(1), 2).ToString & " Z:" &
formatnumber(norm2(2), 2).ToString)
If norm2(0) = norm(0) * -1 AndAlso norm2(1) = norm(1) * -1 AndAlso norm2(2) = norm(2) * -1 Then
oppositeFaces.Add(bodyFace)
End If
Exit For
Next

If oppositeFaces.Count > 0 Then
Dim oppositeFace As Face = oppositeFaces(0)
Dim oppositeFaceTag As Tag = oppositeFace.Tag
theUfSession.Modl.AskMinimumDist(Nothing, oppositeFaceTag, 1, locationOnFace, 1, Nothing, minDist, temp1, temp2)
lw.WriteLine("Materialdicke2: " & minDist.ToString)
Else
lw.WriteLine("No opposite face found.")
End If

' Create an ExtrudeBuilder
Dim builder = workPart.Features.CreateExtrudeBuilder(Nothing)
' Define the section for the Extrude
builder.Section = mySection
' Define the direction for the Extrude
Dim origin As New NXOpen.Point3d(0, 0, 0)
Dim normalVector As New NXOpen.Vector3d(norm(0), norm(1), norm(2))
Dim updateOption = SmartObject.UpdateOption.DontUpdate
builder.Direction = workPart.Directions.CreateDirection(origin, normalVector, updateOption)
' Define the extents of the Extrude
builder.Limits.StartExtend.Value.RightHandSide = "0"
builder.Limits.EndExtend.Value.RightHandSide = "20" 'Durch Materialdicke ersetzt
Dim extrudeFeature As NXOpen.Features.Extrude = builder.CommitFeature
builder.Destroy

''Access the Extrusion
'Dim extrudedBodyFace As New List(Of Face)({})
'For Each theBody In partBodiesArray
' If theBody.GetType().Name.Contains("Extrude") = True Then
' extrudedBodyFace
' Dim measureFaces2 As MeasureFaces
' Dim mFaces = New Face() {dispObj1} '
' measureFaces2 = workPart.MeasureManager.NewFaceProperties(areaUnit, lengthUnit, 0.999, mFaces)
' Dim x1, x2 As Double
' End If
'Next

'schaue die X-Y Fläche
Dim myView As ModelingView = theSession.Parts.Work.ModelingViews.WorkView
Dim rotAxis As Vector3d = myView.GetAxis(XYZAxis.ZAxis)
Dim rotationAngleDegrees As Double = 0
myView.Concatenate(myView.AbsoluteOrigin, rotAxis, (System.Math.PI / 180) * rotationAngleDegrees)

lw.Close()
End If

End If

End Sub

'Differentiate inner and outer edges by loop
Public Class FaceLoop
Public Sub SetDefaultUnit()
' Constructor - called when an instance of FaceLoop is created
theSession.Parts.Display.UnitCollection.SetDefaultDataEntryUnits(UnitCollection.UnitDefaults.KgMmNDegC)
theSession.Parts.Display.UnitCollection.SetDefaultObjectInformationUnits(UnitCollection.UnitDefaults.KgMmNDegC)
End Sub

Public Function ReturnInnerEdgeLength() As Double
Dim dispObj1 As NX.Face = SelectFace() 'It's SNAP Face, not NXOpen!

' Get information about the loops of this face
'For Each edgeOuterLoop As Snap.Topology.Loop In dispObj1.OuterLoop
' Dim lengthOuterEdges As Integer = edgeOuterLoop.Edges.ArcLength
' InfoWindow.WriteLine("äußere Kantenlänge : " & lengthOuterEdges.ToString)
'Next
Dim edges() As NX.Edge = dispObj1.Edges 'It's SNAP Edge, not NXOpen!
Dim allLengthInnerEdge As Double
For Each edgeLoop As Snap.Topology.Loop In dispObj1.Loops
Dim loopType As Snap.Topology.LoopType = edgeLoop.Type
InfoWindow.WriteLine("Type: " & loopType.ToString)

'Dim numVerts As Integer = edgeLoop.Vertices.Length
'InfoWindow.WriteLine(" Vertices: " & numVerts)

Dim numEdges As Integer = edgeLoop.Edges.Length
InfoWindow.WriteLine("Edges: " & numEdges)

If loopType = 5413 Then '5412 bedeutet Outer (peripheral loop) in LoopType Enumeration; 5413 ist Inner
For Each thisEdge As NX.Edge In edgeLoop.Edges
allLengthInnerEdge += thisEdge.ArcLength
Next thisEdge
End If

Next edgeLoop

Return allLengthInnerEdge
End Function
End Class

Public Function SelectFace() As Face
Dim dispObj1 As Face = Nothing
' Variablen fuer Auswahl-Dialoge (Selection Dialogs)

Dim selManager = theUI.SelectionManager
Dim selectedObject As TaggedObject
Dim cursor As Point3d
Dim cue As String = "Bitte wähle die Fläche, auf der gelasert wird, aus."
Dim title As String = "Kosten- und CO2-Rechner"
Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim action = Selection.SelectionAction.ClearAndEnableSpecific
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim faceMask = New Selection.MaskTriple(NXOpen.UF.UFConstants.UF_face_type, 0, 0)
Dim maskArray As Selection.MaskTriple() = {faceMask}
'Dim typeArray As NXOpen.Selection.SelectionType() = {SelectionType.Faces}
Dim response As Selection.Response = selManager.SelectTaggedObject(cue, title, scope, action, includeFeatures, keepHighlighted, maskArray, selectedObject, cursor)

If response <> NXOpen.Selection.response.Cancel And response <> NXOpen.Selection.response.Back Then
If TypeOf selectedObject Is Face Then
dispObj1 = CType(selectedObject, Face)
End If
End If

Return dispObj1

End Function

Function PointOnSelectedFace() As Point3d
'Get the point with minU and minV of a face
Dim selectedFace As Face = dispObj1
Dim uvMin(3) As Double
theUfSession.Modl.AskFaceUvMinmax(selectedFace.Tag, uvMin)
Dim ptMin(2) As Double
Dim ptMax(2) As Double

'get mid point of given face
Dim param() As Double = {uvMin(0), uvMin(2)} '[0] - umin[1] - umax [2] - vmin [3] - vmax
Dim pt(2) As Double
Dim u1(2) As Double
Dim v1(2) As Double
Dim u2(2) As Double
Dim v2(2) As Double
Dim unitNormal(2) As Double
Dim radii(1) As Double
theUfSession.Modl.AskFaceProps(selectedFace.Tag, param, pt, u1, v1, u2, v2, unitNormal, radii)

Dim minPt As New Point3d(pt(0), pt(1), pt(2))
Return minPt

End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer
'lösche die vorherige Daten sofort nach jedem Lauf
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
End Function

End Module