|
CATIA V5 Programmierung : Wie komme ich an das Dokument meiner Selektion?
picard am 16.06.2005 um 13:56 Uhr (0)
Danke für die Antwort. Leider sind unterhalb von Value keine Variablen vorhanden. Ich habe es nun aber hinbekommen mit: Code: Dim MySelection As Selection Set MySelection = CATIA.ActiveDocument.Selection Dim MyProductDocument As Document Set MyProductDocument = MySelection.Item(1).Reference.Parent.Item(MySelection.Item(1).Reference.Name).ReferenceProduct.Parent Danke für die Hilfe, Gruß Picard
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Syntax des Goto-Befehls
Markus_88 am 16.06.2005 um 14:24 Uhr (0)
Hallo! Ich will über den Goto Befehl zurück zum Schleifenanfang springen. Als Syntax habe ich die gleiche gewählt, wie in Visual Basic 4.0 . Bsp.: i=1 Schleife: If i 10 then MsgBox( Juchu ) Else i=i+1 Goto Schleife End If Wenn ich dieses Programm in Excel starte, gibt es keine Probleme, in Catia bringt er eine Fehlermeldung Anweisung von Goto nicht gefunden . Hat Catia eine andere Syntax? Im Voraus schon mal vielen dank Gruß Markus
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Syntax des Goto-Befehls
3.1415926535 am 16.06.2005 um 14:49 Uhr (0)
Der Befehl funktioniert in Excel wegen VBA (Visual Basic for Applications). Im CATIA-Script funktioniert das GoTo leider nicht...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Datei in Drawing einfügen
summertime am 16.06.2005 um 15:36 Uhr (0)
Zitat: Original erstellt von mutzi: Hallo Gibt es eine Möglichkeit, eine beliebige Datei (keine Catia Datei) per Skript in ein Drawing einzufügen? Der Makkrorecorder zeichnet bei diesem Befehl nämlich nichts auf. Gruß mutzi Hallo, wie funktioniert es denn manuell? mfg thomas
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Datei in Drawing einfügen
prosper am 16.06.2005 um 19:41 Uhr (0)
Sub CATMain() Set opic = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(1).Pictures Set onewpic = opic.Add( C:your_pic.bmp , 100, 100) End Sub Ein Drawing muss bereits offen sein
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verschiebung XYZ sowie Drehung XYZ
Steffen Hohmann am 16.06.2005 um 17:37 Uhr (0)
Hallo vogy, da ist leider ein kleiner Fehler drin. Diese Berechnung basiert auf einem linkshändigen Achsensystem. CATIA rechnet aber mit rechtshändigen Achsensystemen. Du mußt das also noch umrechnen. Aber Du schaffst das schon. Gruß Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verschiebung XYZ sowie Drehung XYZ
Steffen Hohmann am 17.06.2005 um 10:39 Uhr (0)
Ich habe noch was vergessen. Das Ganze in CATIA-Sprache sieht dan so aus: arrayOfVariantOfDouble1(0) = cos(Y)*cos(P) arrayOfVariantOfDouble1(1) = sin(Y)*cos(R)+cos(Y)*sin(P)*sin(R) arrayOfVariantOfDouble1(2) = sin(Y)*sin(R)-cos(Y)*sin(P)*cos(R) arrayOfVariantOfDouble1(3) = -sin(Y)*cos(P) arrayOfVariantOfDouble1(4) = cos(Y)*cos(R)-sin(Y)*sin(P)*sin(R) arrayOfVariantOfDouble1(5) = cos(Y)*sin(R)+sin(Y)*sin(P)*cos(R) arrayOfVariantOfDouble1(6) = sin(P) arrayOfVariantOfDouble1(7) = -cos(P)*sin(R) arrayOfVariant ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzpunkt erzeugen
AlfaRomeo75 am 20.06.2005 um 09:26 Uhr (0)
Hallo, hab da mal ne Frage! Ich möchte einen Punkt in Bezug auf einen Referenzpunkt erzeugen(besser wäre in Bezug auf ein Achsensystem). Ich bekomme bei folgendem Code aber immer eine Fehlermeldung! Was mache ich falsch? (Fange gerade erst mit der Makroprogrammierung an!) Vielen Dank im Vorraus! Hier nun mein Code: Sub CATMain() Dim aPart As Document.Part Set aPart = CATIA.ActiveDocument.Part Dim HB as HybridBody Set HB = aPart.HybridBodies.Item ( Punkte ) Auswahl festlegen ------------------------ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erzeugen/Löschen von Dokumenten
schotti am 20.06.2005 um 12:19 Uhr (0)
Hallo, Ich bin auf ein neues Problemchen gestoßen. Dieses lautet: Ich füge in mein Strukturbaum neue Komponenten zu (Part, Product) anschließend lösche ich diese wieder. In den Documents (CATIA.Documents) sind nach dem löschen jedoch alle Komponenten weiterhin vorhanden. Kennt jemand eine Lösung, wie ich die Komponenten auch aus den CATIA.Documents entferne? ------------------ MfG schotti
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Change Body per Macro
V5-Maxe am 20.06.2005 um 14:37 Uhr (0)
Hallo , ich brauch mal jemanden, der mir auf die Sprünge hilft: Ein Element in einen anderen OpenBody zu schieben (Change Body) ist ja ganz einfach, wenn dies aber per Macro geschehen soll, wird es schon schwierig. Ich habe es nur geschafft, ein neu erzeugtes Element einem bestimmten OpenBody zuzuweisen, Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim Selection As Selection Set Selection = partDocument1.Selection ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erzeugen/Löschen von Dokumenten
Steffen Hohmann am 20.06.2005 um 15:23 Uhr (0)
Hallo schotti, ich würde mal sagen mit: CATIA.Documents.Item(XXX).Close Gruß Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzpunkt erzeugen
Zwenne12 am 20.06.2005 um 15:23 Uhr (0)
Hi Thomas, müsste mit folgendem Code funktionieren: Sub CATMain() ... ... Was(0) = AxisSystem ... ... If RP = Normal Then MsgBox(UserSel.Item(1).Value.Name & wurde ausgewählt! ) Else MsgBox ( Abbruch ) End If Dim RefPunkt as AnyObject Set RefPunkt = UserSel.Item (1).Value Dim Ref As Reference Set Ref = CATIA.ActiveDocument.Part.CreateReferenceFromObject(RefPunkt) Dim OriginPoint1 As AnyObject Set OriginPoint1 = RefPunkt.OriginPoint Selektion freigeben ---------------------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linie Selektieren und Richtung auslesen
gv am 20.06.2005 um 23:36 Uhr (0)
deine selectierte line. wenn du die line aufm screen clickst,bekommst du ein edge element, wenn du die lineentweder "einfensterst", oder im tree selectierst, becommst du einline elementSet my_sel = CATIA.ActiveDocument.Selectionsucht in der selection die selectierten und uebergeordneten objectenach linien ab, du kannst also entweder die edge aufm screen, oderdie line im tree selectierenSet my_line = my_sel.FindObject("CATIAHybridShapeLine")das array fuer den richtungs vectorDim my_direction(2)tut die drei ...
|
| In das Form CATIA V5 Programmierung wechseln |
