---

Ich würde gerne ein Logo beim Erstellen eines Schriftfelds auf mein Drawing hinzufügen.
Das Schriftfeld habe ich im Drawing_Titleblock_Sample2 schon nach meinen Wünschen angepasst, es fehlt also nurnoch das Logo.

Habe leider keine Idee/Ahnung wie ich im CATScript auf Bilddatein zugreifen kann, oder was auch immer dazu nötig ist.

Ich hoffe ihr könnt mir helfen 

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

---

Hallo Apfelkern,

ich mache es so:
  Dim Logo As DrawingPicture
  Set Logo = drawingView1.Pictures.Add(Path&"logo.jpg",drawingSheet1.GetPaperWidth-132,12)
      Logo.height = 7.6
      Logo.width = 41
      Logo.Name = "logo_neu"

Gruß
Bertel

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

---

Hallo Bertel, danke für deine schnelle Antwort! 

Ich habe deinen Code in das Sub CATTitleBlockText() eingefügt und bekomme beim Erstellen folgende Fehlermeldung:

Quelle: Laufzeitfehler in Microsoft VBScript
Beschreibung: Objekt erforderlich 'drawingView1'

Soll ich den Code an einer anderen Stelle einfügen, oder was mache ich falsch?   

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

---

Hallo Apfelkern,

ich zeige nur die grundsätzliche Vorgehensweise.
Du musst die Objektnamen natürlich an dein Makro anpassen!

drawingView1
Path = "C:\Ordner\..."
drawingSheet1

Gruß
Bertel

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

---

Hallo, Bertel!

ich habe natürlich den Pfad angepasst, weiß aber nicht was ich mit drawingView1 und drawingSheet1 anfangen soll..
Bin leider Neuling beim Arbeiten im CATScript..

lg,
Apfelkern

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

---

Hallo Apfelkern,

hier ein Auszug aus der Doku:

Example:
The following example inserts a drawing picture from a given picture file path The MyView is the active view in the active drawing sheet
Dim MySheet As DrawingSheet
Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet
Dim MyView As DrawingView
Set MyView = MySheet.Views.ActiveView
Dim MyDrawingPicture1 As DrawingPicture
Set MyDrawingPicture1 = MyView.Pictures.Add("C:\tmp\ball.bmp", 100., 50.)

Gruß
Bertel

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

---

Danke, Bertel!

bekomme leider wieder eine Fehlermeldung..
Quelle: Laufzeitfehler in Microsoft VBScript.
Beschreibung: Das Objekt unterstützt diese Eigenschaft oder Methode nicht: 'CATIA.ActiveDocument.Sheets'

könntest du mir vielleicht ein Schriftfeld mit einer eingebundenen Datei anhängen? wäre dir wirklich sehr dankbar 

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

---

Hallo,
CATIA.ActiveDocument ist aus der V5 API.
In V6 muss CATIA.ActiveEditor verwendet werden.
Gruß
Daniel

------------------
Daniel Schreiter
Dipl.-Ing.

:em engineering methods AG
Rheinstr. 97
64295 Darmstadt

Know-How für Ihre virtuelle Produktentwicklung

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

---

Danke für eure Hilfe, habs endlich geschafft 

hier mein verwendeter code: 

Dim MySheet As DrawingSheet
Set MySheet = CATIA.ActiveEditor.ActiveObject.Sheets.ActiveSheet
Dim MyView As DrawingView
Set MyView = MySheet.Views.ActiveView
Dim MyDrawingPicture1 As DrawingPicture
Set MyDrawingPicture1 = MyView.Pictures.Add("C:\tmp\logo.bmp", 220., 33.)

lg,
Apfelkern

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