---

hat jemand eine Idee, wie man in Catia V5 ein Datum automatisch ertellen lassen kann.
Hintergrund ist der, dass auf ausgedruckten oder als PDF erzeugte Zeichnungen die Zeichnungsstände nicht zu erkennen sind, wenn nicht extra händisch ein Datum eingetragen wurde.
Ideal wäre ein automatisches "Einfrieren" des Speicherdatums, sichtbar auf der Zeichnung.

Hat hierzu jemand eine Idee, wie so etwas funktionieren könnte.

Danke,

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

---

Servus
Fall du das pdf per PDF-Drucker erstellst, könntest du einfach die Infozeile mit dem Datum aktivieren (bzw entsprechend definieren).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo!
Hast du mittlerweile eine Lösung gefunden?
Wir haben das mit einem Makro gemacht. Das Textfeld, in dem das Datum eingetragen werden soll, enthielt einfach "-Datum-" (ohne Anführungsstriche). Das Makro war im Prinzip ein Suchen+Ersetzen mit Suche: "-Datum-"; Ersetze: "aktuelles Datum". Den pdf-Export machst du ja sicher auch schon mit einem Makro, sofern es mehrere Zeichnungen sind. Da kannst du die paar Code-Schnipsel mit reinbasteln. Noch ein on error next dazu, dass das Makro nicht hängen bleibt, sofern es kein Datums-Textfeld findet und gut is 

Beste Grüße,
Daniel

------------------
Die geistige Umnachtung zählt zu meinen persönlichen Highlights und im "Dumm aus der Wäsche Gucken" macht mir so schnell keiner was vor.
Meine Taktlosigkeit eckt stets an.
Möglich machen das sowohl die 2 Maggiflaschen, als auch der Teller bunter Knete in meinem Kopf.
Das unkontrollierte Aneinanderschlagen der Synapsen ist mein Antrieb.
Ich bin einer der Gottes eigenen Prototypen, die niemals in Serie gehen werden.

Was auch immer das bedeuten mag...

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

---

Zitat:

---

Original erstellt von Studentla:
.. Noch ein on error next dazu, dass das Makro nicht hängen bleibt, sofern es kein Datums-Textfeld findet und gut is  

---

...oder sauber abfangen 

Wir machen das auch per Makro, allerdings beim Erstellen und Füllen des Kopfes. Lässt sich aber sicherlich ohne Probleme auch bei der PDF-Generierung verankern. BTW würde ich aber nicht irgendwelche Texte nehmen, sondern das Textfeld entsprechend benennen. z.B. Feld_Datum_Druck oder so. Lässt sich per Makro alles machen.

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

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Hallo,

ich habe dir mal etwas aus dem .Net von mir zusammen gewürfelt. Das funktioniert so natürlich noch nicht, da die Objekte nicht klar definiert sind, die Funktionen sind allerdings alles schon in Ordnung...

Code:

---

    GenerateFormattedTextBox(tmpView, Date.Now, 150, 150, SheetName & "Feld_Datum_Druck", catMiddleLeft, 2, 0)
    WritePrintDate(tmpSheet, tmpView)

    Public Sub WritePrintDate(ByVal tmpSheet As DrawingSheet, ByVal tmpView As DrawingView)

        Dim tmpTexts As DrawingTexts
        Dim tmpText As DrawingText
        Dim SheetName As String

        Try

            tmpTexts = tmpView.Texts
            SheetName = tmpSheet.Name.Substring(InStr(tmpSheet.Name, "."))

            For i = 1 To tmpTexts.Count

                tmpText = tmpTexts.Item(i)
                If InStr(tmpText.Name, "Feld_Datum_Druck") Then
tmpText.Text = Date.Now
                End If
                Application.DoEvents()

            Next

        Catch ex As Exception

            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Fehler in Modul WritePrintDate")
            Application.DoEvents()

        End Try

    End Sub

    Public Sub GenerateFormattedTextBox(ByVal tmpView As DrawingView, ByVal textValue As String, ByVal pos_x As Double, ByVal pos_y As Double, ByVal textName As String, _
                                ByVal anchorPosition As String, ByVal size As Double, ByVal angle As Double)

        Dim NewText As DrawingText

        Try

            NewText = tmpView.Texts.Add(textValue, pos_x, pos_y)
            NewText.Name = textName
            NewText.SetFontName(0, 0, "Monospac821 BT")
            NewText.SetFontSize(0, 0, size)
            NewText.AnchorPosition = anchorPosition
            NewText.Angle = angle

        Catch ex As Exception

            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Fehler in Modul GenerateFormattedTextBox")
            Application.DoEvents()

        End Try

    End Sub

---

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

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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