Private Sub LastUpdateUserName_Click(sender As Object, e As EventArgs) Handles LastUpdateUserName.Click
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheets As SolidEdgeDraft.Sheets
Dim objSheet As SolidEdgeDraft.Sheet
Dim objDrawingViews As SolidEdgeDraft.DrawingViews
Dim objDrawingView As SolidEdgeDraft.DrawingView
Dim objUpdateUsername(0 To 10) As String
Try
objApp = Marshal.GetActiveObject("SolidEdge.Application")
objDoc = objApp.ActiveDocument
objSheets = objDoc.Sheets
objSheet = objDoc.ActiveSheet
objDrawingViews = objSheet.DrawingViews
objDrawingView = objDrawingViews.Item(1)
Dim i As Integer
i = 0
For Each objDrawingView In objDrawingViews
objUpdateUsername(i) = objDrawingView.LastUpdateUsername
i = i + 1
Next
Catch ex As Exception
MsgBox(ex.ToString)
Clipboard.SetText(ex.ToString)
End Try
End Sub