---

Hallo zusammen

Brauche eure Hilfe.
Ich habe unten folgendes Programm:
Suchen aller Flächen in Teil und herausfiltern nach Topology.

Wie kann ich die gefilterten Flächen als Arrey nach der Schleife weiterverwenden?

---------------------------------------------

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module find_all_faces_in_work_part

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow
Dim workPart As Part = s.Parts.Work()

Sub Main()

lw.Open()

Dim tmpTag As NXOpen.Tag = NXOpen.Tag.Null
Dim type As Integer = 0
Dim subtype As Integer = 0
Dim thisFace As Face
dim face_Topology As String ' oder muss das ein integer sein???

Do

ufs.Obj.CycleObjsInPart(workPart.Tag(), UFConstants.UF_solid_type, tmpTag)
'lw.WriteLine("M1 tmpTag = " + tmpTag.ToString)

If tmpTag > NXOpen.Tag.Null Then

ufs.Obj.AskTypeAndSubtype(tmpTag, type, subtype)
'lw.WriteLine("M2 subtype = " + subtype.ToString)

If subtype = UFConstants.UF_solid_face_subtype Then

thisFace = NXObjectManager.Get(tmpTag)
' lw.WriteLine("M3 thisFace = " + thisFace.ToString)

ufs.Modl.AskFaceTopology(tmpTag, face_Topology)
'lw.WriteLine("M4 face_Topology = " + face_Topology.ToString)

' auswertung der gewünschten Flächen-Topology
if face_Topology = 2  or face_Topology = 3 then

lw.WriteLine("M4: " + thisFace.ToString + " = eine Topologie " + face_Topology.ToString + " und kommt somit in die Optimierung")

else

end if

End If

End If

Loop Until tmpTag = NXOpen.Tag.Null

' hier brauche ich alle Flächen-Tags aus der Schleife oben (Listing) in einem späteren programm-Teil als Array...

End Sub

End Module

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du nimmst einfach eine generische Liste aus dem Namespace System.Collection.Generic

z.B. var selected_faces = new List<Face>();

fügst dann in deiner Schleife alle Flächen mit

selected_faces.Add(thisFace);

hinzu, und dann durchläufst du die Liste mit einer for oder foreach-Schleife fertig.

P.S.: Sorry für das C#, funktioniert aber im VB genauso.
VB ist echt ne ganz ganz komische Sprache ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

using System;
using System.Collections.Generic;
using System.Text;

using NXOpen;
using NXOpen.UF;
using NXOpen.Annotations;
using NXOpen.Utilities;

namespace Journal
{
    class Journal
    {
        static Session theSession;
        static UFSession theUFSession;
        static UI theUI;
        static Part workPart;

        public static void Main(string[] args)
        {
            theSession = Session.GetSession();
            theUFSession = UFSession.GetUFSession();
            workPart = theSession.Parts.Work;

            Tag tmpTag = Tag.Null;
            int type;
            int subtype;
            Face thisFace;

            var faces = new List<Face>();

            do
            {
                theUFSession.Obj.CycleObjsInPart(workPart.Tag, UFConstants.UF_solid_type,ref tmpTag);

                if (tmpTag != Tag.Null)
                {
                    theUFSession.Obj.AskTypeAndSubtype(tmpTag, out type, out subtype);
                    if (subtype == UFConstants.UF_solid_face_subtype)
                    {
                        thisFace = NXObjectManager.Get(tmpTag) as Face;
                        int topo_type;
                        theUFSession.Modl.AskFaceTopology(tmpTag, out topo_type);

                        if (topo_type == 2 | topo_type == 3)
                        {
                            faces.Add(thisFace);
                        }
                    }
                }
               
            } while (tmpTag != Tag.Null);

            theSession.ListingWindow.Open();
            theSession.ListingWindow.WriteLine("Faces found: " + faces.Count);

            foreach (var face in faces)
            {
                theSession.ListingWindow.WriteLine(face.ToString());
            }
        }       
    }
}

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo matthias-p

genial, vielen dank!

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

..beim Lesen der Liste habe ich noch einen Fehler.
Wer kann helfen?

Danke

------------------------Option Strict Off

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module find_all_faces_in_work_part

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow
Dim workPart As Part = s.Parts.Work()

Sub Main()

lw.Open()

Dim tmpTag As NXOpen.Tag = NXOpen.Tag.Null
Dim type As Integer = 0
Dim subtype As Integer = 0
Dim thisFace As Face
dim face_Topology As String ' oder muss das ein integer sein???

Dim selected_faces As New List(Of Face)

Do

ufs.Obj.CycleObjsInPart(workPart.Tag(), UFConstants.UF_solid_type, tmpTag)
'lw.WriteLine("M1 tmpTag = " + tmpTag.ToString)

If tmpTag > NXOpen.Tag.Null Then

ufs.Obj.AskTypeAndSubtype(tmpTag, type, subtype)
'lw.WriteLine("M2 subtype = " + subtype.ToString)

If subtype = UFConstants.UF_solid_face_subtype Then

thisFace = NXObjectManager.Get(tmpTag)
' lw.WriteLine("M3 thisFace = " + thisFace.ToString)

ufs.Modl.AskFaceTopology(tmpTag, face_Topology)
'lw.WriteLine("M4 face_Topology = " + face_Topology.ToString)

' auswertung der gewünschten Flächen-Topology
if face_Topology = 2  or face_Topology = 3 then
'lw.WriteLine("M4: " + thisFace.ToString + " = eine Topologie " + face_Topology.ToString + " und kommt somit in die Optimierung")

selected_faces.Add(thisFace)

else

end if

End If

End If

Loop Until tmpTag = NXOpen.Tag.Null

For Each thisFace in selected_faces
lw.WriteLine(selected_faces().ToString)
Next

End Sub

End Module

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

For Each current in selected_faces
lw.WriteLine(current.ToString)
Next

Deine For Each Schleife ist falsch.

For Each "Dann kommt eine Temporärer Variablenname der die aktuelle enthält" As "Der Typ" In "Die Liste"

Also bei dir:

Fore Each current As Face In selected_faces
lw.WriteLine(current.ToString)
Next

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank!!!

Evtl. komme ich dann noch einmal mit einer frage,
denn nun kommt der 2 part des Programm's...

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP