Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Zugriff auf iProperties Allgemein Tab

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
Autor Thema:   Zugriff auf iProperties Allgemein Tab (156 mal gelesen)
OibelTroibel
Mitglied
Konstrukteur


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

Beiträge: 301
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 10. Nov. 2020 09:08    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

Ich versuche den Wert von "Erstellt:" auf dem Tab "Allgemein" in den iProperties auszulesen um diesen mit dem Erstellungsdatum auf dem Projekt-Tab zu vergleichen. Wenn das Erstellungsdatum kleiner als das "Erstellt:" Datum, soll dieses gleich dem "Erstellt:"-Datum sein und den aktuellen Benutzer als Konstrukteur in die iProperties schreiben.

Kann mir da jemand weiterhelfen?

Beste Grüsse
Raphael

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik


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

Beiträge: 1662
Registriert: 15.11.2006

Windows 10 x64, AIP 2021

erstellt am: 10. Nov. 2020 10:30    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 Nur für OibelTroibel 10 Unities + Antwort hilfreich

Hallo

Der iProp Erstellungsdatum ist kein iProp, sondern kommt aus den Dateieigenschaften. Im VBA-Editor unter "Extras"-->"Verweise" den Haken bei "Microsoft Scripting Runtime" setzen, sonst funktioniert das FileSystemObject nicht.
Ungetestet, aber so in etwa:

Code:

Option Explicit

Private Sub Datumsvergleich()

Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDoc As Document
Set oDoc = oApp.ActiveDocument

Dim oPropDate As Date
oPropDate = oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value

Dim oFS As FileSystemObject
Set oFS = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = oFS.GetFile(oDoc.FullFileName)

Dim oFileDate As Date
oFileDate = Format(oFile.DateCreated, "DD.MM.YYYY")

If oPropDate < oFileDate Then
    oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value = oFileDate
    oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Designer").Value = oApp.UserName
End If


End Sub


------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

OibelTroibel
Mitglied
Konstrukteur


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

Beiträge: 301
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 10. Nov. 2020 11:32    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 Ralf

Herzlichen Dank für deine schnelle Lösung. Ich werde es heute noch testen, aber es liest sich schon mal genau nach dem was ich brauche
Volle 10 Ü's für dich.

Beste Grüsse
Raphael

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

OibelTroibel
Mitglied
Konstrukteur


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

Beiträge: 301
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 10. Nov. 2020 11:38    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

Wow Ralf, ich wünschte ich könnte auch ohne es zu testen eine solche Punktlandung hinlegen. chapeau
Macht genau was es soll

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)2020 CAD.de | Impressum | Datenschutz