---

Edit: Habe eine (leider langsame) Lösung gefunden.

Der Befehl

Code:

---

CATIA.StartCommand "Create Technological Results"

---

funktioniert nur im PartDesign. Daher: Body selektieren und dann per

Code:

---

CATIA.StartWorkbench "PrtCfg"

---

ins PartDesign wechseln bevor ihr Technologische Ergebnisse hinzufügt.

Liebe Grüße aus Wien,
Christoph :)

-------------------------------------------------------------
Hallo liebe Community!

Ich versuche gerade ein Makro zu schreiben, welches allen Parts eines Produkts "Technologische Ergebnisse" hinzufügt. Habe diesen Link hier gefunden:
Link

noir333 schreibt:

Zitat:

---

also auch bei mehreren Parts ist das kein Problem

---

Mein Code sieht so aus:

Code:

---

Set oMainBody = p.ReferenceProduct.Parent.Part.Bodies.Item(1)
Catia.ActiveDocument.Selection.Clear()
Catia.ActiveDocument.Selection.Add(oMainBody)
CATIA.StartCommand "Technologische Ergebnisse erzeugen"

---

Wobei p das zugehörige Produkt des Parts ist. Das Makro funktioniert aber leider nur, wenn ich das Part direkt blau markiere. Sobald ich ein Produkt blau markiert habe, kommt die Fehlermeldung: "Unbekannter Befehl: Technologische Ergebnisse erzeugen".

Weiß jemand hier was ich falsch mache?

Danke, Grüße aus Wien,
Christoph

[Diese Nachricht wurde von C.Samer am 11. Dez. 2017 editiert.]

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

---

Hier noch ein Beispiel:

Code:

---

Sub CATMain()
    Set oSel = CATIA.ActiveDocument.Selection 
    Set oItem = oSel.Item(1).Value
    Catia.ActiveDocument.Selection.Clear()
    Catia.ActiveDocument.Selection.Add(oItem)
    CATIA.StartCommand "Create Technological Results"
End Sub

---

Der Code funktioniert nur, wenn ich das Part blau markiere und den Body orange 

Liebe Grüße,
Christoph

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

---

Hallo Christoph,

wie Du schon sagst, Du musst das Part blau machen:

                mysel.Clear
        mysel.Add(mypart1)
CATIA.StartWorkbench("PrtCfg")

Set mysel1=mypart1.Parent.Selection
mypart1.InWorkObject = body1
mysel.clear
mysel.Add(body1)
if catlang="de" then
  CATIA.StartCommand("Technologische Ergebnisse erzeugen")
elseif catlang="en" then
  CATIA.StartCommand("Create Technological Results")
end if

------------------
-----------

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

---

Danke dir!
Falls noch jemand eine schnellere Methode kennt, gebt mir bitte Bescheid! 

Grüße aus Wien,
Christoph

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