---

Hallo,
ich möchte gerne mit dem SelectElement arbeiten, nur leider finde ich selbst im Ziethen keine Auflistung, welche Elemnte ich filtern kann, habe bis jetzt leider nur Pad, Line,PlanarFace und AnyObject

Ich möchte aber gerne einen Kreismittelpunkt finden 

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

---

Der Kreismittelpunkt müsste ein Punkt sein.
Da du einen speziellen Punkt möchtest musst du entweder schauen ob's dafür einen eigenen Typ gibt (Selektion und dann in der Watchlist schauen was in der Selection drin steckt) oder nach dem anklicken schauen was für ein Parent oder ähnliches der Punkt hat.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo,
ich habe am Wochenende noch ein mal ein wenig rumprobiert und auch mal geguckt, was in der Selection drin steckt, nur leider ist das für mich nur Kraut und rüben.
Als Beispiel:

Ich habe ein Produkt offen und dort eine einfache Platte mit Bohrungen als Catpart eingefügt. Natürlich funktioniert der Selection-Befehl, aber nur mit Einschränkungen.
Hier erstmal der Code den ich benutze:

Code:

---

Dim Was(1)
    Was(0) = "Hole"
    Was(1) = "AnyObject"
   
    Dim UserSel As Object
    Set UserSel = CATIA.ActiveDocument.Selection
   
    Dim E As Variant
    E = UserSel.SelectElement2(Was, "Bohrung wählen!", False)
   
    If E = "Normal" Then
        MsgBox (UserSel.Item(1).Value.Name)
    Else
        MsgBox ("Abbruch")
    End If

---

So kann ich problemlos ein Hole oder andere Elemente selektieren. Wenn ich als Filter nur AnyObject auswähle und die Bohrung markieren möchte, nimmt er direkt die Achse, was ja auch nicht so schlecht ist, eigentlich... Allerdings wirft er mir dann eine Fehlermeldung raus, denn das Object UserSel ist nicht gesetzt 

Wie kann ich es realisieren, dass ich ein Objekt selektiere und dieses als Referenz setze, so schwer kann das doch nicht sein.

Gruß

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

---

Hallo,

nein so schwer ist es auch nicht  . Mit folgendem Code kannst du eine Bohrung innerhalb einer Produktstruktur selektieren.

Code:

---

Sub CATMain()

    Dim oDoc As Document
    Dim oSel As Object
    Dim Auswahl As String
    Dim filter(0)
   
    filter(0) = "Hole"
   
    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Clear
   
    Auswahl = oSel.SelectElement2(filter, "Bitte wählen Sie eine Bohrung aus", True)

   
    If Auswahl = "Normal" Then
        Call MsgBox("Sie haben die Bohrung " & oSel.Item2(1).Value.Name & " selektiert", vbInformation, "Test")
    Else
        Call MsgBox("Abbruch durch Anwender", vbCritical, "Test")
    End If
       
End Sub

---

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

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,
das mit deinem Beispiel habe ich auch schon hinbekommen, nur leider gibt er mir dann die Bezeichnung der Bohrung wieder, z.B. Bohrung.1 etc.
Ich habe es jetzt gelöst, ich filtere nach "Face" und dann gibt er mir die Referenz zur BRep wieder, welche ich dann auch mit CreateReferencefromName setzen kann. Oder besteht die Möglichkeit, mit dem Filter "Hole" auch an die BRep-Referenz ran zu kommen, denn zur Zeit kann der Nutzer natürlich auch planare Flächen selektieren, was ich eigentlich verhindern möchte.

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