---

Hallo,

ich würde gerne über eine selection ein Geometrisches Set auswählen und in diesem dann die flächen zählen...das mit dem zählen usw. klappt alles schon...nur die selection bereitet mir noch probleme...Also auswählen und übergeben an eine public variable mach ich schon...nur zum beispiel der count Befehl geht mit diesen objekten nicht... nur wenn ich das Geometrische set direkt anspreche und mir nicht über eine Selektion hole...

Beispiel Code:
' Auswahl festlegen -----------------------------------------------
    Dim selectableElements(0)
    selectableElements(0) = "HybridBody"

    ' Selektion definieren und leeren ---------------------------------
    Dim userSelection As Object
    Set userSelection = CATIA.activeDocument.Selection
    userSelection.Clear

    ' Selektion vornehmen lassen --------------------------------------
    Dim status As String
    status = userSelection.SelectElement2(selectableElements, "Bitte wählen Sie die Ebene aus auf der die Skizze erzeugt werden soll", True)

    If status = "Normal" Then

        Dim NeuSet As Object
        Set NeuSet = userSelection.Item(1)
       
'Hier kann ich das NeuSet nicht ganz normal wie ein Geometrische Set benutzen

    End If

    ' Selektion freigeben --------------------------------------------
    userSelection.Clear

Gruss Niko

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

---

Hallo Niko,

in der Selection brauchst du noch die Methode .value um auf das Geo-Set zugreifen zu können. Siehe Code:

Code:

---

Beispiel Code:
' Auswahl festlegen -----------------------------------------------
    Dim selectableElements(0)
    selectableElements(0) = "HybridBody"

    ' Selektion definieren und leeren ---------------------------------
    Dim userSelection As Object
    Set userSelection = CATIA.activeDocument.Selection
    userSelection.Clear

    ' Selektion vornehmen lassen --------------------------------------
    Dim status As String
    status = userSelection.SelectElement2(selectableElements, "Bitte wählen Sie die Ebene aus auf der die Skizze erzeugt werden soll", True)

    If status = "Normal" Then

        Dim NeuSet As Object
        Set NeuSet = userSelection.Item(1).VALUE
       
'Hier kann ich das NeuSet nicht ganz normal wie ein Geometrische Set benutzen

    End If

    ' Selektion freigeben --------------------------------------------
    userSelection.Clear

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Super vielen dank für die Hilfe genau das hab ich gesucht...

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