---

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
Falsches Forum, dass gehört eher zu Programmierung.
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.

[Diese Nachricht wurde von bgrittmann am 25. Okt. 2013 editiert.]

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

---

Kein Problem, wandert sofort rüber...

Gruß
Alex

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

---

Servus
Bitte kein Doppelposts.
Hier geht es weiter.

Gruß
Bernd

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

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