---

Folgendes Makro habe ich geschrieben um einen Werkzeugwechsel und eine Maschine hinzuzufügen

hier der Code:

Code:

---

Sub CATMain()

Dim processDocument
        Dim PPR
Dim process
Dim clamping
Dim resourceList
Dim manufacturingProgram
Dim toolChange

Set processDocument = CATIA.ActiveDocument
Set PPR = processDocument.PPRDocument
Set process = PPR.processes.Item("Process")
Set clamping = process.GetItem("Aufspannung.1")

        clamping.name = "standard_clamping"
   
call clamping.CreateMachine(Mfg3AxisWithTableRotationMachine) 

Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1")

manufacturingProgram.name = "Program"

Set toolChange = manufacturingProgram.AddToolChange(Schaftfraeser, T1SchaftfraeserD10, Standartkatalog, 1)

End Sub

---

Eine Fehleranweisung bekomm ich nicht erfreulicherweise, allerdings wird nach dem Ausführen keine Maschine in der Resourcelist angezeigt.
ein Werkzeugwechsel wird zwar hinzugefügt, allerdings nicht mit den von mir gegebenen Spezifikationen Schaftfraeser, T1SchaftfraeserD10, Standartkatalog, 1)
Kann mir jemand sagen, ober beim werkzeugwechsel der Syntax korrekt ist und warum die Machine nicht erstellt wird?
vielen Dank

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

---

der Traurige Smiley war übrigens keine Absicht, der hat sich durch ":" und "(" eingeschlichen 

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

---

Ich denke ich habe beim Werkzeugwechsel das mit der Syntax begriffen.
ich denke so ists richtig:

Code:

---

Set toolChange = manufacturingProgram.AddToolChange(Flat_End_Mill_Diam_10,MfgEndMillTool,ToolSamples_MMG,10)

---

Allerdings zeigt es immer noch keine Wirkung. Ich hab die schreibweise des Katalogs, des Typs, und des Namens ungefähr 100 mal kontrolliert, kann vll jemand von euch sonst einen Fehler erkennen?

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

---

Guten Morgen,

versuchmal call clamping.CreateMachine("Mfg3AxisWithTableRotationMachine")

Gruss JPF

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

---

Und hier noch

.AddToolChange("Flat_End_Mill_Diam_10","MfgEndMillTool","ToolSamples_MMG",10)
Nicht getestet!
Es kann auch sein, das für "ToolSamples_MMG" der komplette Pfad angegeben werden muss.

Gruss JPF

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

---

Hab beides versucht, mit Dateipfad und ohne, geht leider nicht, es folgt aber immerhin eine Fehlermeldung, die besagt:
"das Verfahren addToolChange ist fehlgeschlagen"

naja, immerhin! Zuvor hat er ja noch garnichts gesagt.

der Code lautet nun so:

Code:

---

Set toolChange = manufacturingProgram.AddToolChange("Flat_End_Mill_Diam_10","MfgEndMillTool","ToolSamples_MMG",10)

---

Ich hab mal gedacht, eventuell noch die Dateiendung des Katalogs anzugeben, die ich allerdings nicht weiß!

Mhh da muss es doch ne lösung dafür geben, manchmal hängt man ewig über falschem syntax und findet das problem nicht mehr...
vielen Dank

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

---

Die Maschine kann erstellt werden, in dem man "" hinzufügt

call clamping.CreateMachine("Mfg3AxisMachine") 

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