---

Guten Morgen,

gibt es eine Makrolösung die alle Ansichten einer geöffneten Zeichnung lockt bzw. entlockt wenn diese gelockt sind?

Die Suche hierzu hat mich nicht wirklich weiter gebracht.

------------------
Arbeit zieht immer Arbeit nach sich!

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

---

Servus,

Ansicht sperren:

Code:

---

          '***Ansichten ansprechen
          Set View = objSel.Item(intI).Value
          '***Ansichten sperren
          View.LockStatus = True

---

Ansicht entsperren:

Code:

---

          '***Ansichten ansprechen
          Set View = objSel.Item(intI).Value
          '***Ansichten entsperren
          View.LockStatus = False

---

zum Suchen der Ansichten:

Code:

---

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

---

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Danke,  ich wer mal versuchen das in eine Schleife zu packen und zum laufen zu bekommen.

------------------
Arbeit zieht immer Arbeit nach sich!

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

---

Leider komm ich nicht weiter.
Wie muss man vorgehen wenn man mehrere Blätter in der Drawing hat und er dies auch in allen Blättern tun soll?

------------------
Arbeit zieht immer Arbeit nach sich!

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

---

Ich würde noch eine For-Schleife ähnlich dieser drum herum bauen:

Code:

---

Dim oDoc As DrawingDocument
Set oDoc = CATIA.ActiveDocument
Dim oSheets As DrawingSheets
Set oSheets = oDoc.Sheets
Dim oSheet As DrawingSheet
Dim I as Integer

For I = 1 To oSheets.Count
   Set oSheet = oSheets.Item(I)
   'hier deine Anweisungen für oSheet
Next

---

EDIT: Vorher natürlich noch abfragen ob das ActiveDocument auch wirklich eine Zeichnung ist  

[Diese Nachricht wurde von Starbirth am 15. Dez. 2010 editiert.]

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

---

Hier die Lösung die ich danke eurer Hilfe erarbeitet habe:

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 = true
Next 

End Sub

Zum entsperren muss man nur in der drittletzten Zeile den Wert von true auf false setzen.

Danke an alle die geholfen haben,

Frohes Fest und Guten Rutsch!

------------------
Arbeit zieht immer Arbeit nach sich!

[Diese Nachricht wurde von DocMurphy am 22. Dez. 2010 editiert.]

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

---

Hallo,

ich habe da noch eine alternative Lösung:

Code:

---

Option Explicit
Sub CATMain()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To CATIA.ActiveDocument.Sheets.Count
        If Not CATIA.ActiveDocument.Sheets.Item(i).IsDetail Then
            If CATIA.ActiveDocument.Sheets.Item(i).Views.Count > 2 Then
                For j = 3 To CATIA.ActiveDocument.Sheets.Item(i).Views.Count
                    CATIA.ActiveDocument.Sheets.Item(i).Views.Item(j).LockStatus = Not CATIA.ActiveDocument.Sheets.Item(i).Views.Item(j).LockStatus
                Next
            End If
        End If
    Next
End Sub

---

Zeilen 3 und 4: Definition von zwei Zählvariablen (für Blätter und Ansichten)
Zeile 5: Start einer Schleife in der alle Blätter durchlaufen werden (Ende in Zeile 13)
Zeile 6: Wenn es sich um ein Zeichnungsblatt handelt (kein Detailblatt), dann wird die Zeile ausgeführt. Sonst weiter zum nächsten Blatt
Zeile 7: Wenn es auf dem Blatt Zeichnungsansichten gibt (View(1) = MainView; View(2) = BackgroundView), also mehr als 2 Ansichten vorhanden sind, dann wird die nächste Schleife ausgeführt.
Zeile 8: Start einer Schleife, die durch alle Ansichten eines Blattes läuft (ohne Main- und Background View) (Ende in Zeile 10)
Zeile 9: Wechsel des Lock-Status (alle gesperrten Ansichten werden entsperrt und alle entsperrten Ansichten werden gesperrt).

Man könnte natürlich auch eine Abfrage über eine MsgBox einbauen.
z.B.
Sollen alle Ansichten geperrt werden?
JA = sperren
Nein = entsperren
Abbruch = switch Lock Status (oder wirklich Abbruch)

Schöne Weihnachten

------------------
Gruß Michael B.

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

---

Klingt elegant!

Werds mir mal anschauen. Vor allem die Lösung mit dem umschalten!

Guten Rutsch!

------------------
Arbeit zieht immer Arbeit nach sich!

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

---

Hallo!
Was sagt den IsDetail genau aus?
Das Zitat aus der V5Automation Datei hilft mir auch nicht viel weiter..

Zitat:

---

Checks whether the sheet is a detail sheet. TRUE if the sheet is a detail sheet.

---

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

---

Servus
Wenn es sich um ein "Detailblatt" also einem Blatt mit 2D-Komponenten handelt (Einfügen -> Zeichnung -> Blätter -> neues Detailblatt) wird TRUE zurückgeliefert.

Gruß
Bernd

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

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

---

Hallo Zusammen,

ich benutze dieses Tool:
http://www.enggraph.de/de/downloads/cad-downloads

------------------
Gruss BADU

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