|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
martin2 am 18.04.2006 um 13:30 Uhr (0)
Hallo!Da ich leider mit der ganzen Geschichte überhaupt nicht weiterkomme evtl. mal eine kleine Zwischenfrage:Wie kann man beim Durchlaufen der Produktstruktur mittels:For i = 1 To Produktname.Products.Countfeststellen, ob es sich beim item(Produktname.products.item(i) )um ein Produkt oder ein Part handelt?Leider funtioniert nämlichIf TypeOf Produktname.Products.Item(i) Is ProductDocument Thenbei mir nicht. AuchIf TypeOf Produktname.Products.Item(i) Is Product Thenbringt nicht den erhofften Erfolg. Bin ...
|
|
CATIA V5 Programmierung : Fehler bei CATIA.Documents.Count ?
martin2 am 13.03.2006 um 14:44 Uhr (0)
Hallo nochmal,Dim GesamtanzahlZeichnungen As LongGesamtanzahlZeichnungen = 0 For k = 1 To CATIA.Documents.Count Step 1 If (Right(CATIA.Documents.Item(k).Name, 11) = ".CATDrawing") Then GesamtanzahlZeichnungen = GesamtanzahlZeichnungen + 1 End IfNexthat mein Problem gelöst...(Offensichtlich werden in CATIA.Documents.Count auch wirklich die verlinkten Dateien mitgezählt, auch wenn sie nicht direkt geöffnet sind...)Gruß Martin!
|
|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
martin2 am 13.04.2006 um 14:03 Uhr (0)
Hallo!Erst mal Danke für Deine Antwort!Leider komm ich aber nicht auf die Lösung des Problems.(Suchfunktion hab ich gestern schon ausgiebig benutzt.)Im Anhang hab ich mal mein bisheriges Makro, sowie ein Beispielprodukt abgespeichert.Mein Ziel ist es in den Namen und Exemplarnamen der Teile und Produkte einen einzugebenden String durch einen anderen zu ersetzen.Bislang funktioniert aber nur das Ändern des Namens.Beim Arbeiten mit Catia.ActiveDocument.Product.Products.Item(1).Name = "Test" schaffe ich es no ...
|
|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
martin2 am 18.04.2006 um 16:01 Uhr (0)
Hallo tomtom1972,erst mal Vielen Dank für Deine Antwort!Leider schaffe ich es jedoch immer noch nicht mit folgender Anweisung zu erkennen, ob es sich um ein Produkt oder ein Part (im Gesamtprodukt) handelt...Set oProducts = CATIA.ActiveDocument.Product.ProductsFor n = 1 To oProducts.Count MsgBox (n & " " & TypeName(oProducts.Item(n)))NextEs erscheint stets "Product" - somit habe ich kein Unterscheidungsmerkmal...Deine Meinung / Hilfe?Danke Martin!
|
|
CATIA V5 Programmierung : Problem mit Selection
martin2 am 30.08.2008 um 14:30 Uhr (0)
Hallo!Kann mir bitte mal jemand schnell einen Tip geben warum bei mir die Selection nicht funktioniert? If (chkBohrungen.Value = True) Then If TypeOf Dokument Is PartDocument Then wenn es sich bei der geöffneten Datei um ein CATPart handelt Set Part1 = Dokument.Part For Koerperzaehler = 1 To Part1.Bodies.Count für alle Volumenkörper (nicht geöffnete Körper) For Elementezaehler = 1 To Part1.Bodies.Item(Koerperzaehler).Shapes.Count für alle Elemente im Volumenkörper ...
|
|
CATIA V5 Programmierung : Problem mit Selection
martin2 am 01.09.2008 um 18:59 Uhr (0)
... na wenns Dich glücklich macht ... Set oMarkiertesObjekt = Part1.Bodies.Item(Koerperzaehler).Shapes.Item(Elementezaehler) Auswahl.Add oMarkiertesObjekt Set visPropertySet1 = Auswahl.VisProperties visPropertySet1.SetRealColor 210, 210, 255, 0Gruß Martin
|
|
CATIA V5 Programmierung : NC - Bild der Werkzeugbahn jeder Bearbeitungsoperation automatisch erstellen lassen
martin2 am 07.09.2008 um 19:57 Uhr (0)
Hallo!Anbei die ersten Codezeilen - evtl. hilft das ja mal zum Einstieg: Dim alle_Dokumente As Documents Set alle_Dokumente = CATIA.Documents Dim Dokument As Document Set Dokument = CATIA.ActiveDocument If TypeOf Dokument Is ProcessDocument Then wenn es sich bei dem Dokument um einen CATProcess handelt Dim pprdocument1 As PPRDocument Dim Aufspannung As ManufacturingSetup Dim Herstellungsprogramm As ManufacturingProgram Dim Bearbeitungsoperation As ManufacturingOpera ...
|
