---

Hallo zusammen,

ich möchte via Script Screenshots von einem Teil aus unterschiedlichen Positionen machen.

Diese sollen eine bestimmte Größe haben, damit ich nicht hinterher noch die Bildergröße bearbeiten muß.

Leider hat die Sache einen Haken: Durch den Kompaß werden die Bilder deutlich größer und nach dem Ausschalten des Kompasses muß ich das Prt auch noch speichern, damit die Größe stimmt. Das stört mich auch noch.

Mein Code:
-snipp-
    oTeilFenster.Width = 350
    oTeilFenster.Height = 350
    oAnsicht3D.Reframe
    oAnsicht3D.PutBackgroundColor Array(0, 0, 1)

'Screenshots erstellen
    For i = 1 To 4
        Dateiname = sTmpPfad & Basisname & "-" & i & ".bmp"
        oAnsicht3D.Rotate Array(0, 0, 1), 9
        oAnsicht3D.CaptureToFile catCaptureFormatBMP, Dateiname
    Next
-snipp

Mine Fragen dazu:

1. Wie kann ich es anstellen, den Kompass mit dem Script auszublenden? Ich hab dazu in der Automation.chm nichts gefunden. Mir würde auch ein Hinweis auf die zuständige Methode helfen.

2. Wie bekomme ich es hin, ohne das zusätzliche Speichern nach dem Ausblenden des Kompasses die richtige Bildgröße zu erhalten?

Viele Grüße,

CEROG

------------------
Inoffizielle Linux-Hilfeseite
Meine Firma

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

---

Hallo Roland,
hier mal ein Code, wo ich screenshots erzeugt habe; hoffe mal, es hilft dir weiter ;-)

Code geschrieben für vb.net !!! Funktionsaufruf mit (ByVal Picname As String, ByVal Modus As Integer)
----------------------------------------------
'CATIA = GetObject(, "CATIA.Application")
        Dim CATIA As Object = GetObject(, "CATIA.Application")

        Dim specsAndGeomWindow1 As Object = CATIA.ActiveWindow
        specsAndGeomWindow1.Layout = 1
        Dim viewer3D1 As INFITF.Viewer3D = specsAndGeomWindow1.ActiveViewer
        Dim viewpoint3D1 As INFITF.Viewpoint3D = viewer3D1.Viewpoint3D

        'Drehen in vordefinierte Ansicht ############################################
        Dim Document As Object = CATIA.ActiveDocument
        Dim cameras1 As Object = Document.Cameras
        Dim camera3D1 As Object = cameras1.Item(1)
        viewpoint3D1 = camera3D1.Viewpoint3D

        specsAndGeomWindow1 = CATIA.ActiveWindow
        viewer3D1 = specsAndGeomWindow1.ActiveViewer
        viewer3D1.Viewpoint3D = viewpoint3D1
        viewpoint3D1 = camera3D1.Viewpoint3D
        viewer3D1.Viewpoint3D = viewpoint3D1

        'Drehen in Ansicht ################################################
        If Modus = 7 Then 'Eigene Ansicht
            camera3D1 = cameras1.Item(1)
            viewpoint3D1 = camera3D1.Viewpoint3D
            viewer3D1.Viewpoint3D = viewpoint3D1

            Dim test(2)
            test(0) = 0
            test(1) = 0
            test(2) = 1 'Drehung um Z-Achse
            viewer3D1.Rotate(test, 100)

            viewer3D1.Update()
            viewpoint3D1 = viewer3D1.Viewpoint3D
            viewer3D1.Viewpoint3D = viewpoint3D1

            viewer3D1.Update()
            viewpoint3D1 = viewer3D1.Viewpoint3D
            viewer3D1.Viewpoint3D = viewpoint3D1

            test(0) = 0
            test(1) = 0
            test(2) = 1 'Drehung um Z-Achse
            viewer3D1.Rotate(test, -50)

            test(0) = 1 'Drehung um X-Achse
            test(1) = 0
            test(2) = 0
            viewer3D1.Rotate(test, 30)

            viewer3D1.Update()
            viewpoint3D1 = viewer3D1.Viewpoint3D
            viewer3D1.Viewpoint3D = viewpoint3D1
        ElseIf Modus = 5 Then
            camera3D1 = cameras1.Item(Modus)
            viewpoint3D1 = camera3D1.Viewpoint3D
            viewer3D1.ZoomIn()
            viewer3D1.Viewpoint3D = viewpoint3D1

        ElseIf Modus = 2 Then
            camera3D1 = cameras1.Item(Modus)
            viewpoint3D1 = camera3D1.Viewpoint3D
            viewer3D1.Viewpoint3D = viewpoint3D1

            viewpoint3D1 = viewer3D1.Viewpoint3D
            viewer3D1.Viewpoint3D = viewpoint3D1
        End If

        viewer3D1.Viewpoint3D = viewpoint3D1

        'Screenshot erzeugen ################################################################
        'Setzen der Hintergrundfarbe -------------------------------------------------
        Dim color0(2)
        Dim color(2) 'Hintergundfarbe in Weiß setzen
        viewer3D1.GetBackgroundColor(color0)
        color(0) = 1
        color(1) = 1
        color(2) = 1
        viewer3D1.PutBackgroundColor(color)
        Thread.Sleep(100)

        viewer3D1.CaptureToFile(5, Picname)
        viewer3D1.PutBackgroundColor(color0) 'Original-Hintergrundfarbe wieder herstellen
        specsAndGeomWindow1.Layout = 2
