---

Bekomme ich irgendwie den Monat und das Jahr in ein Textfeld?
Bis jetzt haben wir es immer händisch geändert nur da müsste es doch eine Möglichkeit geben oder?
Monat mir führender Null
Und Jahr 4 Stellig

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Hallo,

Es gibt die Zeichnungseigenschaft "Erstelldatum", beinhaltet allerdings auch den Tag.

------------------
mfg - Leo

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

---

Das verändert sich nehme ich an nicht...
Das aktuelle Datum gibt es nicht?
Letzter Speichervorgang oder so?

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Du willst also auf bestehenden Zeichnungen ein Datum das sich ändert?
Da musst Du Dir auch Gedanken über die Zeichnungsfreigabe und Revisionierung machen.

Es gab mal was mit dem Plotdatum, ausserdem kann ich mir vorstellen dass das mit ein bisserl iLogic zu erledigen wäre (persönlich hab ich aber diesbezüglich keine Erfahrung).

------------------
mfg - Leo

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

---

Ja das Plotdatum trifft es genau gibt es eine Dokumentation für iLogic?

Eigentlich bräuchte ich ja nur 2 Sachen date() Funktionen und wie man auf den Textbaustein einwirkt.

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Hilft das vielleicht ein wenig weiter?

myName= ThisApplication.GeneralOptions.UserName

If iProperties.Value("Project", "Creation Date") <> Now Then
iProperties.Value("Project", "Creation Date") = Now
MessageBox.Show("iProperties wurden aktualisiert","Hinweis für: " & myName)
End If

Müsste man halt in den Vorlagen reingeben und dann noch das Textfeld verlinken...

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

---

Und wie wirke ich auf Textfelder ein?
Über Parameter? Oder geht das direkt?

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Text_Feld.png

17.09.2009Schriftfeld bearbeiten: ein paar grundlegende Tipps
Zu der Grundeinrichtung beim Einsatz des Inventor gehört das Anpassen des Schriftkopfes. Das kann man selbst machen und wie, erkläre ich hier.

Da die Änderung des Schriftkopfes eine zeichnungsbezogene Einstellung ist, wird die Anpassung am besten in der passenden Vorlage vorgenommen. Den Speicherort der Vorlage erfahrt ihr, wenn ihr im aktiven Projekt auf den Eintrag Ordneroptionen > Vorlagen mit der Maus fahrt und kurz wartet. Der Pfad, der dort steht (oder bei =Standard erscheint) ist der Speicherort der Vorlagen.

image

Standard entspricht übrigens der Pfadeinstellung in den Extras > Anwendungsoptionen > Datei > Standardvorlage

image

Wenn mehrere Anwender die selben Vorlagen verwenden sollen (was sicherlich sinnvoll ist), dann die Vorlagen auf ein Netzlaufwerk kopieren und den Pfad zu dem Netzlaufwerk an der entsprechenden Stelle in den Anwendungsoptionen eintragen.

Ist die Vorlage auf (z.B. Norm.idw oder Norm.dwg) einfach im Browser auf den bestehenden Schriftkopf “DIN” mit der rechten Maustaste klicken und “Definition bearbeiten” klicken. Natürlich könnte man auch einen Schriftkopf von Grund auf neu erstellen oder aus ACAD importieren, aber das überlassen wir den Profis. Hier soll es darum gehen, kleinere Anpassungen am bestehende Schriftkopf zu machen.

image

Jetzt kann es mit der Bearbeitung los gehen.

Eigenes Logo einfügen
Liegt das Logo als BMP Datei in der gewünschten Größe vor (keine 3MB Datei verwenden!) vor, kann es direkt an die gewünschte Stelle platziert werden. Dazu einfach in das Ribbon “Verwalten” die Knopf “Bild” anklicken, an die gewünschte Position klicke und im folgenden Dialog die BMP-Datei auswählen. Den Haken bei “Verknüpfung” entfernen (Warum? Darum!)

image

Das Logo kann nun noch in der Größe über die gelben Griffe geändert, mit einem Klick auf den Rahmen verschoben und mittels RMT > Löschen gelöscht werden.

Hilfsgeometrie verwenden
Um SK-Elemente besser ausrichten zu können, kann man Hilfslinie nutzen. Damit diese nicht im SK erscheinen, einfach die Linie makieren und die Option “Nur Skizze” markieren.

- Siehe Anhang -

Eigene iProperties und Abfragen einfügen

Der Schriftkopf lebt davon, das er befüllt wird und das am besten automatisch. Dazu bedient man sich der iProperties, die in jeder IAM, IPT, IPN und IDW genutzt werden können.

