Imports System.Runtime.InteropServices  
    
  Module Module1  
    
      Sub Main()  
          Dim objApp As SolidEdgeFramework.Application  
          Dim objDraft As SolidEdgeDraft.DraftDocument  
          Dim objModelLinks As SolidEdgeDraft.ModelLinks  
          Dim objModelLink As SolidEdgeDraft.ModelLink  
          Dim i As Integer  
    
          objApp = Marshal.GetActiveObject("SolidEdge.Application")  
          objDraft = objApp.ActiveDocument  
          objModelLinks = objDraft.ModelLinks  
    
          For i = 1 To objModelLinks.Count  
              objModelLink = objModelLinks.Item(i)  
              objModelLink.UpdateViews()  
          Next  
    
      End Sub  
    
  End Module  
  

Hello,

I saw this topic but i had another similar question. I want to check with VB if the drawing needs a update, but i don't know how.

(And if the drawing needs an update then i can give the user a msgbox warning, update the drawing and change the filename of the pdf-file.)

I hope somebody can help me.

Maybe I need to mention that I already tried several things but they don't work:

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

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

Hello Harry,

This Code works. Let me know if your problem is'nt solved.

Public Sub UpdateDraft()
On Error Resume Next

Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet

Dim objDrawingViews As SolidEdgeDraft.DrawingViews
Dim objDrawingView As SolidEdgeDraft.DrawingView

Dim DrawingViewNeedsUpdate As Boolean

'Get SE en open document
    Set objApp = GetObject(, "SolidEdge.Application")

    If Err Then
        Err.Clear
        Set objApp = CreateObject("SolidEdge.Application")
    End If
    'Open document
    Set objDoc = objApp.ActiveDocument
    
    'Visible
    objApp.Visible = True
    objApp.DisplayFullScreen = True
    
'Set
    Set objSheet = objDoc.ActiveSheet
    Set objDrawingViews = objSheet.DrawingViews
    
    DrawingViewNeedsUpdate = False
    
'Loop throug the drawingviews and check each one of them.
'If one of the views is out of date, the Boolean is True
    For Each objDrawingView In objDrawingViews
        If objDrawingView.IsUpToDate = False Then
            DrawingViewNeedsUpdate = True
            Exit For
            DrawingViewNeedsUpdate = True
        Else
            DrawingViewNeedsUpdate = False
        End If
    Next
    
'Show the messagebox
    If DrawingViewNeedsUpdate = True Then
        MsgBox "Update the drawing and change the filename of the pdf-file"
    End If

'Release variables
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    
    Set objDrawingViews = Nothing
    Set objDrawingView = Nothing
    
End Sub

Best Regards,

Wouter (Erwo)

Dear John,

If you want to change the file properties or some title boxes in draft file, it doesn't require to open the file in SolidEdge simply you can use file system object and you can add Title, any custom properties etc. which will save a lot of time for opening and closing of a file in SolideEdge.

Just try with file system object.

All the Best,

Sandeep Shewale

Hi Harry,

I don't know a way to hide that specific warning. But what you can do is what John says; set DisplayAlerts to False. Then, when Solid Egde has fired the 'AfterDocumentOpen' event (see Solid Edge Spy), you can set the DisplayAlerts property back to True.

Good luck,

Best Regards,

Wouter (Erwo)

p.s. I'am indeed from the Netherlands, sent me an email for contact information.