---

Bilderfolge.JPG

Hallo zusammen,

nachdem ich mich erst seit 4 Tagen mit Catia und speziell Makros beschäftige,
stehe ich auch schon vor einem mir unverständlichen Problem. 

aktueller Stand: Product mit vielen Parts und Unterproducts -->zusammen ca. 1200
jeweils ein Bild in Isometrischer Ansicht und ein Multi-View Bild speichern und in
Excel als Hyperlink importieren.

Funktion des Makros: Ich möchte gerne eine Part in eine Iso-Ansicht drehen,
daraufhin soll mir ein Bildschirmfoto erstellt werden und dieses in einem
bestimmten Ordner abgespeichert werden. Danach soll er in die multi-view
Ansicht wechsel und ein weiteres Bild erstellen. Da ich noch an dem rekursiven
Teil (durchlaufen aller Parts) arbeite, fängt er wieder bei einer ISO-Ansicht an.
Leider kommt es bei mir zu folgendem Problem:
(siehe Bilderfolge)
1. so wie in Reihe 1 hätte ich es gerne
2. schon nahe am Ziel, aber leider verhaspelt er sich immer wieder. Dieser Fehler
scheint auch nicht reproduzierbar zu sein. Das Ergebnis stimmt ab und an, dann auch
mal wieder garnicht. 
Leider muss hierbei der Benutzer immer OK anklicken...
3. Läuft am schnellsten, aber die Ansichten wechseln nicht mehr? 

Damit ich nicht zuviel schreib - hier der Code:

For i = 1 To Eingabe Step 1
      Summe = Summe + 1 
                Set FullScreen = CATIA.ActiveWindow
                FullScreen.Layout = 1                                 
                CATIA.StartCommand "CompassDisplayOff"           
    ' Ändert Blickwinkel
    CATIA.ActiveWindow.ActiveViewer.Viewpoint3D.PutSightDirection Array(1, 1, -1)
    CATIA.ActiveWindow.ActiveViewer.Viewpoint3D.PutUpDirection Array(0, 0, 1)
    ' Fokusiert Bauteil
    CATIA.ActiveWindow.ActiveViewer.Reframe
    CATIA.StartCommand "Fit All In"
   
    CATIA.RefreshDisplay = True
    CATIA.ActiveWindow.ActiveViewer.Update
   
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''    1. Screenshot welches unter dem Pfad -> dateipfad <- gespeichert wird
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
    dateiname = CStr(Summe)
    dateipfad = "C:\Rainer\"                                                    ' Pfad für die Bilder
    CATIA.ActiveWindow.ActiveViewer.CaptureToFile 5, dateipfad + dateiname + "_1.jpeg"      'variabel
   
    Dim k, Summe_k As Integer
    Summe_k = 0
    k = 1
    Do While CATIA.FileSystem.FileExists(dateipfad + dateiname + "_1.jpeg") = False
            Summe_k = Summe_k + k
            k = k + 1
    Loop

    '----- Bild 1 wurde erstellt -----
    Box = MsgBox("Bild 1 wurde erstellt", 64, "Meldung") 'Diese Meldung würde ich gerne weglassen
   
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    CATIA.StartCommand "Multi-View"
    CATIA.StartCommand "Fit all in"
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''    2. Screenshot welches unter dem Pfad -> dateipfad <- gespeichert wird
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    CATIA.ActiveWindow.ActiveViewer.CaptureToFile 5, dateipfad + dateiname + "_2.jpeg"      'variabel
    Dim l, Summe_l As Integer
    Summe_l = 0
    l = 1
    Do While CATIA.FileSystem.FileExists(dateipfad + dateiname + "_1.jpeg") = False
            Summe_l = Summe_l + l
            l = l + 1
    Loop
    '----- Bild 2 wurde erstellt -----
    'Box = MsgBox("Bild 2 wurde erstellt", 64, "Meldung")  'Diese Meldung würde ich gerne weglassen
    CATIA.StartCommand "Multi-View"                        'Multi-View ausschalten
    FullScreen.Layout = 2                                  'Zeigt Baum wieder an
    CATIA.StartCommand "CompassDisplayOn"                  'Kompass an
Next
    Call DownSubs.Hintergrundwechsel                                      'Farbwechsel durchführen weis --> Standart

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

---

Hallo,
ich würde als erstes mal probieren, mit einem Sleep die ganze Sache etwas auszubremsen. Ich nehme nämlich an, dass CATIA langsamer als das Makro ist und dadurch diese Ungereimtheiten entstehen. Die Messageboxen führen dann automatisch dazu, dass eine Verzögerung stattfindet. Ich würde sowohl nach der Ansichtenwechslung und nach dem Fit All In ein sleep von einer halben Sekunde "Sleep(500)" einfügen oder vll. erst mal im extrem 10 sekunden oder so, um zu prüfen, ob es daran liegt. Danach könntest du ja Schrittweise optimieren, wobei es, wenn es daran liegt, dann von der Performance der CPU abhängig sein dürfte.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

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

---

Ah ok jetzt läuft es. 
Vielen Dank RSchulz ich glaub ich wäre noch dran verzweifelt.

MFG
Rainer

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

---

Hallo,

wenn du es in VB.NET machst könntest du mit einem DoEvents arbeiten. Dann hast du keine unnötige Pause 

------------------
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