|
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 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 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 : 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 : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 23.09.2011 um 16:17 Uhr (0)
Eine Referenz habe ich nicht gebildet, kannst du mir da ein Stichwort nennen, nach dem ich in der Hilfe nachlesen kann?Code:clampin.Product = productJawSet product = clamping.GetProductInstance()ich dachte damit weise ich dem Setup mein Part zu und weise dann product die Instanzen des im Setup enthaltenen Parts zu
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 23.09.2011 um 16:17 Uhr (0)
Eine Referenz habe ich nicht gebildet, kannst du mir da ein Stichwort nennen, nach dem ich in der Hilfe nachlesen kann?Code:clampin.Product = productJawSet product = clamping.GetProductInstance()ich dachte damit weise ich dem Setup mein Part zu und weise dann product die Instanzen des im Setup enthaltenen Parts zu
|
| 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 |
|
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 |
