---

Hallo

stehe wieder vor einem Problem...
Ich möchte gerne über ein Makro den Multi-View erzeugen und nach meiner Auswahl wieder in die normale Ansicht.
Wie kann ich den Button Create Multi-View anwählen und wieder deaktivieren.

Lg steffi

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

---

Hallo Steffi  ,

an die MultiView kommst du nur mit einem StartCommand ran. Ich hab dir mal ein Beispiel geschrieben.Hier wird eine MultiView erzeugt, der Anwender soll eine Fläche selektieren. nach der Selektion wird die MultiView wieder geschlossen.

ACHTUNG: Bei StartCommand Befehlen ist die Sprachumgebung entscheidend. Und diese auszulesen ist nicht gerade ohne und ein Haufen programmierarbeit. Falls du es dennoch brauchst dann kann ich dir das mal hier einstellen (zum Auslesen muss eine Setting-Datei in eine *.xml Datei (über das interne Batch-Programm) konvertiert und ausgelesen werden.

Code:

---

Sub CATMain()
   
    '***DEKLARATIONE
    Dim intDocObj As Document
    Dim intSelObj As Object
    Dim intFilterStr(0)
    Dim intSelStateStr As String
   
    '***OBJEKTE ERZEUGEN
    Set intDocObj = CATIA.ActiveDocument
    Set intSelObj = intDocObj.Selection
    intSelObj.Clear
   

    '***MULTI VIEW ÜBER STARTCOMMAND ERZEUGEN
    CATIA.StartCommand ("Multi-View")
   
    '***AUSWAHL
    MsgBox "Bitte selektieren Sie eine Fläche im Modell" + Chr(10) + "ESC bricht die Selektion ab", vbInformation, "SELEKTION"
   
    intFilterStr(0) = "Face"
    intSelStateStr = intSelObj.SelectElement2(intFilterStr, "Bitte Fläche auswählen / ESC zum Abbrechen", False)
   
    If intSelStateStr = "Normal" Then
        MsgBox "Die Selektion war erfolgreich. Die MultiView wird beendet", vbInformation, "SELEKTION ERFOLGREICH"
    Else
        MsgBox "Die Selektion war nicht erfolgreich. Die MultiView wird beendet", vbExclamation, "SELEKTION NICHT ERFOLGREICH"
    End If
   
    '***MULTI VIEW ÜBER STARTCOMMAND ZERSTÖREN
    CATIA.StartCommand ("Multi-View")
   

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Vielen Dank für die schnelle Hilfe.

Lg steffi

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