|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
imation1999 am 18.04.2013 um 12:55 Uhr (0)
Hier muß man also zu einem Trick greifen.Zuerst speichert man die einzelnen Elemente der Selection in ein Array:Code:Dim SelElemente() As ObjectReDim SelElemente(Selection1.Count) For i = 1 To Selection1.Count Set SelElemente(i) = Selection1.Item(i)Next iDann löscht man die Selection und weist der Selection einzeln die gespeicherten Objecte zu:Code:For i = 1 To UBound(SelElemente) Selection1.Clear Selection1.Add SelElemente(i).Value ... .. .Next iSo kommst Du in Bohrung rein:Code:Sub CATMain()Dim partDocum ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Regel erstellen mit Booleschen Operator als Ergebnis
JanHendrik am 02.11.2016 um 11:18 Uhr (5)
Hallo,momentan habe ich ein kleines Problem bei der Erstellung einer Regel in CATIA. Der Regel möchte ich eine Länge (alternativ eine reelle Zahl) übergeben und als Ergebnis einen Booleschen Operator bekommen. Bisher habe ich das hier:if(spurweite363mm){ecke=true}else{ecke=false}Hierbei ist die spurweite als Länge und die ecke als Boolean definiert.Nun würde ich die Regel mit einer Formel aufrufen: Ecke=BeziehungenRegel.1.Evaluate(Spurweite)Leider erhalte ich dann eine Fehlermeldung:"Syntaxfehler in Zeile ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erkennen und entfernen von doppelten Bauteilen in Baugruppen
DeVraN am 24.08.2019 um 20:37 Uhr (1)
Servus bgrittmann,leider ist da keine Systematik erkennbar. Viele Gleichteile haben auch gleiche PartNumber und wiederrum haben andere unterschiedliche PartNumber, obwohl es die gleichen Teile sind. Das liegt daran, dass unterschiedliche Konstrukteure an dem Produkt gearbeitet haben und jeder seine Marotten hat.Hier im Forum hatte ich mal einen VBA Script gefunden, mit der man zwei Bauteile laden und geometrisch vergleichen konnte. Als Ausgabe kam die Meldung, ob Differenzen vorhanden sind oder nicht.In me ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Öffnen der Toolbox
big bob am 04.07.2011 um 14:55 Uhr (0)
Hallo allerseits,seit einigen Tagen mache ich meine ersten Schritte mit CATSkript. Bei meinem Versuch einen einfachen Kreis zu zeichnen, habe ich beim Öffnen der Toolbox Probleme. Der Compiler erkennt die Anweisung "OpenEdition" nicht. Ich hab schon einige Beispielquellcodes etc durchlaufen lassen, doch nichts funktioniert.Hier die Unterroutine:Sub Konstruktion () Dim BauteilDim DokumentSet Dokument = CATIA.Documents.Add ("Part") Set Bauteil = Dokument.Part Dim Skizzen Set Skizzen = Bauteil.MainBody.Sketch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzkreis ändern
denyo_1 am 24.06.2008 um 14:07 Uhr (0)
Hallo,Code:For i = 1 To oSel.CountSet oBallon = oSel.Item(i).ValueIn der ersten Zeile fängt die Schleife an und zwar von 1 bis zur Anahl aller in der Selektion vorhandenen Teile. In der Selektion sind natürlich alle auf der Zeichnung verfügbaren Ballons.In der zweiten Zeile wird jetzt jeder Ballon einzaln angesprochen. Zuerst kannst du alle zugängigen Eigenschaften des ersten, dann des zweiten usw. Ballons ändern.Du müsstest also das mit der Schriftart und der Pfeil nach der zweiten Zeile einfügenHier mal ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehler bei Erzeugung einer Tasche
Thomas_79 am 16.05.2003 um 16:07 Uhr (0)
Hallo, ich arbeite mit VB.NET und erzeuge über ein Programm eine Tasche(myPocket). Diese möchte ich an einer Stelle verrunden durch folgenden Quellcode: +++++++++++++++++++++++++++++++++++++++++++++ Public Sub SetRadius(Radius as Double) Dim reference1 As INFITF.Reference Dim reference2 As INFITF.Reference Dim constRadEdgeFillet As PARTITF.ConstRadEdgeFillet Dim refname As String Dim myShapeFactory As PARTITF.ShapeFactory = Me.myPart.ShapeFactory refname = GetRefNameForRadius(myPocket ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
dersummi am 24.11.2006 um 14:32 Uhr (0)
Also erstmal danke für die Arbeit!Im deutschen funzt es ausgezeichnet mit den Achsensystemen!Nun habe ich versucht es auch im Englischen hin zu bekommen! Laut Suchstring sollte der Typ , wie von dir angegeben, "Axis System" sein! Also habe ich es so versucht wie von dir vermutet! Leider ohne Erfolg! woran kann es noch liegen? hast du eine Idee? Muß es noch hinbekommen das es auch im Englischen funktioniert! Alternativ kann ich das Problem vll auch Methodisch lösen, in dem ich Vorgebe das die Systeme immer ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bedingungsrichtung umkehren
kernrot am 01.08.2012 um 12:02 Uhr (0)
Hallo,ich möchte via VBA die Richtung einer Abstandsbedingung ändern.Die Richtung der Bedingung Abstand soll, wie im Screeshot zu sehen, gedreht werden.Mit manuellen klicken auf Position ändern für die Bedinung funktioniert es wunderbar.In der Aufzeichung quasi wird alles in der Zeichung angefasst und Werte geändert, also nicht wirklich nützlich.Relevante Funktionen laut Manual sind "Side" und "Orientation", wenn ich das recht verstehe, also folgendes Script erstellt:Code:Sub Test()Dim part As partSet part ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hide/Show
Tamo am 21.02.2012 um 10:22 Uhr (0)
So habe ich es nun gelöst.Kann man das noch irgendwie verschlanken/optimieren?Set partDocument1 = CATIA.ActiveDocumentSet selection1 = partDocument1.SelectionSet visPropertySet1 = selection1.VisPropertiesSet part1 = partDocument1.PartSet bodies1 = part1.BodiesSet body1 = bodies1.Item("Part01_mounted")Set hybridBodies1 = body1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("Seam_mounted")Set hybridShapes1 = hybridBody1.HybridShapesSet hybridShapeSplit1 = hybridShapes1.Item("Split.151")Set hybridShapes1 = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linientyp im Darwing ändern
denyo_1 am 16.07.2008 um 16:50 Uhr (0)
Hallo TheCW,eigentlich sollten dort alle Linien einer aktiven View aufgezählt werden. Kann es sein, das du kein View aktiviert hast sondern ein Blatt?Um alle Linen sauber umzustellen braucht du 2 Schleifen:Schleife 1: Alle Blätter durchlaufenSchleife 2: Alle Views auf den Blättern durchlaufenHier mal ein Auschnitt eines Makro das die GeoElements aus Views löscht. Die Views dürfen dabei nicht auf Detail-Blättern liegen, da diese nicht beachtet werden.Code:Set oDRWDoc = CATIA.ActiveDocumentDim oSel As Select ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : automatisiertes Erstellen von Screenshots anhand Annotated Views
Manu_b am 12.06.2008 um 09:51 Uhr (0)
Hallo Daniel,ich bin begeistert. Nach geringen Modifikationen macht das Makro genau das, was wir benötigen..Kann man nicht auch 100 Unities vergeben Folgende Zeilen habe ich angepasst:- Dim Name As String, produziert bei mir eine Fehlermeldung (Anweisungsende erwartet), diese Zeile habe ich auskommentiert- CATIA.ActiveWindow.ActiveViewer.Reframe auch diese Zeile habe ich auskommentiert, weil er das gesamte Produkt damit weit weg zoomt, und wir dann die anmerkungen etc. nicht mehr lesen können. nun bekommen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausrichtung Circle2D
MarkS. am 06.12.2012 um 16:35 Uhr (0)
Hallo roccat,leider hält sich Catia nicht immer an die Regeln, wie ich es gestern erst angenommen hatte. Ich habe mal etwas mit der Funktion "GetParamExtents" rumgespielt, welche Bernd vorgeschlagen hatte.Vllt. hilft Dir der Ansatz etwas weiter...Code:Function GetCircleGCode(circle2D1 As Variant, dStartX As Variant, dStartY As Variant) As StringDim coordCenter(1)Dim circle_angle(1)Dim dirVec(1)Dim pktStart(1)Dim pktEnd(1)Dim pktRot(1) circle2D1.GetCenter coordCenter circle2D1.GetParamExtents circle_angle ...
|
| In das Form CATIA V5 Programmierung wechseln |
