---

Hallo zusammen,

Arbeite seit kurzem mit Macros in Catia V5 R14. Meine Frage ist nun ist es eigentlich möglich ein Macro aufzunehmen der beim ausführen eine 2DZeichnung von dem aktuellen Part oder Produkt ableitet. Beim Ausführen des Macro’s soll ins „Drafting“ gewechselt werden als Formatgröße A0 gewählt und  die xy-plane soll als Vorderansicht genommen werden.
Mein Problem ist es das Macro so zu aufzubauen das das für jedes 3D Modell benutzbar ist.

Gruß
Oezi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
so wie du es dir vorstellst wird es nicht möglich und wenn nur mit sehr viel Programmieraufwand. Hier müssen mehrere Definitionen gesetzt sein. z.B. Welches Produkt/Part soll abgeleitet werden, welche Fläche/Kante soll als Bezugselement gewählt werden etc.
Da müsste man schon eine gewisse Logik bzw. ein Auswahlkriterium mit vorgeben bzw. Programmtechnisch definieren. Ob und in wie weit so etwas möglich ist, kann ich dir nicht sagen, da das  eigentlich normale Konstruktionsaufgaben sind und nicht jedes Modell gleich abgeleitet werden kann. Ich wüsste zu mindestens nicht was man als Referenzelement standardmäßig vorgeben könnte.

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

also ich seh da kein Problem, auch der programmieraufwand hält sich in grenzen, hab sowas ähnliches schon gemacht.

Als erstes musst du ein Part selektieren(automatisch nach kriterien oder manuell) in dem die ebene steckt für die Ansicht.
Wenn du das Part hast kommst ja leicht an die Ebene erst recht wenns die XY-Ebene sein soll.Von dieser musst du dann das Achsensystem auslesen das später an die Drwaing methode übergibst wenn die Ansicht definiert wird.Auch zwischen Fenstern wechseln und eine Zeichnung dazuladen usw. geht einwandfrei. Schau einfach mal in die automation Hilfe rein da steht eigentlich alles drin. Mit dem Rekorder wirst du hier nicht weit kommen.

Gruß Andi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mein Problem ist es ja immer noch das dies für alle Part's gelten soll.
Ich habe mir überlegt ob ich das durch einen InputBox abfangen kann, sprich
das programm fragt am anfang wie das teil heisst und führt dann das makro aus nur irgend wie kriege ich das im VB Editor nicht hin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
was genau bekommst du nicht hin? Die Inputbox?

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wieso über eine Inputbox, lass doch den Anwender das Part Selektieren??

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

bzw. frage erst mal ab ob nur ein Part (Product) und ggf. eine Zeichnung geladen hast. Dann hast du nur zwei Items in den Documents und kannst dann im SCript entscheiden z.B. Item(1) ist das Part (Produkt) und Item(2) die Zeichnung.
=> Also nehme Item(1) als Referenz.

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

soweit ich das recht verstehe ist folgendes als "Lösung" tragbar...dank der Tatsache dass V5 als Projektionsebene (ähnlich wie beim sketcher) keine wirkliche Ebene verwaltet (oder uns vbsl'ern zur Verfügung stellt) ;-)

Code:

---

Sub CATMain()
Set oDocument3D = CATIA.ActiveDocument
Set oProduct3D = oDocument3D.Product
Set oDrawingDocument = CATIA.Documents.Add("Drawing")

Set oSheet = oDrawingDocument.Sheets.Item(1)
oSheet.PaperSize = catPaperA0
Set oView = oSheet.Views.Add("GeneratedView")
Set oGenerativeBehavior = oView.GenerativeBehavior
oGenerativeBehavior.Document = oProduct3D
oGenerativeBehavior.SetProjectionPlane 1., 0., 0., 0., 1., 0.
oGenerativeBehavior.Update
End Sub

---

Gruss,

Kai

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP