---

Hallo Zusammen,
weiß von Euch jemand wie man per Makro den Kompass und den Strukurbaum ausblendet ?

Ich habe das Problem, daß ich nicht weiß mit welchem Befehl ich diese Operation durchführen kann.

Die Makroaufzeichnung liefert folgendes Ergebnis:

Sub CATMain()

Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D

Set viewpoint3D1 = viewer3D1.Viewpoint3D 'Kompass

Set viewpoint3D1 = viewer3D1.Viewpoint3D 'Strukturbaum

End Sub

Es ist unerheblich, ob man den Strukurbaum oder den Kompass auswählt, es wird immer "Set viewpoint3D1 = viewer3D1.Viewpoint3D" mitgeschrieben. Daher führt die Makroaufzeichnung auch hier mal wieder nicht zum Ziel.
Habe im Internet lange nach einer weiteren Anweisng, bzw. nach einer Möglichkeit gesucht, wie man den Strukurbaum und Kompass per Makro direkt ansprechen kann.Leider vergebens.

Wäre klasse wenn hier ein Lösungsvorschlag zustande kommen würde....

Viele Grüsse

AXL

------------------
Gruss

AXL

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

---

Hallo axl07111,

so kannst Du den Spezifikationsbaum bzw. die Geometrie ein- und ausblenden:

Sub CATMain()

    Dim MyWindow As SpecsAndGeomWindow
    Dim MyViewer As Viewer3D

    Set MyWindow = CATIA.ActiveWindow
   
    '-----nur Geometrie-----
    MyWindow.Layout = catWindowGeomOnly
   
    '-----Geometrie und Spezifikationsbaum-----
    MyWindow.Layout = catWindowSpecsAndGeom
   
    '-----nur Spezifikationsbaum-----
    MyWindow.Layout = catWindowSpecsOnly

End Sub

Beim Kompass muss ich leider passen.

Hope that helps!

Michael Kirsch

------------------

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

---

Sehr gut !

Herzlichen Dank.

Viele Grüsse

AXL

------------------
Gruss

AXL

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

---

Hallo,

zu diesem Thema würde mich interessieren, ob jemand weiss, wie man die Strukturbaumgröße (also die Zoomfunktion) per Macro ändern kann.

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

---

Hallo  ,

na aber sicher weiß das jemand  . Hier mal ein Beispielscript. Leider kann man nicht direkt die Textgröße einstellen sondern muss über den Zoom gehen. 1 ist dabei dir Standardtextgröße (welche über das Environment (also die *.txt Datei) festgelegt werden kann)

Code:

---

Sub CATMain()

    Dim intWindowObj As SpecsAndGeomWindow
    Dim intSpecsViewer As SpecsViewer
    Dim intViewPoint2D As Viewpoint2D

    Set intWindowObj = CATIA.ActiveWindow
    Set intSpecsViewer = intWindowObj.SpecsViewer
    Set intViewPoint2D = intSpecsViewer.Viewpoint2D

    intViewPoint2D.Zoom = 1

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