Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Schrift formatieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Schrift formatieren (1653 mal gelesen)
Parametricks
Mitglied
Konstrukteur / CAD Trainer


Sehen Sie sich das Profil von Parametricks an!   Senden Sie eine Private Message an Parametricks  Schreiben Sie einen Gästebucheintrag für Parametricks

Beiträge: 91
Registriert: 29.04.2008

V5 R16 SP 5 Hotfix 70
V5 R17
V5 R19
ProE WF4
Cimatron
XP Pro 2002 SP3 Dell Precision T5400
Intel Xeon X5260 @ 3.33GHz
3.25 GB NVIDIA Quadro FX 3700

erstellt am: 16. Dez. 2008 15:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

ich habe eine Vorgabezeichnung, aus der ich mir Ansichten und Texte dumm rüberkopiere (ist nur ne vorab Zeichnung). Allerding sind die Texte kunterbunt eingefärbt, also hab ich mir was ausgedacht.


Dim myCatia As Application
Set myCatia = CATIA
Set partDocument1 = CATIA.ActiveDocument

Dim myList As Selection
Set myList = CATIA.ActiveDocument.Selection
myList.Clear
myList.Search "Drafting.Text;in"


myList.VisProperties.SetRealColor 0, 0, 0, 1

Jetzt ist alles schwarz. Soweit, sogut,

ich möchte jetzt noch die Schriftart, style, ratio und spacing verändern. Kann mir da jemand auf die Sprünge helfen. Mit den Suchergebnissem komme ich nicht weiter.

Vielen Dank im vorraus. Gruß Marco

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

Jens Hansen
Mitglied
Senior Consult


Sehen Sie sich das Profil von Jens Hansen an!   Senden Sie eine Private Message an Jens Hansen  Schreiben Sie einen Gästebucheintrag für Jens Hansen

Beiträge: 1055
Registriert: 05.08.2000

Win7
CATIA V5 R19
VB.Net
C#

erstellt am: 16. Dez. 2008 15:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Parametricks 10 Unities + Antwort hilfreich

allo,
diese Eigenschaften kannst auch nicht direkt über eine Selection ändern. Du musst innerhalb einer Schleife auf den jeweiligen Text zugreifen - z.B:

Set Texti = Selection.Item(x).Value

Über Tetxi.TextProperties kommst du dann an Dinge wie Schriftgröße, Winkel etc.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

Parametricks
Mitglied
Konstrukteur / CAD Trainer


Sehen Sie sich das Profil von Parametricks an!   Senden Sie eine Private Message an Parametricks  Schreiben Sie einen Gästebucheintrag für Parametricks

Beiträge: 91
Registriert: 29.04.2008

V5 R16 SP 5 Hotfix 70
V5 R17
V5 R19
ProE WF4
Cimatron
XP Pro 2002 SP3 Dell Precision T5400
Intel Xeon X5260 @ 3.33GHz
3.25 GB NVIDIA Quadro FX 3700

erstellt am: 16. Dez. 2008 16:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Jens,

wie muss das bei meinem Code aussehen. Meine Selection löschen und neue Selection. Hab keine Idee?!?!?

Gruß Marco

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

Jens Hansen
Mitglied
Senior Consult


Sehen Sie sich das Profil von Jens Hansen an!   Senden Sie eine Private Message an Jens Hansen  Schreiben Sie einen Gästebucheintrag für Jens Hansen

Beiträge: 1055
Registriert: 05.08.2000

Win7
CATIA V5 R19
VB.Net
C#

erstellt am: 16. Dez. 2008 16:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Parametricks 10 Unities + Antwort hilfreich

Es könnte so aussehen (ohne gewähr da nicht getestet)

for i=1 to myList.Count
  Set Texti = myList.Item(i).Value
  Texti.Italic = 1 'Macht den Text kursiv
next

Such mal in der online Doku nach "DrawingTextProperties"; dort findest du dann die ganzen Einstellungen

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

Parametricks
Mitglied
Konstrukteur / CAD Trainer


Sehen Sie sich das Profil von Parametricks an!   Senden Sie eine Private Message an Parametricks  Schreiben Sie einen Gästebucheintrag für Parametricks

Beiträge: 91
Registriert: 29.04.2008

