---

Hallo Zusammen,
wenn ich den Anwender mit Selection.SelectElement2 eine "Edge" selektieren lasse, gibt es dann eine Möglichkeit festzustellen zu welchem Dokument bzw. zu welchem Part diese selektierte Kante gehört ?
Vielen Dank,
r.

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

---

Selection.gif

Hallo zurück
Kleiner Tip:

Hoffe Du arbeitest mit dem VBA Editor.

Setze einen Haltpunkt hinter der SelectElemnt2 Zeile.

Im geöffneten Locals Fenster sollte jetzt deine selction auftauchen.

ich habe z.B. dann eine Zeile verwendet
set xyz = selection.item(1).value

Ich denke unter dem Punkt Parents u.u. mehrmals wirst Du fündig
siehe Bild.

Ich Denke mit einer Schleife und einer "if typeof" funktion läst sich dass ganze lösen.

------------------
Mit freundlichem Gruß von Carl Tenschert

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

---

locals.jpg

Hallo Carl,

danke für den Tip, so wollte ichs auch schon probieren. Dummerweise scheint die Parent-Funktion immer wieder auf sich selber zu verweisen.
Hab zur Verdeutlichung nochmal nen Screenshot angehhängt.

Bin natürlich für weitere Vorschläge offen ;-)
Gruß,
r.

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

---

Hallo Zusammen,
genau mit dem gleichen Problem kämpfe ich gerade auch. Wie findet man das zu einer Edge gehörende CATPart????
Bin für jeden Tip dankbar.

Gruß wovo

------------------
wovo

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

---

Hallo,

die Methode die du suchst ist .FindObject. So gehts:

Language="VBSCRIPT"

Sub CATMain()

Dim InputObjectType(0) 
Dim Status
Dim oSelection

If Not TypeName(CATIA.ActiveDocument) = "ProductDocument" Then
  MsgBox "No .CATProduct loaded", 48, "Error"
  Exit Sub
End if

Set oSelection = CATIA.ActiveDocument.Selection

InputObjectType(0) = "Line"  '---nur Fläche  auswählbar
Status = oSelection.SelectElement2(InputObjectType, "XXXXX  Select a Line  XXXXX", False)  '--- UserSel
If (Status <> "Normal") Then  '-------Auswahl i.O?
  MsgBox "Abort"  '--- nein
  Exit sub
Else  '-------  ...wenn ja, dann...
  Set oSelectedElement = oSelection.FindObject("CATIAProduct")
  oSelection.Clear
  oSelection.EndSelectElement
  Set oDoc = oSelectedElement.ReferenceProduct.Parent
  MsgBox oDoc.Name, 64, "PartDocument of Selected Feature"
End If

End Sub

Gruss TomTom

------------------
tomtom1972

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