01-11-2019
03:23 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-11-2019
03:23 AM
Here is it :
Public Sub Title_block_scale_insertion(sProperty As String, oSheet As Sheet)
'insert the scale of the first view of a sheet
Dim oTextBox As Inventor.TextBox
If oSheet.DrawingViews.Count > 0 Then
For Each oTextBox In oSheet.TitleBlock.Definition.Sketch.TextBoxes
If oTextBox.FormattedText = sProperty Then
Call oSheet.TitleBlock.SetPromptResultText(oTextBox, Replace(Replace(oSheet.DrawingViews(1).ScaleString, ":", "/"), " ", ""))
End If
Next oTextBox
End If
End Sub
Guillaume MASSART
AFFIVAL SAS
Inventor Pro 2022