---

Guten Tag...

Ich bin ein blutiger Anfänger in Sachen Makros und hoffe, dass ihr mir ein wenig bei meinem Verständniss weiter helfen könnt. Ich habe viele Seiten hier im Forum durch gestöbert, leider bin ich aber trotzdem nicht zu einer Lösung für mein Problem gekommen. In diesem Fall geht es darum, dass ich sehr häufig verschiedene Geometrische Sets "aktiv" (Define in Work) setzen muss und mir dafür einen Tastenkürzel anlegen wollte. Bei den "Commands" lässt sich aber für "Define in Work Object" kein Tastaturkürzel anlegen. Daher wollte ich mir jetzt einfach schnell ein Makro anlegen und diesem dann ein Tastaturkürzel geben. Genau gesagt soll das Makro für das derzeit ausgewählte Geometrische Set "Define in work" ausführen.

Ich habe die Aufnahmefunktion benutzt und habe für ein Geometrisches Set "Define in Work" ausgeführt. Dabei kommt folgendes raus:

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Beispielset")

part1.InWorkObject = hybridBody1

End Sub

Im Grunde muss ich doch jetzt nur für die Zeile: Set hybridBody1 = hybridBodies1.Item("Beispielset") das derzeit ausgewählte Geometrische Set einsetzten oder ?
Ich habe das jetzt mit zig verschiedenen Ansätzen versucht, leider ist es mir aber nicht gelungen. Mein letzter Ansatz sah so aus:

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim Auswahl As Selection
Set Auswahl = partDocument1.Selection

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = partDocument1.Selection

part1.InWorkObject = hybridBody1

End Sub

Kann mir jemand sagen, was ich falsch mache und wie es richtig funktioniert ?

Liebe Grüße

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

---

Hallo,

kannst du bei dem Befehl einen Alias setzen?
Wenn ja kannst du den Befehl wie folgt per Makro aufrufen.

CATIA.StartCommand "Aliasname"

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Servus

Du kannst auch den Befehl temporär einer (beliebigen) Symbolleiste hinzufügen. Dann kannst du ein Tastaturkürzel anlegen und den Befehl wieder aus der Symbolleiste entfernen.

Gruß
Bernd

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

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

---

Danke euch beiden für eure schnellen Antworten.

@Randle:

Eine sehr schöne Idee. Das Makro mit dem Alias-Befehl funktioniert auch, komischer Weise kann ich jetzt aber für dieses Makro ebenfalls kein Tastaturkürzel auswählen.

@bgrittmann:

Wenn ich versuche, "Define in work object" einer Toolbar hinzuzufügen, kommt folgende Fehlermeldung:
Impossible to add local commands on global toolbar: Define in Work Object

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

---

Servus

Dann musst du wohl im PartDesign bzw GSD sein und den Befehl zu einer Symbolleiste einer dieser beiden Workbenches hinzufügen (da es den Befehl ja nicht im Assembly gibt).

Gruß
Bernd

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

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

---

Ah ok... Danke schön, jetzt habe ich den Shortcut nicht nur an der richtigen Stelle, sondern auch verstanden, wann ein ShortCut möglich ist und wann nicht.
Falls jemand langeweile hat, würde es mich immer noch interessieren, wie ich in dem Makro aus dem ersten Post das ausgewählte GeometrischeSet einbauen muss - dies wäre aber rein informativer Natur da mein Hauptproblem schon gelöst ist. 

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

---

Servus Beinschuss

Hier ein Beispiel

Code:

---

Sub CATMain()

Dim InputObjectType(1)
Dim oPartDocument as PartDocument
Dim oSelection as Selection
Dim oPart as Part
Dim Status as String

Set oPartDocument = CATIA.ActiveDocument
Set oSelection = oPartDocument.Selection
Set oPart = oPartDocument.Part
 
'Filter festlegen
InputObjectType(0)="HybridBody"
InputObjectType(1)="Body"

Status = oSelection.SelectElement2(InputObjectType,"GeoSet oder Körper selektieren",true)

if (Status = "cancel") then
  Exit Sub
end if

oPart.InWorkObject = oSelection.item2(1).Value

end Sub

---

Gruß
Bernd

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

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

---

Danke Bernd...

Zuerst hat das Macro nicht richtig funktioniert, aber mit ein bißchen tüfteln habe ich es jetzt zum Laufen bekommen.
Zusätzlich ist aber auch mein Verständniss für Macros wieder ein Wenig größer geworden.

Nochmals Danke

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