1 2 3 4 5 6 7 8 9 10 11
| .....
.....
Set DR000 = CATIA.ActiveDocument.DrawingRoot 'création d'un parametre
DR000.Parameters.CreateString "Description", "" 'creation d'un parametre Description
Set Text = DrwTexts.Add("", OH + .5*Col(3), OV + Row(2)+9) 'Description
Text.InsertVariable 0, 0, DrwDocument.Parameters.Item("Description") 'connection au parametre ci-dessus
CATFormatTBText "TitleBlock_Text_Title_2" , catBottomCenter, 5 'format du texte "TitleBlock_Text_Title_2", taille
Text.SetParameterOnSubString catItalic, 0, 0, 1 ' texte en italic
....
.... |
Partager