06-01-2015
09:09 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-01-2015
09:09 PM
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
- - - - - - - - - - - - - - -
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