|
CATIA V5 Programmierung : Schrift formatieren
Parametricks am 16.12.2008 um 17:39 Uhr (0)
Hallo nochmal,ich bin wider ein Stück weiter........Dim myCatia As ApplicationSet myCatia = CATIASet partDocument1 = CATIA.ActiveDocumentCatia.StatusBar = "Schrift01.CATSript V 1.0"Dim myList As SelectionSet myList = CATIA.ActiveDocument.SelectionmyList.ClearmyList.Search "Drafting.Text;in"myList.VisProperties.SetRealColor 0, 0, 0, 1for i=1 to myList.Count Set Texti = myList.Item(i).Value Texti.SetFontName 0, 0, "Monospac821 BT" Texti.SetParameterOnsubString catCharRatio,0,0,68 Texti.SetParameterOnsubStr ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schrift formatieren
Parametricks am 16.12.2008 um 15:43 Uhr (0)
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 ApplicationSet myCatia = CATIASet partDocument1 = CATIA.ActiveDocumentDim myList As SelectionSet myList = CATIA.ActiveDocument.SelectionmyList.ClearmyList.Search "Drafting.Text;in"myList.VisProperties.SetRealColor 0, 0, 0, 1Jetzt ist alles schwarz. Soweit, sogut,ich möchte jetzt noch ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schrift formatieren
Parametricks am 16.12.2008 um 21:22 Uhr (0)
Hallo Jens und der Rest,ich habs dann doch noch geschafft............Sub CATMain()Dim myCatia As ApplicationSet myCatia = CATIASet partDocument1 = CATIA.ActiveDocumentIf (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" ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
