---

Hallo zusammen,

ich füge mittels eines kleinen Makros eine Bilddatei als Stempel in den Hintergrund eines CATDrawings ein. Ich nutze R18 und das Einfügen funktioniert auch wie gewünscht.

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set selection1 = drawingDocument1.Selection

selection1.Clear

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.Item("Background View")

Set drawingPictures1 = drawingView1.Pictures

Set DrwPicture1 = drawingView1.Pictures.Add("C:\...Prototyp.JPG",x-Position,y-Position)
  DrwPicture1.Name = "Stempel"

selection1.Add DrwPicture1

End Sub

---

Diesen Stempel/diese Bild würde ich jetzt gerne noch skalieren und abhängig von der Position einer Tabelle im unteren Bereich der Zeichnung positionieren.
Mir schwebt eine Skalierung in Abhängigkeit der gewählten Blattgröße vor und ein Auslesen der X,Y-Position der Tabelle um dann mittels der Größe des Bildes die X,y-Position so festzulegen, dass der Stempel immer links oder rechts neben der Tabelle liegt.
Zum Skalieren habe ich leider nichts finden können, was mir weitergeholfen hat.

Danke und viele Grüße.

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

---

Servus
Gemäß Doku solltest du das Bild zB mit:
    DrwPicture1.height = 100
    DrwPicture1.width=  100
in der Größe ändern können (allerdings muss scheinbar der RatioLock af False gestellt sein)

Gruß
Bernd

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

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

---

Hallo,

danke für den Hinweis, damit funktioniert es. Ich kann auf die Dokumentation leider nicht zugreifen. Wir haben nur die für die üblichen Design-Tools hinterlegt, also part-, shape-, assembly- und compositedesign usw.
Danke nochmal.

Viele Grüße

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

---

Servus
Bitte Systeminfo ausfüllen.
Die Doku für die API Makros) findest du im CATIA-Installationsverzeichnis (V5Automation.chm)

Gruß
Bernd

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

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