----------------------------------------------------------

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
http:\\catia.cad.de

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

---

Hallo Jens,

erst mal ein Dankeschön für deinen Code.

Das mit der fest vvorgegebenden Ansicht muß ich mir mal genaueer anschauen. 3D-Modelle werden ja selten in einer bestimmten Ansicht abgespeichert.

Durch deine Manipulationen des Viewpoints muß ich mich erst Mal durcharbeiten. Irgendwie sind sie auf dem ersten Blick verwirrend.

Vor allem solche Passagen scheinen auf den ersten Blick sinnlos:

Code:

---

viewpoint3D1 = viewer3D1.Viewpoint3D
      viewer3D1.Viewpoint3D = viewpoint3D1

---

Ich muß mal genau durchspielen, was damit gemeint ist und was das bewirkt.

Viele Grüße,

Roland

------------------
Inoffizielle Linux-Hilfeseite
Meine Firma

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

---

Hallo,
vieleicht bringt dich der Link weiter: http://www.coe.org/forums/messageview.cfm?catid=10&threadid=7698

Gruss TomTom

------------------
tomtom1972

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

---

Guten Morgen,

Habe mich auch mit einem solchen Tool beschäftigt und kann Euch schon mal ein paar Tipps geben.

Kompass ausschalten: (englisch)
    CATIA.StartCommand "CompassDisplayOff"

Hintergrundfarbe setzen: (rot, grün, blau ;jeweils 0 - 1)
    CATIA.ActiveWindow.ActiveViewer.PutBackgroundColor array(1, 1, 1)

Blickrichtung festlegen:
Zwei Vektoren (x,y,z), einer in Blickrichtung, der andere bestimmt, wo oben sein soll. Der zweie Vektor muß nicht unbedingt senkrecht auf dem ersten stehen.
Beispiel für Isometrie-Ansicht:

    CATIA.ActiveWindow.ActiveViewer.Viewpoint3D.PutSightDirection Array(1, 1, -1)
    CATIA.ActiveWindow.ActiveViewer.Viewpoint3D.PutUpDirection Array(0, 0, 1)

Ein Problem, an dem ich noch verzweifle, ist der Umstand, daß das Ganze im Batch-Mode auf Unix-Maschinen nicht funktioniert: Da sind ALLE ScreenShots SCHWARZ... falls jemand weiß, was man dagegen tun kann... bitte Bescheid geben.

mfg Alex

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

---

Hallo zuammen,

der Tipp mit dem Startcommand ist gut. Damit bekomme ich den Kompass weg...

An dem anderen Problem muß ich noch etwas basteln. Da ich aber die Dateie sowieso in ein anderes Verzeichnis speichern muß, gibt es hier möglicherweise eine einfache Abhilfe...

Viele Grüße,

CEROG

------------------
Inoffizielle Linux-Hilfeseite
Meine Firma

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

---

Hallo zusammen,

nachdem ich erst die Fenstergröße anpasse, dann das Teil umspeichere und dann erst die Screenshots erstelle, funktioniert es nun (fast) wie ich will.

CATIA weigert sich zwar, die ursprüngliche Größe wieder herzustellen, aber das ist in dem Fall egal...

Viele Grüße,

CEROG

------------------
Inoffizielle Linux-Hilfeseite
Meine Firma

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

---

Hallo AlexE78,

Zitat:
-------------------------------------------
Kompass ausschalten: (englisch)
    CATIA.StartCommand "CompassDisplayOff"
-------------------------------------------

