Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Owner2229
in reply to: srionde

For Each Osheet In ThisApplication.activedocument.sheets
  If osheet.TitleBlock Is Nothing Or osheet.drawingviews.count=0 Then Exit Sub
    otitleblock=osheet.TitleBlock
    otextboxes=otitleblock.definition.sketch.textboxes
    For Each otextbox In otextboxes
      If otextbox.text= "<ÉCHELLE>" Then
        drawingviewname =ThisApplication.activedocument.ActiveSheet.drawingviews.item(1).Name
        otitleblock.setpromptresulttext(otextbox, ActiveSheet.View(drawingviewname).ScaleString)
      End If  
    Next
Next
InventorVb.DocumentUpdate()

Hope this will work for you... 

Consider using "Accept as Solution" / "Kudos" if you find this helpful.
- - - - - - - - - - - - - - -
Regards,
Mike

"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods