Autor
|
Thema: Macro Text für Maße (1001 mal gelesen)
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 24. Sep. 2009 11:02 <-- editieren / zitieren --> Unities abgeben:
Hi! Was muss ich diesem Code noch einfügen, damit er mir auch alle Maße in der Schriftart "SSS1" schreibt, allerding in Größe 3,5? Sub CATMain() Set oDRWDoc = CATIA.ActiveDocument Set oSel = oDRWDoc.Selection Dim i As Integer Dim j As Integer Dim iFont As String Dim iSize As Single oSel.Clear '**********************************Definition Schriftart (bei Bedarf anpassen)********************************** iFont = "SSS1" iSize = 20 '**********************************Schleife fuer alle Texte********************************** For i = 1 To oDRWDoc.Sheets.Count Set oSheet = oDRWDoc.Sheets.Item(i) For j = 3 To oSheet.Views.Count Set oView = oSheet.Views.Item(j) For h = 1 To oView.Texts.Count Set myText = oView.Texts.Item(h) myText.SetFontName 0, 0, iFont myText.SetFontSize 0, 0, iSize Next Next Next Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DanielFr. Moderator Manager
Beiträge: 2506 Registriert: 10.08.2005 HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3
|
erstellt am: 24. Sep. 2009 12:18 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
Hallo, Du musst folgende Zeile ändern: Sub CATMain() Set oDRWDoc = CATIA.ActiveDocument Set oSel = oDRWDoc.Selection Dim i As Integer Dim j As Integer Dim iFont As String Dim iSize As Single oSel.Clear '**********************************Definition Schriftart (bei Bedarf anpassen)********************************** iFont = "SSS1" 'Hier wird die Schriftart bestimmt iSize = "3,5" 'Hier die Schriftgröße. Bei Kommawerten müssen diese in Anführungszeichen gesetzt werden '**********************************Schleife fuer alle Texte********************************** For i = 1 To oDRWDoc.Sheets.Count Set oSheet = oDRWDoc.Sheets.Item(i) For j = 3 To oSheet.Views.Count Set oView = oSheet.Views.Item(j) For h = 1 To oView.Texts.Count Set myText = oView.Texts.Item(h) myText.SetFontName 0, 0, iFont myText.SetFontSize 0, 0, iSize Next Next Next
------------------ 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 |
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 24. Sep. 2009 13:15 <-- editieren / zitieren --> Unities abgeben:
Ne, das funktioniert nicht, denn der Code bezieht sich nur auf Schriftart der Texte auf der Zeichnung, nicht für Maße. Ich habe auch gedacht, dass Maße damit auch geändert werden, nach dem Testen war das aber nicht der Fall. Ich muss wohl irgend etwas an "MyText" verändern, vielleicht "MyDimension"??? Ich habe das allerdings ausprobiert und das System brachte einen Fehler. nun weiß ich nicht weiter. Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DanielFr. Moderator Manager
Beiträge: 2506 Registriert: 10.08.2005 HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3
|
erstellt am: 24. Sep. 2009 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|