wenn das bei mir nicht funktioniert, kann das an meiner deutschen Oberfläche liegen?
Heißt es dann etwa "KompassAnzeigeAus" ???

Gruß
Bertel

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

---

Genau so ist es...

wie der deutsche Befehl lautet, kann ich dir allerdings nicht sagen. und mit wort für wort übersetzen ... kann funktionieren, muß aber nicht.

am besten ist es wohl, wenn man unter Tools/Customize mal über alle befehle drüber schaut und sich den passenden raussucht.

zum überprüfen kann man dann unter rechts in der Kommandozeile
"c:COMMAND" (engl.) bzw. "b:BEFEHL" (dt.) den jeweiligen string ausprobieren.

hoffe das hilft dir weiter

mfg Alex

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

---

Hallo Leute,
also ich bekomme es hin das Bauteil in die richtige Ansicht zu drehen. Wie schaff ich das Bautei auf dem Bildschirm zu zentrieren? Gruß

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

---

Hallo,

versuche es mal hiermit:

Code:

---

Set myViewpoint = myViewer.Viewpoint3D
myViewpoint.PutSightDirection Array(1.414, 1.414, 0)

myViewer.Viewpoint3D = CATIA.ActiveDocument.Cameras.Item(1)
myViewer.Reframe

---

grüße Dominik

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

---

ich bekomme bereits eine Fehlermeldung bei:

set Viewer = CATIA.activeWindow.activeViewer
viewer.Rotate Array(0,0,1), 15

Wo liegt der Fehler?

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

---

Servus
Wie lautet die Fehlermeldung? Was hast du probiert zum dieses Problem zu lösen?

Gruß
Bernd

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

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

---

Er makiert mir "rotate" und sagt die Methode ist nicht verfügbar.

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

---

Servus
Bei läuft der Code. Wie wäre es mal mit etwas mehr Info?

Gruß
Bernd

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

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

---

Habe Vorschläge zur Fehlereingrenzung:
* definier vorher mal das Array und übergib es dann
* Ruf Rotate mit CALL auf

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Ich positioniere meine Daten über folgende Zeilen:

oViewpoint.PutOrigin array(-310,0,0)
oViewpoint.PutSightDirection array(0,0,1)
oViewpoint.PutUpDirection array(0,0,0)
oViewpoint.Zoom = 0.0015

Gruß
Sebbo

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

---

Hallo,

funktioniert bei mir leider alles nicht.

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

---

Servus
Kannst du mal weitere Infos liefern?
- um was für ein Dokument handelt es sich ggf mal Screenshot posten
- handelt es sich um CATScript, catvba?
- was zeigt dir was Watchfenster an
- den Viewer ggf mal als Viewer3D deklarieren

Gruß
Bernd

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

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

---

- PartDocument (aber das dürfte doch keine Rolle spielen oder?)
- catvba
- watchfenster zeigt gar nix, da sobaled ich das Makro starte eine Meldung kommt: "Compile Error: Function or Interface marked as restricted, or the function uses an Automatoin type not supported in Visual Basic"
- der Viewer ist als Viewer3D deklariert. Die Autovervollständigung bietet mir auch den "Rotate"-Befehl an. Wenn ich das Makro ausführen möchte kommt aber oben genannte Fehlermeldung und "Rotate" wird als Ursache hervorgehoben.

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

---

Servus
dann musst du das entsprechende Objekt bei dem der Fehler kommt (den Viewer?) als "Object" deklarieren (siehe auch hier.

Gruß
Bernd

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

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

---

aaaahhh perfekt. Vielen herzlichen Dank!

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

---

Hallo,

ich arbeite derzeit auch mit automatisierten Screenshots und es läuft eigentlich alles wie es soll, bis auf den Umstand, dass man bei ca. 95% der Screenshots die Schweißpunkte an den Bauteilen nicht sieht, weil das Bauteil nicht in dem optimalen Blickwinkel liegt, oder aber der Fügepartner die Sicht versperrt.

Der erste Lösungsversuch war, einfach viele Screenshots mehr zu machen (natürlich auch den Blickwinkel häufiger ändern) in der Hoffnung, dass eben ein paar mehr brauchbare Bilder dabei sind - was zwar auch der Fall ist - aber insgesamt immernoch ungenügend ist.

Alle nicht relevanten Teile sind natürlich ausgeblendet, sodass nur die Schweißpunkte und die Fügepartner eingeblendet sind.

Hat jemand eine Idee, wie man automatisch genau diesen Blickwinkel findet, wo der Schweißpunkt deutlich zu sehen ist???

Danke!

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