---

Hallo,

ich habe ein Makro geschrieben das mir die Bauteile in einer Gruppe aktiviert.
Das Makro funktioniert aber nur wenn ich bereits vorher die Gruppe selektiere.
Gibt es eine Möglichkeit zuerst das Makro zu starten und danach die Gruppe oder ein Bauteil zu selektieren?

Dann könnte ich mein Makro so schreiben dass wenn bereits eine Gruppe oder ein Bauteil selektiert ist dieses aktiviert wird und wenn noch keines selektiert ist muss zuerst ein Bauteil selektiert werden und dann wird es sofort aktiviert (ohne das Makro nochmal selbst zu starten).

Gruß,
graaas

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

---

Servus
Dazu kannst du die Methode "SelectElement2". Über den Parameter "iObjectSelectionBeforeCommandUsePossibility" kannst du definieren ob schon zuvor selektierte Elemente akzeptiert werden, oder die Selektion neu aufgerufen wird.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

leider kenne ich mich mit der Funktion nicht so gut aus. Wie muss ich das anstellen.
Mein bisheriger Code schaut so aus (wobei jetzt das Makro noch beendet wird wenn keine Selektion vorhanden ist).

Code:

---

Sub CATMain()

Set productDocument1 = DMU.ActiveDocument
Set selection1 = productDocument1.Selection

'Wenn keine Selektion vorhanden dann beenden
If selection1.Count = 0 Then
  Exit Sub
Else

'Wenn Selektion vorhanden dann prüfen ob es eine Gruppe ist oder ein normales Bauteil und aktivieren
  Set test = selection1.Item2(1).Value

  If TypeName(test) = "Group" Then
    CATIA.StartCommand ("Select Content")
    CATIA.StartCommand ("Activate Terminal Node")
  Else
    CATIA.StartCommand ("Activate Terminal Node")
  End If
End If

End Sub

---

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

---

Ok habs jetz selber geschafft mit:

Code:

---

If selection1.Count = 0 Then

Dim Was(0)
    Was(0) = "AnyObject"

    E = selection1.SelectElement2(Was, "Objekt wählen", False)

    If E = "Normal" Then
      Set test = selection1.Item2(1).Value

      If TypeName(test) = "Group" Then
        CATIA.StartCommand ("Select Content")
        CATIA.StartCommand ("Activate Terminal Node")
      Else
        CATIA.StartCommand ("Activate Terminal Node")
      End If

    Else
        Exit Sub
    End If

---

Aber trotzdem Danke.

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