---

Hi Forum,
ich möchte mit der Maus eine MachiningOperation (MO) anklicken und per VBA den Namen auslesen.
Irgendwie klappt das aber nicht so recht.
Kann mir einer dabei mal helfen?

Gruß,
Gregor

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

Hallo Gregor,

kannst du mal deinen bisherigen Code posten, um zu sehen wo es klemmt.

Was für eine Fehlermeldung erhälst du?

grüße Dominik

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

---

Moin,

Fehlermeldungen habe ich keine.
Hier ist der aktuelle Code:

Code:

---

Private Sub gezielt_Click()
UserForm1.Hide
    Dim arrOfVariant(0) As Variant
    Dim manuProgWork    As manufacturing.ManufacturingProgram
    Dim mfgActsWork    As manufacturing.MfgActivities
    Dim mfgOpWork      As manufacturing.ManufacturingOperation
    Dim objBuffer      As Object
    Dim selWork        As INFITF.Selection
    Dim sStatus        As String
   
    arrOfVariant(0) = "ManufacturingOperation"
    Set selWork = CATIA.ActiveDocument.Selection
        Rem Zielprogramm anklicken
    Set objBuffer = selWork
    sStatus = objBuffer.SelectElement2(arrOfVariant, "Bitte Operation selektieren", True)
    If Not sStatus = "Normal" Then
        Exit Sub
    End If

'Jetzt soll der Name der angeklickten MO ausgelesen und angezeigt werden
'...

end sub

---

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

Das sollte so gehen:

objBuffer.item(1).value.name

Warum benutzt du 2 Variablen für die Selektion (objBuffer = selWork)?

Grüße Dominik

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

---

Warum ich zwei Variablen dafür habe? Mmmhh, du hast recht... Seltsam.

Ich bekomme jetzt die Fehlermeldung:
"Das Verfahren Item ist fehlgeschlagen" (Run-time error)

Code:

---

Private Sub gezielt_Click()
UserForm1.Hide
    Dim arrOfVariant(0) As Variant
    Dim manuProgWork    As manufacturing.ManufacturingProgram
    Dim mfgActsWork    As manufacturing.MfgActivities
    Dim mfgOpWork      As manufacturing.ManufacturingOperation
    Dim objBuffer      As Object
    Dim selWork        As INFITF.Selection
    Dim sStatus        As String
 
    arrOfVariant(0) = "ManufacturingOperation"
    Set selWork = CATIA.ActiveDocument.Selection
        Rem Zielprogramm anklicken
    Set objBuffer = selWork
    sStatus = objBuffer.SelectElement2(arrOfVariant, "Bitte Operation selektieren", True)
    If Not sStatus = "Normal" Then
        Exit Sub
    End If

'Jetzt soll der Name der angeklickten MO ausgelesen und angezeigt werden
'...
wert=objbuffer.item(1).value.name

end sub

---

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

Hallo,

das Problem habe ich nun gelöst.
Jetzt stellt sich mir die Aufgabe, eine MO (deren Namen ich kenne), im PPR-Tree zu suchen, auszuwählen und an eine bestimmte Stelle umbenannt zu kopieren.

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

Ich würde das über eine Suchabfrage machen, geht einfach und schnell.
Möglicher Suchstring: Name='xy',all

Alternativ: Rekursiv den Strukturbaum durchlaufen und deine gesuchte MO suchen.

grüße Dominik

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

---

Per manueller Sucher im Strukturbaum habe ich die Position gefunden (sie ist übrigens immer gleich).
Jetzt habe ich eine Variable, in der der Name steht

Nullpunkt=Manu.ChildrenActivities.Item(3).Name

Wie kann ich jetzt die MO (also Manu.ChildrenActivities.Item(3)) kopieren ?

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

So wie alle anderen Elemente auch.

Such mal im Forum, dazu gibt es viele Beiträge.

Nur soviel, es geht über eine Selektion.
(selection.add -> selection.copy -> selection.paste)

grüße Dominik

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

---

So, jetzt bin ich um einiges schlauer.
Ich habe die zu kopierende MO selektiert und kopiert.
Beim pasten möchte ich vorher noch die Zielposition anklicken können.
Momentan wird direkt nach der "Quelle" die neue MO eingefügt.
Eine neue Selektion wird nicht abgearbeitet...

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

Moin.
Die Struktur ist da ein wenig sperrig. Hatte das "Problem" letztens erst selber.
Um ein Element X von A nach B zu kopieren musst du folgendes durchführen:

Element "X" in "A" einer Selection hinzufügen -> Selection.Add X
Selection.Copy
Selection frei räumen ->Selection.Clear
Zielort "B" der Selection hinzufügen -> Selection.Add B (das dürfte sich dann auch aus einer UserSelection erledigen lassen)
Selection.Paste

Entspricht im Ablauf etwa dem was man per Hand in Catia erledigen würde. So hab ich es mir recht gut merken können.

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

---

Hi,
das mit den selections verstehe ich einfach nicht.

Was muss ich bei selection.add (hier) eintragen ?

------------------
Wer bin ich? Und wenn ja: wieviele?

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

---

Such mal im Forum nach dieser Thematik, da wirst du hilfreiche Themen finden.

Du kannst dazu auch mal den Makrorekorder verwenden.
Vielleicht wird dir einiges klarer wenn du es erst mal manuell machst.

grüße Dominik

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