Настройка штампа

[Lrsergey]

Здравствуйте, помогите пожалуйста с таким вопросом.

По плану хочется сделать, чтобы в штампе выводилось имя листа. 

Т.е. как мне сделать, чтобы в редактировании текста можно было выбрать "свойство листа" - "имя" (к примеру). По умолчанию нет такого поля. Как его добавить?

Надеюсь объяснил понятно 😃

[MikhailovAndrey]

Создавать пользовательское свойство через программу на iLogic, больше никак.

Если такой метод не пугает, то можно посмотреть реализацию более конкретно.

[ivann74]

данный код вставьте в шаблон чертежа.

Имя чертежа будет соответствовать названию листа в браузере.

For Each oSheet In ThisDrawing.Document.Sheets
    Dim stb As TitleBlock = oSheet.TitleBlock
    Dim tb As Inventor.TextBox, flag As Boolean = True
   Dim stn As String = oSheet.Name.Remove(oSheet.Name.LastIndexOf(":"))
    For Each tb In stb.Definition.Sketch.TextBoxes
        If tb.Text = "Имя листа" Then
            If stb.GetResultText(tb) <> stn Then
                stb.SetPromptResultText(tb, stn)
            End If
         flag = False
         Exit For
        End If
    Next
    If flag = True Then
        Dim p2d As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(10#, 0.75)
        Dim oSk As DrawingSketch
        stb.Definition.Edit(oSk)
        tb = oSk.TextBoxes.AddFitted(p2d, "<Prompt>Имя листа</Prompt>")
        tb.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextCenter
        tb.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextMiddle
        stb.Definition.ExitEdit
        stb.SetPromptResultText(tb, stn)
    End If
Next