i properties ändern (Autodesk/Inventor VBA)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: i properties ändern (1519 mal gelesen)

Ronald_L
Mitglied
Dipl. Ing. (FH) Maschinenbau, Konstrukteur

Senden Sie eine Private Message an Ronald_L

Schreiben Sie einen Gästebucheintrag für Ronald_L

Beiträge: 135
Registriert: 07.02.2003

HP PC
Intel(R) Xeon (R) CPU 3.2 GHz
RAM 8GB
64 Bite Betriebssystem W7
Grafikkarte Nividia Quadro 1800 FX
INV 2011 SP1
Vault Collaboration 2011

erstellt am: 08. Dez. 2004 11:41

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo,

ich habe ein Macro in der idw zu laufen das die letzte Speicherung der idw automatisch im Datumsfeld einschreibt. Dieses Macro zeigt mir im Bauteil (ipt) unter Benutzerdefiniert das letzte gespeicherte Datum an.
Nun habe ich überlegt ob es nicht eine Möglichkeit gibt, das Erstellungsdatum so zu ändern, dass immer der letzte Speicherstand in diesem Feld angezeigt wird. Demzufolge müste man aus Erstellungsdatum letzte Änderung machen oder ähnliches.
Hant jemand eine Ahnung ob dies überhaupt moglich ist?

Danke im voraus für eure Anworten
Ronald

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

Infos zum Werbeplatz >>

cseTools ALKIS CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie

cseTools ALKIS dient zum Einlesen und Verwenden von ALKIS-Daten in das CAD-Basissystem. Dabei bleibt die Performance des CAD hoch, da die Daten nicht direkt in die DWG, sondern eine separate Datenbank eingelesen werden. Im CAD selbst werden diese nur für den sichtbaren Bereich geladen und angezeigt.

VOSTA1
Mitglied
techn. Angestellter

Senden Sie eine Private Message an VOSTA1

Schreiben Sie einen Gästebucheintrag für VOSTA1

Beiträge: 108
Registriert: 23.12.2002

erstellt am: 16. Dez. 2004 15:43

<-- editieren / zitieren -->

Unities abgeben:

Nur für Ronald_L

Hallo!

Versuchs mal damit
++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub Erstellungsdatum()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim Erstelldatum As String
Dim Datum As String

Datum = Mid(Date, 1, 10) 'Datum wird 10 Stellig formatiert zB. 12.12.1999
MsgBox "Datum : " & Datum

'Liest das Erstellungsdatum aus
Erstelldatum = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value

MsgBox "Erstelldatum : " & Erstelldatum

'Setzt das Aktuelle Datum mit der date Funktion
oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value = Date

MsgBox "Erstelldatum aktuell : " & oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value

End Sub

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)