Solid Edge Forum

[hmldijk]

ik zou persoonlijk liever deze code gebruiken, op deze manier
update SE zelf alle views die bij een modellink horen:

objApp.ActiveDocument.ModelLinks(1).UpdateViews

OF (als je meerdere modellinks hebt):

For i = 1 To objApp.ActiveDocument.ModelLinks.Count
objApp.ActiveDocument.ModelLinks(i).UpdateViews()
Next

(misschien dat hiermee meteen het probleem van "Matthijs ter Stege" is opgelost)

*********************************************************

Maar ik had zelf ook nog een vraagje omtrent dit topic:
Kun je met VB ook controleren of een drawing up to date is?
Want ik wil afhankelijk van de uitkomst bepaalde acties uitvoeren.

Ik heb dit al geprobeerd maar helaas zonder resultaat:

If objDoc.ModelLinks(1).UpdateViews = False Then MsgBox "..."

If objDoc.ActiveSheet.DrawingView(.IsUpToDate = True Then MsgBox "True"

[hmldijk]

na wat meer testen (en hulp via jasonnewell.net) ben ik erachter gekomen dat de functie "isuptodate" wel werk maar er een foutje in mijn code zat.

lijn 1 werkt niet, maar lijn 2 wel:
1) If objDoc.ActiveSheet.DrawingView(1).IsUpToDate = False Then MsgBox "False"
2) If objDoc.ActiveSheet.DrawingViews.Item(1).IsUpToDate = False Then MsgBox "False"