Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Zeichnungs Schriftkopf ausfüllen

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
Autor Thema:  Zeichnungs Schriftkopf ausfüllen (1164 mal gelesen)
g
Mitglied
Maschinenbautechniker


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

Beiträge: 51
Registriert: 21.07.2009

erstellt am: 20. Jul. 2011 12:40    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

Wie kann mann bei Inventor 2011 per VBA Programm den Schriftkopf von einer bzw. mehrere Zeichnungen *.idw
ausfüllen ????


Gruß aus Bochum

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

RODER
Mitglied
Maschineningenieur


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

Beiträge: 494
Registriert: 04.01.2003

Inventor 2023 Pro
Win10 64Bit
i9-10900K 3.7GHz
64GB RAM
Nividia Quadro P2200
SpaceMouse

erstellt am: 20. Jul. 2011 13:04    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 g 10 Unities + Antwort hilfreich

Hallo erst mal

Grundsätzlich ja.
Schau dir mal folgendes an:

If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then

'Pfad von iProps
Set oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")

'Datum von System erhalten und in gewünschtes Format 1. April 2007
Datum = Mid(Date, 1, 10)

'Tag:
I = InStr(Datum, ".")
If I Then
    Tag = Val(Left$(Datum, I - 1))
    Datum = Mid$(Datum, I + 1)
Else
    Tag = Val(Left$(Datum, 2))
    Datum = Mid$(Datum, 3)
End If
If Tag = 0 Then MsgBox "Tag = 0! Aber wieso??", vbCritical, "ERROR"

'Monat
If I Then
    Monat = Val(Left$(Datum, I - 1))
    Datum = Mid$(Datum, I + 1)
Else
    Monat = Val(Left$(Datum, 2))
    Datum = Mid$(Datum, 3)
End If
'Monat in Wort umschreiben
If Monat = 0 Then
    Monat = Month(Now) 'Aktuellen Monat berücksichtigen
    If Tag < Day(Now) Then Monat = Monat + 1
End If
If Monat = 1 Then
    sMonat = "Januar"
    ElseIf Monat = 2 Then
    sMonat = "Februar"
    ElseIf Monat = 3 Then
    sMonat = "März"
    ElseIf Monat = 4 Then
    sMonat = "April"
    ElseIf Monat = 5 Then
    sMonat = "Mai"
    ElseIf Monat = 6 Then
    sMonat = "Juni"
    ElseIf Monat = 7 Then
    sMonat = "Juli"
    ElseIf Monat = 8 Then
    sMonat = "August"
    ElseIf Monat = 9 Then
    sMonat = "September"
    ElseIf Monat = 10 Then
    sMonat = "Oktober"
    ElseIf Monat = 11 Then
    sMonat = "November"
    ElseIf Monat = 12 Then
    sMonat = "Dezember"
    ElseIf Monat = 0 Then MsgBox "Monat = 0! Aber wieso??", vbCritical, "Toni"
End If

'Jahr
Jahr = Val(Datum)
If Jahr = 0 Then 'Aktuelles Jahr berücksichtigen
    Jahr = Year(Now)
    If DateSerial(Jahr, Monat, Tag) < Now Then Jahr = Jahr + 1
        ElseIf Jahr < 100 Then 'Aktuelles Jahrhundert berücksichtigen
        Jahr = Year(Now)
    End If

'Datum zusammensetzen
sDatum = CStr(Tag) + ". " + sMonat + " " + CStr(Jahr)
oPropSet.Item("PDFErstellt").Value = sDatum

End If

Und ansonsten die API Hilfe ist wirklich nützlich 

------------------
Grüsse, Toni

Rechtschreibefehler gehören dem findigen Finder

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