V5 R16 SP 5 Hotfix 70
V5 R17
V5 R19
ProE WF4
Cimatron
XP Pro 2002 SP3 Dell Precision T5400
Intel Xeon X5260 @ 3.33GHz
3.25 GB NVIDIA Quadro FX 3700

erstellt am: 16. Dez. 2008 16:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Jens,

die Online Duko funzt bei uns bei genau dieser Suche nicht. ARRRGGGHH

Aber schon mal Danke.

Wenn ich das richtig verstehe, selectiert die Schleife nacheinander die Elemente meiner Auswahl, deklariert sie als Text und ändert die Eigenschaften?!?

Sind diese Funktionen Lizenz abhängig? Ich hab die HD 2.

Es würde mir sehr helfen wenn ich noch weitere Hinweise und Hilfe bekomme:


Gruß Marco

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

Parametricks
Mitglied
Konstrukteur / CAD Trainer


Sehen Sie sich das Profil von Parametricks an!   Senden Sie eine Private Message an Parametricks  Schreiben Sie einen Gästebucheintrag für Parametricks

Beiträge: 91
Registriert: 29.04.2008

V5 R16 SP 5 Hotfix 70
V5 R17
V5 R19
ProE WF4
Cimatron
XP Pro 2002 SP3 Dell Precision T5400
Intel Xeon X5260 @ 3.33GHz
3.25 GB NVIDIA Quadro FX 3700

erstellt am: 16. Dez. 2008 17:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo nochmal,

ich bin wider ein Stück weiter........


Dim myCatia As Application
Set myCatia = CATIA
Set partDocument1 = CATIA.ActiveDocument
Catia.StatusBar = "Schrift01.CATSript V 1.0"

Dim myList As Selection
Set myList = CATIA.ActiveDocument.Selection
myList.Clear
myList.Search "Drafting.Text;in"

myList.VisProperties.SetRealColor 0, 0, 0, 1

for i=1 to myList.Count
  Set Texti = myList.Item(i).Value
  Texti.SetFontName 0, 0, "Monospac821 BT"
  Texti.SetParameterOnsubString catCharRatio,0,0,68   
  Texti.SetParameterOnsubString catCharSpacing,0,0,25 
next


So Schriftart passt, Fontstyle passt, Ratio und Spacing wollen nicht mitspielen. Hat jemand ne Idee


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

Parametricks
Mitglied
Konstrukteur / CAD Trainer


Sehen Sie sich das Profil von Parametricks an!   Senden Sie eine Private Message an Parametricks  Schreiben Sie einen Gästebucheintrag für Parametricks

Beiträge: 91
Registriert: 29.04.2008

V5 R16 SP 5 Hotfix 70
V5 R17
V5 R19
ProE WF4
Cimatron
XP Pro 2002 SP3 Dell Precision T5400
Intel Xeon X5260 @ 3.33GHz
3.25 GB NVIDIA Quadro FX 3700

erstellt am: 16. Dez. 2008 21:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Jens und der Rest,

ich habs dann doch noch geschafft............

Sub CATMain()

Dim myCatia As Application
Set myCatia = CATIA
Set partDocument1 = CATIA.ActiveDocument
If (Instr(partDocument1.Name,".CATDrawing"))<> 0 Then

Dim myList As Selection
Set myList = CATIA.ActiveDocument.Selection
myList.Clear
myList.Search "Drafting.Text;in"

if myList.count > 0 Then
myList.VisProperties.SetRealColor 0, 0, 0, 1
for i = 1 to myList.count
Set Texti = myList.item(i).value
Texti.SetFontName 0, 0, "Monospac821 BT"
Texti.SetParameterOnsubString catStyle,0,0,0
Texti.SetParameterOnsubString catCharRatio,0,0,68
Texti.SetParameterOnsubString catCharSpacing,0,0,25
next
myList.Clear

MsgBox "Die Schrift wurde in VW Standart formatiert!" &_
(chr(13)) &_
    "Die Schriftgrösse wurde nicht geaendert!"

Else MsgBox"Es wurde kein Text gefunden!"
End if

Else MsgBox"Aktives Dokument ist kein CATDrawing!"
End if

End Sub


@ Jens 10U´s sind unterwegs ohne Deinen Tip hätt ich´s nicht geschafft!

Also dann Gute Nacht.
Gruß Marco

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz