Autor
|
Thema: Schrift formatieren (1653 mal gelesen)
|
Parametricks Mitglied Konstrukteur / CAD Trainer
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 / zitieren --> Unities abgeben:
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
Beiträge: 1055 Registriert: 05.08.2000 Win7 CATIA V5 R19 VB.Net C#
|
erstellt am: 16. Dez. 2008 15:52 <-- editieren / zitieren --> Unities abgeben: Nur für Parametricks
|
Parametricks Mitglied Konstrukteur / CAD Trainer
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 / zitieren --> Unities abgeben:
|
Jens Hansen Mitglied Senior Consult
Beiträge: 1055 Registriert: 05.08.2000 Win7 CATIA V5 R19 VB.Net C#
|
erstellt am: 16. Dez. 2008 16:23 <-- editieren / zitieren --> Unities abgeben: Nur für Parametricks
|
Parametricks Mitglied Konstrukteur / CAD Trainer
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben:
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 |