---

Hallo zusammen,

ich habe ein vorgefertigtes Makro so umgeändert das ich in einem Formular verschiedene Angaben mache und diese sollen dann in der Zeichnung in das Schriftfeld eingefügt werden. Klappt soweit ohne Probleme bis auf eins!

Wenn ich in einer Zeichnung fünf verschieden Blätter habe, dann aktualisiert er mir (so kommt es mir vor) manche per Random-Funktion. Ich meine Blatt 1, 3 und 4 werden zum Beispiel aktualisiert und Blatt 2 und 5 nicht. Einandermal werden Blatt 3 und 5 aktualisiert und der Rest wieder nicht.

Im folgenden mal der Code meiner Sub:

Code:

---

Sub berSfEintragen()
    ' Diese Funktion schreibt die aktuellen Werte, die in den Edit-Feldern
    ' eingetragen sind, in die benutzerdefinerten Dateieigenschaften zurück.
    ' Durch die Verknüpfung von den Schriftfeldtexten mit diesen Eigenschaften
    ' werden diese Änderungen dann im Schriftfeld angezeigt.
    ' In einem vernünftigen Programm sollten natürlich die Werte auf ihre
    ' Zulässigkeit überprüft werden (am besten schon bei der Eingabe)

    Dim swApp As Object
    Dim Model As Object
    Set swApp = CreateObject("SldWorks.Application")
    swApp.Visible = True
    Set Model = swApp.ActiveDoc
   
    If Model Is Nothing Then
        Call MsgBox("Keine Datei geöffnet", vbOKOnly, "Information")
        Exit Sub
    End If
    '
    ' in dieser Funktion werden die Werte geschrieben, also andersrum wie oben
    ' wenn Attribute erzeugt werden sollen wird die zweite Methode verwendet,
    ' wenn nur mit bestehende Attributen gearbeitet werden soll die erste.

   
        Dim dummy
        'erst die alten Infos löschen
        dummy = Model.DeleteCustomInfo("AuftragsNr")
        dummy = Model.DeleteCustomInfo("Disponent")
        dummy = Model.DeleteCustomInfo("Werkstoff")
        dummy = Model.DeleteCustomInfo("Druckmotiv")
        '
        ' dann die benötigten Infos als Dateieigenschaft eintragen
        dummy = Model.AddCustomInfo("AuftragsNr", "Text", txt_an.Text)
        dummy = Model.AddCustomInfo("Disponent", "Text", cb_disponent.Text)
        dummy = Model.AddCustomInfo("Werkstoff", "Text", cb_werkstoff.Text)
        dummy = Model.AddCustomInfo("Druckmotiv", "Text", cb_druckmotiv.Text)
 
   
    ' und damit die Werte auch direkt im Schriftfeld angezeigt werden müssen
    ' wir ein Rebuild auf das Modell machen. Kann natürlich bei großen Dateien
    ' schonmal seine Zeit brauchen ;-)

        Dim res As Long
        res = Model.EditRebuild()
End Sub

---

Kann man da ne Schleife einbauen die jedes Blatt durchgeht oder wirklich alle aktualisiert?

Danke für eure Hilfe!

Freundliche Grüße

Daniel

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

---

Hallo Daniel,

Die Platzhalter in deinem Schriftfeld werden ja aus den Dateieigenschaften gefüllt.
Und die sind für alle Blätter gleich.
Denke mal das es eher ein Aktualisierungsproblem ist.
Da hatten wir mal ein ähnliches Problem mit der Version 2010
Hast Du mal versucht ob es nach strg/Q aktualisiert wird?

------------------
Pfürti Jörg W 

www.hydac.com / Waleska Webdesign / CAD.de Hilfeseite / CAD.de Stammtisch Saar

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

---

Hallo Jörg,

danke das werde ich gleich mal ausprobieren.

Gruß

Daniel

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

---

Ansichtsaktualisierung.PNG

Hallo Daniel,

Wenn das nicht funktioniert kannst Du mal schauen ob die automatische Ansichtsaktualisierung in deiner Zeichnung aktiv ist(siehe auch Screenshot).

Und wenn das auch keinen Erfolg bringen könntest du versuchen auf den ServicePack 5 zu Aktualisieren.

Edit/ Anhang vergessen
------------------
Pfürti Jörg W 

www.hydac.com / Waleska Webdesign / CAD.de Hilfeseite / CAD.de Stammtisch Saar

[Diese Nachricht wurde von Jörg W am 09. Jan. 2013 editiert.]

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