---

Hallo,

hat jemand eine Ahnung, wie man per Makro Views in Zeicnungen locken (sperren) kann?

Grüße

Claus

------------------
CLAHO

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

---

Hallo claho,

hier ein Beispiel zum AN-/AUS-Schalten von "LockView":

Code:

---

Language="VBSCRIPT"

Sub CATMain()

    Dim drawingDocument1 As DrawingDocument
    Set drawingDocument1 = CATIA.ActiveDocument
   
    Dim drawingSheets1 As DrawingSheets
    Set drawingSheets1 = drawingDocument1.Sheets
   
    Dim drawingSheet1 As drawingSheet
    Set drawingSheet1 = drawingSheets1.ActiveSheet
   
    Dim drawingViews1 As DrawingViews
    Set drawingViews1 = drawingSheet1.Views
   
    Dim drawingView1 As DrawingView
    Set drawingView1 = drawingViews1.ActiveView
   
    Select Case CStr(drawingView1.LockStatus)
        Case "True"
            drawingView1.LockStatus = False
        Case "False"
            drawingView1.LockStatus = True
    End Select

End Sub

---

mfg,
Lusilnie

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