---

Hallo V5 Gemeinde,

ich versuche gerade, ein Bild(Screenshot), das ich vorher erzeugt habe, mit einem Text zu versehen.

Leider habe ich hierfür nur möglichkeiten mit VB gefunden, aber nicht mit VBA. Ist jemanden eine Möglichkeit bekannt, so etwas umzusetzen?

Mein Code sieht folgendermassen aus:

Code:

---

Set aktiWin = CATIA.ActiveWindow
Set viewer3D1 = aktiWin.ActiveViewer

aktiWin.Layout = catWindowGeomOnly

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
viewer3D1.CaptureToFile 5, Picname
aktiWin.Layout = catWindowSpecsAndGeom
        viewer3D1.PutBackgroundColor color0
       

---

mfg

    Lars

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

---

Hallo,
mit VBA-Bordmitteln geht das  auch nicht. Dafür fehlen die nötigen Routinen direkt in VBA. Du musst schon auf die Windows-DLL zurückgreifen und diese benutzen.
Schau hierfür mal ins Internet. Da müsse es genügend Beispiele geben.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Homepage von Jens Hansen
Kochbuch - CATIA V5 automatisieren

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

---

Habe das Problem wahrscheinlich nicht verstanden:

1. Im VBA müsste es theoretisch genauso funktionieren wie im VB
2. Kann man denn dann nicht einfach ein Textfeld vor dem Bild erstellen?

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

---

Hallo,

danke für die Hilfe. Ich habe mir jetzt ein workaround überlegt.

Ich füge das Bild in ein Catdrawing ein, erzeuge dann ein textfeld und speichere es danach als Bild.

Funktioniert ganz gut, ist aber nicht gerade performant.

Ihr könnt aber gerne weiter über das Thema plaudern. Vielleicht findet sich ja doch noch eine bessere Lösung!

mfg
    Lars

[Diese Nachricht wurde von INLU am 19. Sep. 2010 editiert.]

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

---

Hallo Lars,

wie es Jens schon geschrieben hatte, wirst du mit CATIA und VBA Bordmitteln hier nicht ins Ziel kommen.
Das was du machen möchtest ist ja eigentlich schon "Bildverarbeitung" und fällt somit aus den normalen Aufgabenbereich.
In VB.NET gibt es aber eine ziemlich einfache (und auch schnelle) Möglichkeit.
Nach etwas googlen habe ich folgeder Code gefunden:

Code:

---

        Dim oImg As New Bitmap("d:\BildZuBeschriten.jpg")

        Dim oTempImg As New Bitmap(oImg, New Size(oImg.Width, oImg.Height))
        Dim oGraphic As Graphics = Graphics.FromImage(oTempImg)
        Dim oNewBrush As New SolidBrush(Color.Black)
        oGraphic.DrawString("Beschriftung", New Font("Times New Roman", 14, FontStyle.Italic), oNewBrush, New PointF(10, 30))
        oTempImg.Save("d:\BeschrifteterBild.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

---

Über Formate, Schriftart und ähnliches gibt es viele Möglichkeiten.
Die Quelle für meinen Code habe ich hier gefunden.

Gruß,
Zoltan

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

---

Hallo zoltan,

da ich es leider noch nicht hin bekomme, über VB.net Late Binding zu realisieren, fälllt dieser Lösungansatz für mich erst einmal flach.

Trotzdem Danke!

mfg
  Lars

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