Font size setting in the corner stamp

[DeptaM]

Hi to all,
in the corner stamp in the name box I have the font size set to 5mm. Sometimes we have long names and we have to resize the stamp directly to fit the name. Is there a rule where the font can be set directly?
Thanks

 

[JelteDeJong]

it is possible but you need to give more info. Let's start with the following rule.  Change the property name at the start of the rule and run it. You should get a message box. Can you share the text in the message box? This is needed to see what needs to be updated/changed.

Dim propertyName As String = "Title" ' Set your property name here!

Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet
Dim titleBlock As TitleBlockDefinition = sheet.TitleBlock.Definition

For Each textBox As Inventor.TextBox In titleBlock.Sketch.TextBoxes
    Dim propertyText As String = String.Format("Property='{0}'", propertyName)
    Dim formatedText As String = textBox.FormattedText

    If (formatedText.Contains(propertyText)) Then

        MsgBox(formatedText)

        ' TODO Update the formatedText with a smaller font size

        ' Set the new formated text
        'textBox.FormattedText = formatedText
    End If
Next

[Michael.Navara]

You have two possibilities

1. Turn on the textBox border, then the text will be wrapped automatically 
2. You can modify the FormattedText or WidthScale property of TextBox. Then you can change the font size, width ratio etc. 

[DeptaM]

Good day,
I would need a dialog box to open so I could adjust the text size.

Good day,
I would need a dialog box to open so I could adjust the text size. Basically, it could be applied to any line in the corner stamp, depending on what was set there.

Dim propertyName As String = "????" 'Set your property name here!

 

[DeptaM]

Dobrý den pane Navaro, díky za odpověď. V rohovém razítku je defaultně nastavená velikost písma 5mm a pokud je název dlouhý tak při zalomení textu přesahuje nahoru i dolů. Proto potřebuji velikost textu někdy změnit. Dělám to klasicky "Upravit definici", ale kdyby se to povedlo prostřednictvím iLogic, tak by to bylo komfortnější.

[Michael.Navara]

To asi není problém, dá se to upravit ve vlastnosti FormattedText, která obsahuje definici i pro velikost textu. V podstatě je to totéž, jako úprava v definici razítka.

Here is the code sample how to change font size for textbox which displays the 'Title' property

Dim formattedTextFormat = "<StyleOverride FontSize='FONT_SIZE_HERE'><Property Document='drawing' PropertySet='Inventor Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>NÁZEV</Property></StyleOverride>"
Dim porpertyTitle = "Property='Title'"

Dim fontSize As Double = InputListBox("Font size [mm]", {2, 3.5, 5 })
fontSize /= 10 ' mm -> cm

Dim drawing As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = drawing.ActiveSheet
Dim titleBlock As TitleBlock = sheet.TitleBlock
Dim drawingSketch As DrawingSketch
titleBlock.Definition.Edit(drawingSketch)
For Each oTextBox As Inventor.TextBox In drawingSketch.TextBoxes
	If oTextBox.FormattedText.Contains(porpertyTitle) Then
		Dim formattedText = formattedTextFormat.Replace("FONT_SIZE_HERE", fontSize.ToString())
		oTextBox.FormattedText = formattedText
		titleBlock.Definition.ExitEdit(True)
		Return
	End If
Next

[DeptaM]

Dobrý den,

udělal jsem video. "Název" zmizí.

https://knowledge.autodesk.com/community/screencast/541f4aeb-16c8-4e01-856a-27d9d1bc9da0

[Michael.Navara]

Asi je špatně ten formattedTextFormat. Bral jsem ho z defaultní DIN šablony a ta se odkazuje na vlastnost výkresu.

Lepší je si najít ten textbox a formattedText si vykopírovat. Potom nahradit velikost fontu tak, jak je to v tom příkladu (FontSize='FONT_SIZE_HERE'). Nebo změnit zdroj vlastnosti na Document='model'

Dim oTextBox As Inventor.TextBox = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchTextBoxFilter, "Pick TextBox")
Logger.Info(oTextBox.FormattedText)

[DeptaM]

Dobrý den,

Vyměnil jsem tento první řádek, ale hlásí to chybu. Je pravda, že úplně nerozumím tomu, co píšete dál. Vyhazuje to chybu.

Dim formattedTextFormat = "<StyleOverride FontSize='FONT_SIZE_HERE'><Property Document='drawing' PropertySet='Inventor Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>NÁZEV</Property></StyleOverride>"

Dim oTextBox As Inventor.TextBox = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchTextBoxFilter, "Pick TextBox")
Logger.Info(oTextBox.FormattedText)