---

Servus aus München,

kurz den Zusammenhang meines Problems. Ich selektiere ein Vertex oder einen Punkt sowie einen Sketch in einem Part. Anschließend erzeuge ich zwei Punkte in dem selektierten Sketch und einen Referenzconstraint als Länge dazu.

Was nun mein Problem ist, ich will, wenn der Vertex den ich wähle aus dem Sketch kommt, keinen extra Punkt erzeugen sondern das Geometrie Element im Sketch wählen. Leider komm ich da bis jetzt nicht dran.
Eine Möglichkeit wäre wohl die Koordinaten aller Elemente mit dem Vertex zu vergleichen, dauert aber wohl recht lange.

Irgendwelche Vorschläge?
Grüße Andi

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

---

Servus,

kurze Rückmeldung zur Lösung.
Ich baue im den BRep Name selbst nach und vergleiche ihn mit der Selektion.

Dim aPunktBRepNamen_sel()
n = 3  'Abhängig von der Catia Release
aRefosel = Split(sElementName, "_")
aRefosel_2 = Split(aRefosel(1), ";")
sName = ""
For i = 0 To UBound(aRefosel_2) - n
    sName = sName & aRefosel_2(i) & ";"
Next

Set oSketchME = osketch.GetItem("ModelElement")
oSketchIN = oSketchME.InternalName
           
For Each oGeoElement In osketch.GeometricElements
               
  If oGeoElement.GeometricType = 0 Or oGeoElement.GeometricType = 2 Then 'point and Unknown
                    anz = oGeoElement.ReportName
                    sPointREfName = "BorderFVertex BEdge Brp " & oSketchIN & ";" & anz & ");None Limits1 );Limits2 );+1);Cf11 ));" 'WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)"
                    If sPointREfName = sName Then
                        Set elemRef = part1.CreateReferenceFromObject(oGeoElement)
                        Exit For
                    End If
                End If
            Next

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