Собс-но, можно ли это осуществить, чтоб ставилось изначально в одну строку?
Может можно в "суффикс" вставить какой спецсимвол, чтоб отображался живой масштаб, а не текст , вбитый вручную?
Public DrwDocument As DrawingDocument
Public DrwSheets As DrawingSheets
Public drwSheet As DrawingSheet
Public drwViews As DrawingViews
Public drwView As DrawingView
Sub CATMain()
Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets = DrwDocument.Sheets
Set drwSheet = DrwSheets.ActiveSheet
Set drwViews = drwSheet.Views
Set iParameter = DrwDocument.Parameters.Item("Drawing\Sheet.1\ViewMakeUp.1\Scale")
Set Text = drwViews.Item(1).Texts.Add("", 100, 100)
Text.InsertVariable 0, 0, iParameter
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1