Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Plotdatum

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Alfatech wählt ZW3D für bessere Lötpaletten für die Leiterplattenindustrie
Autor Thema:  Plotdatum (246 mal gelesen)
Thomas Bischof
Mitglied



Sehen Sie sich das Profil von Thomas Bischof an!   Senden Sie eine Private Message an Thomas Bischof  Schreiben Sie einen Gästebucheintrag für Thomas Bischof

Beiträge: 17
Registriert: 15.09.2004

erstellt am: 16. Feb. 2005 15:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Zusammen,

hat jemand ein Tool um das Plotdatum auf die idw zu setzten.
Ich habe mich gerade durch das Archiv gewühlt und von Richard (riysche) das unten stehende Tool gefunden. Einziges Manko ist, dass das Datum nicht automatisch aktuallisiert wird.
Da ich von VBA keine Ahnung habe, habe ich die Frage ob jemand die passenden Zeilen liefern kann, wo dann das Datum beim Plotten aktuallisiert wird?
Danke im Voraus!
Thomas

Public Sub AddSysDateTime()
   
    On Error Resume Next
   
    'Check if the active document is a Drawing
    If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
   
    'Add a custom property "SysDate" with system date
    Set oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
    'As a workaround the property must be delete because it can not be changed
    oPropSet.Item("SysDate").Delete
    Call oPropSet.Add(Date, "SysDate")
   
    'Add a custom property "SysTime" with system time
    Set oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
    'As a workaround the property must be delete because it can not be changed
    oPropSet.Item("SysTime").Delete
    Call oPropSet.Add(Format(Time, "hh:mm"), "SysTime")
   
    End If
End Sub

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz