|
CATIA V5 Programmierung : Ausspannung in CAM Process umbenennen
DaiVied am 20.09.2011 um 21:53 Uhr (0)
Super, deins funktioniert, wenn man die "As" anweisung weglässt.Jetzt hab ich Intuitiv mein code anhand von deinem umgeschrieben (mit meinem Basis C-Wissen) und das Produkt funktioniert auchCode:Sub CATMain() Dim processDocument1 Set processDocument1 = CATIA.ActiveDocument Dim PPR1 Set PPR1 = processDocument1.PPRDocument Dim process1 Set process1 = PPR1.Processes.Item("Process") Dim manufacturingSetup1 Set manufacturingSetup1 = process1.GetItem("Aufspannung.1") manufacturingSetup1.name = "Standart ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausspannung in CAM Process umbenennen
DaiVied am 20.09.2011 um 17:14 Uhr (0)
Zur Übung habe ich mich an folgendem Code, um ein einfaches Item umzubenennen, versucht:Code:dim manufacturingProgram1, processDocument1, manufacturingSetup1Sub CATMain() Set processDocument1 = CATIA.ActiveDocument Set manufacturingProgram1 = processDocument1.GetItem("Herstellungsprogramm.1") Set manufacturingSetup1 = manufacturingProgram1.GetItem("Aufspannung.1") manufacturingSetup1.name = "Standartaufspannung"End SubAls Fehlermeldung bekomm ich immer: "GetItem fehlgeschlagen"Weis vll jemand an was das li ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Neue Komponente in Assembly Design einfügen
DaiVied am 21.09.2011 um 13:20 Uhr (0)
Zur Übung versuche ich ein Makro zu schreiben, das eine neue Komponente ins Assembly läd. Mein code Dazu sieht so aus:Code:Sub CATMain() CATIA.StartWorkbench ("Assembly") Set productDocument = CATIA.ActiveDocument Set product = productDocument.Product file = CATIA.FileSelectionBox("Bitte Wählen sie einen Catia-Part aus", "*.CATpart", CatFileSelectionModeOpen) product.AddAffectedComponent(file)End SubAls Fehlermeldung bekomme ich immer: Das Objekt unterstützt die Eigenschaft oder Methode nicht: product ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Neue Komponente in Assembly Design einfügen
DaiVied am 21.09.2011 um 13:55 Uhr (0)
Vll so?Code:Sub CATMain() CATIA.StartWorkbench ("Assembly") Set productDocument = CATIA.ActiveDocument Set product = productDocument.Product dim component Set component = product.AddNewComponent(...)End SubTrotzdem: Immer noch die selbe fehlermeldung, wahrscheinlich weil ich da einen dicken denkfehler drin hab!und was für Argumente da in die Klammer gehören ist mir auch etwas schleierhaftVielen Dank!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Werkzeugwechsel und Maschine hinzufügen
DaiVied am 22.09.2011 um 10:14 Uhr (0)
Folgendes Makro habe ich geschrieben um einen Werkzeugwechsel und eine Maschine hinzuzufügenhier 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(Mfg3AxisWithTableRotationMachin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 23.09.2011 um 15:51 Uhr (0)
In der Doku hab ich folgendes gefunden:"Sub SetGeometry(iGeometryType, iReference, iProduct, iPosition) Assigns geometry to a Manufacturing Operation"und als Beispiel:Code:Set Product1 = Setup1.GetProductInstance() Dim Pocketing1 As ManufacturingOperation Set Pocketing1 = Program1.AppendOperation ("Pocketing",1) Pocketing1 .SetGeometry("PartBottom",Plane1,Product1,0)meine Version davon ist nun folgendeCode: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.p ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 09.01.2012 um 11:43 Uhr (0)
Nachdem das Projekt ne Zeit auf Eis lag hab ich die Arbeit wieder aufgenommen. Ich Poste mal den Quellcode und beschreibe, was ich mir dabei gedacht habe. Wäre sehr nett, wenn mich dann jemand berichtigen könnte:Code:Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 10:44 Uhr (0)
Mein neuster Versuch:Code: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern.1") call clamping.CreateMachine("Mfg3AxisMachine") Set oSel = Selection.Add("productJaw") Set upperPlane = oSel.item2(1).ReferenceHier definiere ich ein Objekt oSel, also eine Selection, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 14:07 Uhr (0)
Hallo Bernd,Ich hab mal versucht, ganz von Anfang anzufangen und hab schon gute Fortschritte gemacht:Hier mal ein Makro, in dem ich etwas mit Selections probiere. Dadurch wurde mir einiges klarCode:Sub CATMain() Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear CheckJawGeometry SelectPlanesEnd Subsub SelectPlanes () Dim Jaw Dim Geometrics Dim Geometry Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear Set Jaw = CATIA.ActiveDocument.Part.MainBody Set Geometrics = Jaw.GeometricElem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 23.09.2011 um 15:51 Uhr (0)
In der Doku hab ich folgendes gefunden:"Sub SetGeometry(iGeometryType, iReference, iProduct, iPosition) Assigns geometry to a Manufacturing Operation"und als Beispiel:Code:Set Product1 = Setup1.GetProductInstance() Dim Pocketing1 As ManufacturingOperation Set Pocketing1 = Program1.AppendOperation ("Pocketing",1) Pocketing1 .SetGeometry("PartBottom",Plane1,Product1,0)meine Version davon ist nun folgendeCode: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.p ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 09.01.2012 um 11:43 Uhr (0)
Nachdem das Projekt ne Zeit auf Eis lag hab ich die Arbeit wieder aufgenommen. Ich Poste mal den Quellcode und beschreibe, was ich mir dabei gedacht habe. Wäre sehr nett, wenn mich dann jemand berichtigen könnte:Code:Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 10:44 Uhr (0)
Mein neuster Versuch:Code: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern.1") call clamping.CreateMachine("Mfg3AxisMachine") Set oSel = Selection.Add("productJaw") Set upperPlane = oSel.item2(1).ReferenceHier definiere ich ein Objekt oSel, also eine Selection, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 14:07 Uhr (0)
Hallo Bernd,Ich hab mal versucht, ganz von Anfang anzufangen und hab schon gute Fortschritte gemacht:Hier mal ein Makro, in dem ich etwas mit Selections probiere. Dadurch wurde mir einiges klarCode:Sub CATMain() Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear CheckJawGeometry SelectPlanesEnd Subsub SelectPlanes () Dim Jaw Dim Geometrics Dim Geometry Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear Set Jaw = CATIA.ActiveDocument.Part.MainBody Set Geometrics = Jaw.GeometricElem ...
|
| In das Form CATIA V5 Programmierung wechseln |
