|
CATIA V5 Programmierung : Schleife
bgrittmann am 17.11.2011 um 22:06 Uhr (0)
ServusOhne es getestet zu haben würde ich es so versuchen:Code:Language="VBSCRIPT"Sub CATMain()Set productDocument1 = CATIA.ActiveDocumentSet product1 = productDocument1.ProductSet parameters1 = product1.ParametersSet intParam1 = parameters1.Item("XY")Set oProd2Part = product1.GetItem("DECProductToPart")for i = 1 to 10intParam1.Value = ioProd2Part.RunsError = oProd2Part.GetErrorIf sError "" Then MsgBox sError, 16, " Ausnahmefehler DECProductToPart. Abbruch." exit subEnd IfSet oAllCATPart = oProd2Part.Ge ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatensysteme kongruent setzen
wulfgang am 18.02.2010 um 09:40 Uhr (0)
Guten Morgen, ich könnte bei folgendem Problem etwas Hilfe gebrauchen. Ich mächte ein Koordinatensystem mit einem anderen kongruent setzen um mir Umrechnungen zu sparen. Beide Koordinatensyteme befinden siich in zwei verschiedenen Parts, die sich wiederum in einem gemeinsamen Part befinden.Zuerst suche ich nach diesem Koordinatensytem:Code:Dim SelectList As SelectionSet SelectList = CATIA.ActiveDocument.SelectionSelectList.ClearSelectList.Search "Name=Koordinatensystem;all"Dies funktioniert auch.Bei dem fo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatensysteme kongruent setzen
Jens Hansen am 18.02.2010 um 10:17 Uhr (0)
Hallo,2 separate Parts die sich wiederum in einem Part befinden? Wie geht das denn? Meinst du vielleicht in Product?Hast du mal kontrolliert, wie viele Elemente sich in SelectList befinden? Lass mal ggf. die DIM-Anweisung weg und benutze einfach nur SET.SGJens Hansen------------------Inoffizielle CATIA-HilfeseiteHomepage von Jens HansenKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatensysteme kongruent setzen
V5Playaz am 18.02.2010 um 14:57 Uhr (0)
Die Watch-List kannst du z.B. dazu benutzen dir die CATIA-interne-Struktur anzeigen zu lassen.Oder auch um deine Selection/Suche genauer zu betrachten.Hast du deine Vorgehensweise mal händisch probiert und vielleicht sogar mal mit dem Makrorekorder aufgezeichnet?Grüsse Dominik
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatensysteme kongruent setzen
zoltan.bekesi am 19.02.2010 um 18:30 Uhr (0)
Hallo wulfgang,das was du tun willst geht einwandfrei mit CATIA, du musst dir nur was anderes ausdenken, um die Parts anzusprechen.Als erstes anbei der aufgezeichneter Code (VBA), um 2 Koordinatensysteme koinzident zu definieren (mit Kommentare ergänzt):Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentProduct, indem du die 2 Parts hastDim product1 As ProductSet product1 = productDocument1.ProductDim constraints1 As ConstraintsSet constraints1 = product1.Co ...
|
| In das Form CATIA V5 Programmierung wechseln |
TestCATIA.zip |
CATIA V5 Programmierung : Koordinatensysteme kongruent setzen
wulfgang am 21.02.2010 um 12:38 Uhr (0)
Hallo, es ist doch noch eine Frage aufgekommen. Angenommen das zweite Teil hat kein Koordinatensysten und ich will den Ursprung des zweiten Teils kongruent mit einem Koordinatensystem aus dem ersten Teil setzen, kann ich dies ja händisch machen. Ich habe das ganze auch mal aufgezeichnet.Verstehe bloß die Zeile nicht:Code:Set reference2 = product1.CreateReferenceFromName("KongruentKS/TEIL1.1/!Selection_RSur:(Face:(Brp:(AxisSystem.2;1);None:();Cf11:());AxisSystem.2;InSameTool;Z0;G2906)")E ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatensysteme kongruent setzen
Ivanl am 18.11.2011 um 17:03 Uhr (0)
Hallo zusammen, habe auch gerade die Problematik das ich zwei Koordinatensysteme von zwei verschiedenen Parts aufeinander legen möchte. Ich wollte es auch über Referenzen machen und habe es genauso wie Zoltan gemacht.----------------------------------------------Sub CATMain() Set productDocument1 = CATIA.ActiveDocumentSet product1 = productDocument1.ProductSet products1 = product1.ProductsDim constraints1 As ConstraintsSet constraints1 = product1.Connections("CATIAConstraints")Dim ref2 As ReferenceSet ref ...
|
| In das Form CATIA V5 Programmierung wechseln |
HS42.catvba.zip |
CATIA V5 Programmierung : Makro Achsensystem mit allen Elementen veröffentlichen
udmmm am 20.11.2011 um 18:01 Uhr (1)
Hallo Zusammen, ich habe mit dem Buch "Catia Automatisieren" versucht ein neues Makro zu schreiben. Im Anhang ist mein Versuch. Das Makro soll zum Aufrufen eines Achsensystems auffordern (funktioniert), anschliessend wird das Achsensystem umbenannt (funktioniert). Am Ende sollen alle Elemente von dem Achsensystem (x-, y-, z- Achse, Origin, xy-, yz- und zx-Ebene) und das Achsensystem selbst veröffentlicht und mit dem Namen des Achsensystems versehen werden. Beispiel:selektieren von Achsensystem.2umbenennen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stack Size verringern per Skript
imation1999 am 19.11.2013 um 12:22 Uhr (1)
Hallo Thomas, hallo Bernd,vielen Dank Eure Antwort.also: "i" bleibt immer auf 1.Es wurde immer das gleiche Part aufgerufen.Ich habe mein Code so geändert:Code:Sub Scan(product1)Set selection1 = CATIA.ActiveDocument.SelectionFor i = 1 To product1.Count If product1.Item(i).Products.Count 0 Then Set product2 = product1.Item(i).Products Scan product2 Else Set part1 = product1.Item(i).ReferenceProduct.Parent.Part End If NextEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mit Design Table knüpfen
bgrittmann am 19.11.2013 um 19:02 Uhr (1)
ServusVon einen Part aus kannst du zB so auf die DesignTabel zugreifen:Code:Sub CATMain()Dim partDocument1 As partDocumentDim part1 As partDim relations1 As RelationsDim designTable1 As DesignTableSet partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.partSet relations1 = part1.RelationsSet designTable1 = relations1.Item(1)End SubVon einer Zeichnung aus auf das Part/Product zu kommen kann schwierig werden (siehe auch hier).Mit der Funktion "GetOutParameter" könntest du ggf die richtige Spalte de ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro zum Ändern von Texten in Details
bgrittmann am 20.11.2013 um 22:21 Uhr (1)
ServusProbiere es mal so (ungetestet):Code:Sub CATMain()Dim drawingDocument1 As DrawingDocumentDim selection1 As SelectionDim sOldString As StringDim sNewString As StringDim oText As DrawingTextSet drawingDocument1 = CATIA.ActiveDocumentSet selection1 = drawingDocument1.Selectionselection1.Search "CATDrwSearch.DrwText,all"sOldString = InputBox("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Test")sNewString = InputBox("Zu ersetzenden Namen oder Nummer eingeben", "Test")For I = 1 To selection1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehlermeldung unterdrücken
doni211 am 21.11.2011 um 09:39 Uhr (0)
Als Alternative hab ich gerade den Tipp eines Kollegen bekommen, das Konfiguriern des Befehls einzubauen. Damit wär mein Problem ja auch gelöst.Das wäre:Catia View Toolbars customize Commands Categorie: All Commands Isolate (das ohne Description: Removes the associativity with the point) Show Properties User Alias: "Isolate_VBA"Wüsste aber auch nicht wie man das programmieren könnte...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Einfügen eines vom User ausgewählten Parts innerhalb eines Produktes ohne Verknüpfung
Beny am 22.11.2011 um 10:54 Uhr (0)
Hallo Leute,Ich bastel gerade an einem Makro, wo ein User ein Product geöffnet hat, in dem er ein Part auswählt. Dieses soll dann in einem von meinem Makro erstellten Unterprodukt Tot eingefügt werden. (Per COPY/Paste) wenn ich das in Catia versuche, kann ich bei Paste Spezial des Objektes "Verknüpfung aufbrechen" auswählen.Was mus sich in meinem Makro hinter paste Spezial schreiben, damit es das auch bei mir macht?Auszug aus dem Makro da dieses leider zu Groß zum Posten ist: UserSel1.Copy Usersel2.Clear ...
|
| In das Form CATIA V5 Programmierung wechseln |
