|
CATIA V5 Programmierung : Parts umbenennen
Tapani. am 27.07.2006 um 11:16 Uhr (0)
moin,ich würde den ganzen Strukturbaum des gewünschten Documents traversieren und dabei alle Namen und Partnumbers ändern: Code:Sub traverse(Prod, origstr, newstr) set refp = Prod.ReferenceProduct if instr(refp.Name, origstr) then newpname = Replace(refp.Name, origstr, newstr) refp.Name = newpname end if if instr(refp.PartNumber, origstr) then newpnum = Replace(refp.PartNumber, origstr, newstr) refp.PartNumber = newpnum end if Set prods = Prod.Products pc = prods.Count If pc 0 then For i = 1 to pc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Generate Ballons Makro
tug am 27.07.2006 um 16:47 Uhr (0)
Hallo!Ich möchte einen Toolbar-Befehl in einem Drawing über Makro starten. Mit CATIA.StartCommand funktioniert das zwar grundsätzlich (z.B. für "Balloon"), jedoch nicht für "Generate Balloons". Kann mir jemand sagen, wie der Makro-Befehl für "Generate Balloons" lautet?Set drawingDocument1 = CATIA.ActiveDocumentSet drawingSheets1 = drawingDocument1.SheetsSet drawingSheet1 = drawingSheets1.Item("Sheet.1")Set drawingViews1 = drawingSheet1.ViewsSet drawingView1 = drawingViews1.Item("Section cut A-A")CATIA.Star ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugriff auf aktivierte Knoten Part or Product
Steefle am 27.07.2006 um 18:39 Uhr (0)
Hi Johnny!Meinst Du das Objekt, dass sich gerade "in Arbeit" befindet??Dann funktioniert das mit .InWorkObject und sieht in etwa so aus:Sub CatMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartMsgBox ("Hallo " & part1.InWorkObject.Name)End SubSchönen Gruß,Stiefel
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fläche aus anderem Part einfügen???
FRANKV5 am 28.07.2006 um 08:08 Uhr (0)
Hallo,kann mir jemand bei folgenden helfen. Ich habe ein Part (Part2) offen und möchte ein zweites laden aus dem ich eine Fläche benötige. Die Fläche soll kopiert und als Ergebnis im Part2 dargestellt werden. Mit dem unten stehenden Code klappt das laden und kopieren aber das aktivieren des Part2 und Einfügen der Fläche will irgendwie nicht klappen.1. Neues Part laden Dim StandardsPart As Documents Set StandardsPart = CATIA.Documents Dim oActiveDoc As Document Set oActiveDoc = StandardsPart ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fläche aus anderem Part einfügen???
Tapani. am 28.07.2006 um 09:38 Uhr (0)
moin,das Problem liegt darin, das der Zielort für den Paste-Befehl in der Selection stehen muss. Du mußt die erstmal das ActiveDocument vor dem Öffenen des Parts merken und dann nach dem Copy das ursprüngliche Part-Document aktivieren (Document.Activate), dir davon die Selection holen (sicherheitshalber löschen) und dann den Hybridbody, in den die Fläche eingefügt werden soll, per "Add" in die Selection einfügen und dann den Paste-Befehl ausführen.grob skizziert sieht das dann so aus:Code: set oldActDoc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Generate Ballons Makro
Timberwolve am 28.07.2006 um 09:51 Uhr (0)
Hallo, hatte auch ein solch ein Problem, Das CATIA.StartCommand akzeptiert keine Leerzeichen. Versuch es mal folgendermaßenDim Anwendung as StringAnwendung = "Generate" & " " & "Ballons"CATIA.StartCommand Anwendungso hats bei mir geklappt.------------------Wenn alle Stricke reissen, nehm ich ein Drahtseil
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Vergleich von Parameter
Lusilnie am 30.07.2006 um 23:22 Uhr (0)
Hallo Sabine,so ohne CATIA (also ohne Testmöglichkeit) sehe ich 4 Fehler. Einmal sollte die Schleife über alle Elemente von "Sp" gehen, weiter ist das "End If" an der falschen Stelle bzw. es fehlt ein "Else", dann sollte das "v" nach "For" sicher ein "r" sein und es fehlt ein "End If"! Somit müßte Dein Code so lauten:Code:Dim Laenge, Abstand As IntegerDim Params As ParametersDim r As IntegerDim i As Integer Namen = "Laenge:Abstand"Sp = Split(Namen, ":")For i = 0 To UBound(Split(Namen, ":")) If Params.Cou ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia DXF Export --> Layer und Blöcke
Hokay am 31.07.2006 um 12:29 Uhr (0)
Hallo Zusammen,wie kann ich, wenn Catia einen DXF geschrieben hat, die DXF noch einmal via Script einlesen und verändern.Konkret möchte ich: - die von Catia vergebenen Blocknamen BLOCK0, BLOCK1 usw umbenennen nach z.B. BLOCK_A, BLOCK_B usw.- die von Catia vergebenen Layernamen 0, 1, 2 usw umbenennen nach LAYER A, LAYER B usw.Wobei ich weniger Probleme damit habe die DXF zu interpretieren sonder wie man vie Script eine Text-Datei in meinem Falle eine DXF nach dem CATIA Export noch einmal öffnet bestimmte Te ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia DXF Export --> Layer und Blöcke
Axel.Strasser am 31.07.2006 um 14:20 Uhr (0)
Übernimmt der Export nicht die Namen die in V5 vergeben sind ?Axel
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia DXF Export --> Layer und Blöcke
Hokay am 31.07.2006 um 14:36 Uhr (0)
Hallo... nein, leider nicht. :-(Catia Beginnt bei Block0, Block1 ... usw. ich kann die "2D-Komponente" nennen wie ich will der Export nummeriert selbst neu.Ähnlich sieht es mit Layer aus.Catia nutzt nicht die Layernamen sondern die Nummer und schreibt diese in das DXF. Ich brauche aber die Namen in einer anderen Anwendung. (TDM)siehe Bild:Viele Grüße Hokay
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Vergleich von Parameter
Lusilnie am 01.08.2006 um 03:34 Uhr (0)
Hallo Sabine Feminin,das Problem liegt sicher in der Parameter-Erzeugung. Bei mir funktioniert das z.B. so:Code:Sub CATMain() Dim Laenge As Double, Abstand As Double Dim Params As parameters Dim r As Integer Dim i As Integer Set Params = CATIA.ActiveDocument.Part.parameters Namen = "Laenge:Abstand" sp = Split(Namen, ":") For i = 0 To UBound(Split(Namen, ":")) If Params.Count = 0 Then found = 0 Else For r = 1 To Params.Count If sp(i) = Params.Item(r).Name Then f ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometricalset einfügen (.net)
Augustiner am 01.08.2006 um 12:11 Uhr (0)
Hallo ich möchte in ein eingefügtes Part Geometrical Sets einfügen.Nur weiss ich nicht wie ich das oAdapterpart deklarieren muss damit ich mein Set einfügen kann.Kann mir da jemand weiterhelfen??Dim oRoot As Products = CATIA.ActiveDocument.Product.Products Dim oDesign As Product = oRoot.Item(2) Dim oSpanngruppe As Product = oDesign.Products.AddNewComponent("Product", TextBox3.Text) Dim oAdapterpart As Product = oSpanngruppe.Products.AddNewComponent("Part","Adapterpart"&Mid(TextBox3.Text,12,3))Gruß ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometricalset einfügen (.net)
dr am 01.08.2006 um 14:11 Uhr (0)
Dieser Code erzeugt ein neues Part, fügt es in die aktive Baugruppe ein und erzeugt ein GeometricalSet im Part.Suchst Du etwas in dieser Art?Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim myPartDoc As PartDocumentSet myPartDoc = CATIA.Documents.Add("Part")Dim product1 As ProductSet product1 = productDocument1.ProductDim products1 As ProductsSet products1 = product1.ProductsDim myProd As ProductSet myProd = myPartDoc.Productproducts1.AddComponent myPr ...
|
| In das Form CATIA V5 Programmierung wechseln |
