Сообщество
Здравствуйте, помогите пожалуйста с таким вопросом.
По плану хочется сделать, чтобы в штампе выводилось имя листа.
Т.е. как мне сделать, чтобы в редактировании текста можно было выбрать "свойство листа" - "имя" (к примеру). По умолчанию нет такого поля. Как его добавить?
Надеюсь объяснил понятно 😃
данный код вставьте в шаблон чертежа.
Имя чертежа будет соответствовать названию листа в браузере.
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
Не нашли то, что искали? Задайте вопросы в сообществе или поделитесь своими знаниями.