Autor
|
Thema: Werkzeugwechsel und Maschine hinzufügen (1506 mal gelesen)
|
DaiVied Mitglied
Beiträge: 50 Registriert: 19.09.2011
|
erstellt am: 22. Sep. 2011 10:14 <-- editieren / zitieren --> Unities abgeben:
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 |
DaiVied Mitglied
Beiträge: 50 Registriert: 19.09.2011
|
erstellt am: 22. Sep. 2011 10:15 <-- editieren / zitieren --> Unities abgeben:
|
DaiVied Mitglied
Beiträge: 50 Registriert: 19.09.2011
|
erstellt am: 22. Sep. 2011 15:25 <-- editieren / zitieren --> Unities abgeben:
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 |
JPF Mitglied Programmierer
Beiträge: 128 Registriert: 17.08.2001 CATIA V5R19 SP9--HP420,Intel(R) Xeon(R) CPU E5-1620 3.60GHz,32 GB Ram, NVIDIA Quadro 2000--Windows 7 Enterprise 64bit
|
erstellt am: 23. Sep. 2011 06:53 <-- editieren / zitieren --> Unities abgeben: Nur für DaiVied
|
JPF Mitglied Programmierer
Beiträge: 128 Registriert: 17.08.2001 CATIA V5R19 SP9--HP420,Intel(R) Xeon(R) CPU E5-1620 3.60GHz,32 GB Ram, NVIDIA Quadro 2000--Windows 7 Enterprise 64bit
|
erstellt am: 23. Sep. 2011 07:01 <-- editieren / zitieren --> Unities abgeben: Nur für DaiVied
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 |
DaiVied Mitglied
Beiträge: 50 Registriert: 19.09.2011
|
erstellt am: 23. Sep. 2011 09:43 <-- editieren / zitieren --> Unities abgeben:
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 |
| Konstrukteur Maschinenbau und Anlagenbau (m/w/d) | Technologischer Fortschritt gelingt nur, wenn Visionen zur Realität werden. Dazu bringen wir bei FERCHAU als eine der führenden europäischen Plattformen für Technologie-Dienstleistungen die smartesten und innovativsten Köpfe mit Unternehmen verschiedenster Branchen zusammen. Wir suchen dich: als ambitionierte:n Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren ... | Anzeige ansehen | Konstruktion, Visualisierung |
|
DaiVied Mitglied
Beiträge: 50 Registriert: 19.09.2011
|
erstellt am: 23. Sep. 2011 15:08 <-- editieren / zitieren --> Unities abgeben:
|