Datumsstempel in IDW

[tempranillo]

Hallo,
ich suche eine Möglichkeit, in einer IDW immer ein sich automatisch aktualiesierendes Datum abzubilden. Z.B bei jedem speichern.
Beim Dateinamen geht das, aber beim Datum??
(ähnlich beim AutoCAD "RText")
Machmal existieren halt mehrere Ausdrucke von unterschiedlichen Tagen und man weiss nicht, welche die neueste ist.
Gruß, Ivanka

[mziegler]

Das müsste mit der IProperty Collection 2.4 realisierbar sein.
Dort wird eine Eigenschaft namens SavedDate generiert.

Hilft dir das weiter?

Grüße

mziegler

[tempranillo]

nee, das tuts leider nicht.
in dieser variable ist wohl gespeichert, wann die Zeichnungsvorlage (templates) gespeichert wurde (bei mir halt März 2006) oder so.
aber dieses Datum aktualisiert sich nicht.
:-/

[mziegler]

Ich probier das mal aus ob man das vielleicht auch mit einem Makro hinkriegt.

Kann aber en bisschen dauern

EDIT:

Ich hab es mal mit der IProperty Collection ausprobiert(siehe Screenshot). Die Eigenschaft SavedDate und SavedTime kommt vom Bauteil - also nicht von der Zeichnung.

Um dieses Datum zu ändern musst du also das Bauteil oder die Baugruppe abspeichern. (Ist wohl nicht das was du brauchst, oder?)

ich such weiter .....

[mziegler]

Hier mal ein kleines "sehr" einfaches Makro. Es erstellt in der unteren linken Ecke eine Textbox mit der aktuellen Zeit. Automatisch läuft da aber noch nichts ab.

Public Sub SketchTextAdd()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    ' Create a new sketch on the active sheet.
    Dim oSketch As DrawingSketch
    Set oSketch = oDrawDoc.ActiveSheet.Sketches.Add

    ' Open the sketch for edit so the text boxes can be created.
    ' This is only required for drawing sketches, not part.
    oSketch.Edit

    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry

    ' Create text with simple string as input. Since this doesn't use
    ' any text overrides, it will default to the active text style.
    Dim sText As String
   
    sText = VBA.Date$ & "-" & VBA.Time$
    
    Dim oTextBox As TextBox
    Set oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(1.01, 1.5), sText)

    ' Exit the sketch from the edit environment.
    oSketch.ExitEdit
End Sub

[tempranillo]

Hey danke für Deine Mühen.
Aber das Problem bei Macros, die man jedesmal aktivieren / anklicken muß, vergisst man das sowieso dauernd.
Es sollte schon was sein, was automatisch abläuft...