Autor
|
Thema: CATIA V6 Logo in Schriftfeld einfügen (2072 / mal gelesen)
|
Apfelkern Mitglied Konstrukteur
Beiträge: 5 Registriert: 09.03.2016 CATIA V6
|
erstellt am: 09. Mrz. 2016 14:14 <-- editieren / zitieren --> Unities abgeben:
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 |
Bertel Mitglied
Beiträge: 300 Registriert: 03.04.2002
|
erstellt am: 09. Mrz. 2016 17:41 <-- editieren / zitieren --> Unities abgeben: Nur für Apfelkern
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 |
Apfelkern Mitglied Konstrukteur
Beiträge: 5 Registriert: 09.03.2016 CATIA V6
|
erstellt am: 10. Mrz. 2016 07:44 <-- editieren / zitieren --> Unities abgeben:
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 |
Bertel Mitglied
Beiträge: 300 Registriert: 03.04.2002
|
erstellt am: 11. Mrz. 2016 13:29 <-- editieren / zitieren --> Unities abgeben: Nur für Apfelkern
|
Apfelkern Mitglied Konstrukteur
Beiträge: 5 Registriert: 09.03.2016 CATIA V6
|
erstellt am: 11. Mrz. 2016 13:37 <-- editieren / zitieren --> Unities abgeben:
|
Bertel Mitglied
Beiträge: 300 Registriert: 03.04.2002
|
erstellt am: 11. Mrz. 2016 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für Apfelkern
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 |
Apfelkern Mitglied Konstrukteur
Beiträge: 5 Registriert: 09.03.2016 CATIA V6
|
erstellt am: 14. Mrz. 2016 07:58 <-- editieren / zitieren --> Unities abgeben:
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 |
D_Schreiter Mitglied Senior CAD Consultant
Beiträge: 38 Registriert: 22.07.2004 Win7 64 bit SP1 CATIA V6 R2013/2013X
|
erstellt am: 14. Mrz. 2016 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für Apfelkern
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 |
| (Senior) Aerospace Design Engineer (f/m/d) | Capgemini Engineering is the global market leader in engineering and research and development services. With cutting-edge digital technologies and innovative software, we are shaping the smart industry of tomorrow: on the road, in the air, on the seas, in rail transport, in energy supply and in the fields of life science, telecommunications, semiconductors, electronics and finance. We employ more than 55,000 engineers and scientists in over 30 countries.... | Anzeige ansehen | Luft- und Raumfahrttechnik |
|
Apfelkern Mitglied Konstrukteur
Beiträge: 5 Registriert: 09.03.2016 CATIA V6
|
erstellt am: 14. Mrz. 2016 09:51 <-- editieren / zitieren --> Unities abgeben:
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 |