---

Hallo alle miteinander,
ich habe im Forum bereits ein tolles Makro zum Entsperren aller Ansichten gefunden. Nun wollte ich fragen, ob es auch möglich ist, alle Ansichten per Makro mit einem Schlag zu aktualisieren. Leider habe ich von Programmierung keine Ahnung, vielleicht kann mir jemand einen Tipp geben, wie ich das Makro umschreibe:

Sub CATMain()

Dim oDoc
Set oDoc = CATIA.ActiveDocument
Dim oSheets
Set oSheets = oDoc.Sheets
Dim objSel
Set objSel = oDoc.Selection
Dim intI

'***Performanceerhöhung der Suche
CATIA.HSOSynchronized = False
'***Ansichten suchen
objSel.Search "Drafting.View.Name!=Background View"
CATIA.HSOSynchronized = True
'***Ansichten ansprechen

'***Für jede gefundene Ansicht  tue folgendes: sperre Ansicht
For intI = 1 To objSel.Count
Set View = objSel.Item(intI).Value
'***Ansichten sperren
View.LockStatus = false
Next 

End Sub

Vielen Dank im Voraus.

Gruß
Alex

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

---

Servus
Mögliche Lösungen:
- Methode "ForceUpdate" des DrawingSheets
- Methode "Update" des DrawingSheets
- Methode "Update" des DrawingDocuments (bzw DrawingRoot)
- Methode "Update" der DrawingView

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

leider habe ich das nicht wirklich verstanden:

- Methode "Update" des DrawingDocuments (bzw DrawingRoot)
- Methode "Update" der DrawingView

Kann ich das irgendwie in mein Makro einbauen oder gibt es dafür direkt einen Befehl in Catia?

Gruß
Alex

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

---

Servus
Entweder in der Schleife über die Views: "View.Update" ergänzen oder ganz am Schluss "oDoc.Update"

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

vielen Dank für Deine Hilfe. Habe jetzt mal ein bißchen rumprobiert.
Es ist allerdings nicht so gut, den Befehl "oDoc.Update" ans Ende zu setzen. Das funktioniert zwar prinzipiell, allerdings bringt er mir dann für jedes Blatt immer ein Eingabefenster, dass der Befehl für die gesperrten Ansichten nicht angewendet wird. (Obwohl doch eigentlich lt. Routine sämtliche Ansichten schon entsperrt sein müssten.)

Habe dann aber ein eigenständiges Makro erstellt, und das funktioniert prima.

Gruß
Alex

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