|
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 |
|
CATIA V5 Programmierung : Referenz zurückliefern
DaiVied am 23.01.2012 um 11:35 Uhr (0)
Hallo,Ich habe folgende Funktion geschrieben, die mir eine Referenz zurückliefern soll:Code:Function CreateReferenceFromLim (index, name, geometry) Dim BRep Dim RefPlane BRep = "Face:(Brp:("+name+";"+index+");None:())" Set RefPlane = CATIA.ActiveDocument.Part.CreateReferenceFromBRepName(BRep, geometry) CreateReferenceFromLim = RefPlaneEnd FunctionDie Referenz wird Ordnungsgemäß erzeugt, aber beim zurückliefern scheint es ein Problem zu geben.Fehlermeldung: Das Objekt unterstützt diese ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CINEMA 4D : Cinema 4D erkennt 3dm Dateien nicht
DaiVied am 28.03.2012 um 13:02 Uhr (0)
Hallo zusammen,Mir wurde geraten, meine CATpart (Catia) Dateien über Rhino in das 3dm Format zu überführen, um sie dann in Cinema 4D öffnen zu können. Leider bekomme ich die Fehlermeldung: "Unbekanntes Dateiformat" obwohl ich die Datei ja im "öffnen" Dialog auswählen kann. Seltsam ist das auch, weil ja im Internet überall steht, dass 4D das Format eigentlich verarbeiten können sollte. Ich hab das 4D release 9 und die neuste Testversion von Rhino (alle Funktionen enthalten, nur auf 25 Speichervorgänge begre ...
|
| In das Form CINEMA 4D wechseln |
