---

No_3d_Baclgorund_1.png No_3d_Baclgorund_2.png No_3d_Baclgorund_3.png

Hallo allerseits,

zur übersichtlichen Bearbeitung von Schnitten würde ich gerne die Funktion "No 3D background" (all geometries outside the plane are invisible) in einem Makro einsetzen.
Manuell kann man nach Wahl einer Ebene über den Button alles außerhalb der Ebene ausblenden und ein Working Support wird erstellt. (Bilder 1&2)

Aber mit der Zeile CATIA.StartCommand ("No 3D Background") erhalte ich nicht das selbe Ergebnis.
Um genau zu sein, alles wird weiterhin angezeigt, es gibt kein Working Support, nur die Ebene wird ausgewählt und der Knopf wird als aktiv markiert. (Bild 3)

Ich nutzte zum schnellen Testen diesen Code:

Sub CATMain()

Dim oSel as Selection
Set oSel = CATIA.ActiveDocument.Selection
oSel.Search ("Name=Plane.1,all")
CATIA.StartCommand ("No 3D background")

End Sub

Also wäre meine Frage, ob ihr mir einen Tipp geben könntet, was noch alles durch den Knopfdruck passiert oder wie man es in CatVBA umsetzen könnte.

Vielen Dank im Voraus   
AR2020

[Diese Nachricht wurde von ar2020 am 04. Dez. 2020 editiert.]

[Diese Nachricht wurde von ar2020 am 04. Dez. 2020 editiert.]

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

---

Hallo ar2020,

willkommen im Forum. Bitte Systeminfo ausfüllen.

Vieleicht hilft dir das hier weiter.

Code:

---

CatVisuBackgroundMode (Enumeration)
enum CatVisuBackgroundMode {
  catNoBackground,
  catPick,
  catNoPick,
  catLowIntPick,
  catLowIntNoPick
}

Background Visu Mode.

Values:
catNoBackground
Hide visu background.
catPick
Background is shown and pickable
catNoPick
Background is shown and not pickable
catLowIntPick
Background is shown in low intensity and pickable
catLowIntNoPick
Background is shown in low intensity and not pickable

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo Uwe,

danke für den Tipp.
Leider bin ich bzgl. CatVBA noch recht neu und verstehe nicht wie diese Enumeration in VBA einbauen soll.
Bisher habe ich Enumerationen so verstanden, dass es als Kurzform für Variablen verwendet wird.

Also wenn ich es so vorm Sub im Module definiere:

Public enum CatVisuBackgroundMode
  catNoBackground
  catPick
  catNoPick
  catLowIntPick
  catLowIntNoPick
End Public

Dann wäre im Sub die Variable:
"CatVisuBackgroundMode.0" gleichzusetzen mit "CatVisuBackgroundMode.catNoBackground"

Bin mir nun an der Stelle unsicher wie es weiter umzusetzen ist, um die 3D Elemente auszublenden.

VG AR2020

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

---

Servus

Ich befürchte dass dich das auch nicht weiter bringt: Die Enumeration CatVisuBackgroundMode gehört scheinbar zur Workbench 2D Layout for 3D Design

Gruß
Bernd

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

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