Добрый день. Есть код для изменения ширины и высота текста в ОН чертежа
'свойства чертежа
Dim sPSetDraw As PropertySet = dDoc.PropertySets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
Dim ssPSetDraw As PropertySet = dDoc.PropertySets.Item("Design Tracking Properties")
Dim colTitleBlkDefs As TitleBlockDefinitions = dDoc.TitleBlockDefinitions
Dim objTitleBlkDef As TitleBlockDefinition = Nothing
For Each objTitleBlkDef In colTitleBlkDefs
If objTitleBlkDef.Name = "ГОСТ - Форма 1" Then
'we have the title blk we want
Exit For
End If
Next
'' If we are here we have the title block of interest.
'' Get the title block sketch and set it active
Dim objDrwSketch As DrawingSketch = Nothing
objTitleBlkDef.Edit(objDrwSketch)
Dim colTextBoxes As TextBoxes = objDrwSketch.TextBoxes
For Each oTextBox As Inventor.TextBox In colTextBoxes
If oTextBox.Text = "<Материал>" Then
oTextBox.Style.Font = "GOST Common"
oTextBox.Style.FontSize = 0.3
oTextBox.Style.WidthScale = 0.55
oTextBox.Text = ssPSetDraw.Item("Материал").Value
End If
Next
objTitleBlkDef.ExitEdit()
End If
Он работает, но выход из эскиза не происходит, появляется сообщение о неопознанной ошибке.