Um einen bestehenden Text zu bearbeiten einfach den Text markieren > RMT > Text bearbeiten.

Um einen neuen Text zu erstellen das Textwerkzeug im Skizzenwerkzeugkasten nutzen und dann in der folgenden Dialogbox die gewünschten Anpassungen vornehmen.

Die eingefügte Regel befüllt mir die iProperties und diese kann man in der IDW auslesen lassen-so hab ichs gemeint

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

---

Der Text ist zwar schön kopiert aber das weiß ich alles schon und hilft nicht weiter.

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

IV-Plotdatum.jpg

Zitat:

---

Und wie wirke ich auf Textfelder ein?

---

Suchst du so eine Lösung?  ---> Bild
Ich habe folgende Lösung realisiert:
1. jede IDW hat 2 Benutzer Parameter: Sysdate und Systime
2. Das Schriftfeld enthält den Text: Plotdatum: <Sysdate> <Systime>
3. Jeder Ausdruck (PDF, TIFF, Papier auf Laser A4, Laser A3 wird über ein Makro gemacht
4. Das Makro holt das aktuelle Datum und Uhrzeit und aktualisiert die beiden Variablen (Systime hh:mm)
5. Danach wird die IDW aktualisiert, dass die neuen Variablen angezeigt werden
6. Das Makro startet den entsprechende Druck (PDF mit richtigem Format, bei Laser-A3 alles auf A3 angepasst...
Übrigens wird dabei auch der Maßstab ermittelt und aktualisiert

------------------
Gruß Roland

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

---

Ja ich suche so etwas,

2 Dinge brauche ich dazu aber:
1. Wie schreibe ich Variablen in Parameter und aktualisiere das Blatt?
2. Wie ermittelst du den Maßstab? Bei mehreren Ansichten?

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Plotdatum.idw

Dann probier mal das Makro:
Ist aus mehreren Beispielen der API zusammengestellt

Code:

---

Sub PlotA3() 'aktualisiert Plotdatum, ruft Plot auf LAserA3 auf
       
    On Error Resume Next
    If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then 'nur in IDW
      Dim oPropSet As PropertySet
     
      'Add a custom property "SysDate" with system date
      Set oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
      oPropSet.Item("SysDate").Delete 'As a workaround the property must be delete because it can not be changed
      Call oPropSet.Add(Date, "SysDate")
   
      'Add a custom property "SysTime" with system time
      Set oPropSet = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
      oPropSet.Item("SysTime").Delete 'As a workaround the property must be delete because it can not be changed
      Call oPropSet.Add(Format(Time, "hh:mm"), "SysTime")
   
      ThisApplication.ActiveDocument.Update  'Werte im Schriftfeld aktualisieren
     
      Dim oDrgDoc As DrawingDocument
      Set oDrgDoc = ThisApplication.ActiveDocument
       
      ' Set reference to drawing print manager
      ' DrawingPrintManager has more options than PrintManager
      ' as it's specific to drawing document
      Dim oDrgPrintMgr As DrawingPrintManager
      Set oDrgPrintMgr = oDrgDoc.PrintManager
      ' Set the printer name
      oDrgPrintMgr.Printer = "HP LaserJet 5200 Series PCL 5"  'hier deinen Drucker eintragen
      oDrgPrintMgr.NumberOfCopies = 1
      oDrgPrintMgr.ScaleMode = kPrintFullScale
     
      'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
       
      'Set the paper orientation
      On Error Resume Next
      Select Case oDrgDoc.ActiveSheet.Orientation
          Case kLandscapePageOrientation
              oDrgPrintMgr.Orientation = kLandscapeOrientation
          Case kPortraitPageOrientation
              oDrgPrintMgr.Orientation = kPortraitOrientation
          Case Else    ' Andere Werte.
              Debug.Print "ungültige Orientierung"
      End Select
       
      oDrgPrintMgr.SubmitPrint
    End If
End Sub 'PlotA3()

---

Nachdem du das Makro aufgerufen hast, sind die beiden Benutzer-iProps SysDate und SysTime in der IDW vorhanden.
Diese dann als Variable im Schriftfeld einfügen.
Wenn du das in deiner Vorlage machst, steht die Vorlage zwar am Anfang immer auf Plot 26.06.2014, wird aber bei jedem Ausdruck auf den aktuellen Tag und Uhrzeit aktualisiert.

Siehe Vorlage mit Schriftfeld "Plotdatum" -->

------------------
Gruß Roland

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