Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Dateiinfo von IDW-Zeichnungen

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

Anzeige:

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

Dieser Beitrag ist erfolgreich in das Forum Inventor VBA verschoben worden.

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
Autor Thema:  Dateiinfo von IDW-Zeichnungen (793 mal gelesen)
McBain05
Mitglied
Konstrukteur

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

Beiträge: 1
Registriert: 09.11.2011

Inventor 2010 Routed Systems, SP3
Win XP 64

erstellt am: 09. Nov. 2011 14:37    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,

ist es nicht möglich über VBA Informationen in die Dateiinfo zu schreiben?
In Excel ist die ja auch über:
ThisWorkbook.BuiltinDocumentProperties(5) = "Mein Titel"
möglich.
Wir bräuchten das bei uns für die AV, die ohne IV Arbeitet und im Explorer gleich die Blattgröße erkennen soll.
Die Blattgröße in die iProperties zu schreiben ist nicht das Problem:


-------------------------------------------------------------------------------
Dim zeichnung As DrawingDocument
    Set zeichnung = ThisApplication.ActiveDocument
    Dim blatt As Sheet
    Set blatt = zeichnung.ActiveSheet
   
    Dim Blattab As String
   
    Blattab = blatt.Height & " x " & blatt.Width
   
    If blatt.Width = "21" Then
        Blattab = "A4"
    End If
   
    If blatt.Width = "42" Then
        Blattab = "A3"
    End If
   
    If blatt.Width = "59,4" Then
        Blattab = "A2"
    End If
   
    If blatt.Width = "84,1" Then
        Blattab = "A1"
    End If
   
    If blatt.Width = "118,9" Then
        Blattab = "A0"
    End If
   
   
    On Error Resume Next 'wenn Blattgröße schon vorhanden
    zeichnung.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add Blattab, "Blattgröße"
    zeichnung.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Blattgröße").Value = Blattab
---------------------------------------------------------------------------------------------------------

Aber wie schon erwähnt, ich möchte diese Information in die Dateiinfo schreiben.
Bin über jede Hilfe Dankbar

Gruß
McBain05

 

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

Michael Puschner
Moderator
Rentner




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

Beiträge: 13003
Registriert: 29.08.2003

Toshiba Encore mit MS Office

Ein Programm sollte nicht nur Hand und Fuß, sondern auch Herz und Hirn haben.
(Michael Anton)

erstellt am: 09. Nov. 2011 16:19    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 McBain05 10 Unities + Antwort hilfreich

 
Zitat:
Original erstellt von McBain05:
... ist es nicht möglich über VBA Informationen in die Dateiinfo zu schreiben? ...

Ich verschiebe diesen Thread mal in das dafür vorgesehene IV-VBA-Forum.

Hier geht es dann weiter.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Mensch und Maschine Scholle GmbH

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


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

Administrative Optionen: Beitrag öffnen | Archivieren/Bewegen | Beitrag melden!

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

(c)2024 CAD.de | Impressum | Datenschutz