Time measurement of design activities

' INSTRUÇÕES
' Crie um arquivo .men com o conteudo abaixo sem a apóstrofe e salve na pasta Startup
' Crie uma variável de ambiente apontando para o arquivo de log com o nome UGII_TMP_LOG
'
'
'VERSION 130
'
' EDIT UG_GATEWAY_MAIN_MENUBAR
'
' MODIFY
' BUTTON UG_FILE_SAVE_PART
' ACTIONS/PRE path\Time_log.dll
'
' BUTTON UG_FILE_SAVE_AS
' ACTIONS/PRE path\Time_log.dll
'
' BUTTON UG_FILE_SAVE_ALL
' ACTIONS/PRE path\Time_log.dll
'
' END_OF_MODIFY

Module Log_2017_

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Public registered As Integer = 0
Dim idPartCreated1 As Integer = 0
Dim idPartOpened1 As Integer = 0
Dim idPartSaved1 As Integer = 0
Dim idPartSavedAs1 As Integer = 0
Dim idPartClosed1 As Integer = 0
Dim idPartModified1 As Integer = 0
Dim idPartRenamed1 As Integer = 0
Dim idWorkPartChanged1 As Integer = 0
Dim theSession As Session = Session.GetSession()
Dim t_inicio As DateTime
Dim t_fim As DateTime
Dim t_diferenca As TimeSpan
Dim Tempo As String
Dim fechado As String = Nothing
Dim arquivo_log As String = theSession.GetEnvironmentVariableValue("UGII_TMP_LOG")

Sub PartSaved11(ByVal p As BasePart)
' lw.Open()
' lw.WriteLine(" VB saved: " & p.FullPath)
comando(p)
End Sub

Sub PartSavedAs11(ByVal p As BasePart)
' lw.Open()
' lw.WriteLine(" VB saved as: " & p.FullPath)
comando(p)

End Sub

Sub WorkPartChanged11(ByVal p As BasePart)

comando(p)

End Sub

Sub PartClosed11(ByVal p As BasePart)

fechado = 1

End Sub

Sub Main()

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display

If Not My.Computer.FileSystem.FileExists(arquivo_log) Then Return

If Environ("TEMPONOARQUIVO") = 1 Then Return

If registered = 0 Then
Startup()
Else
comando(workPart)
End If

End Sub

Public Function Startup() As Integer
Dim theUI As UI = UI.GetUI()

If registered = 0 Then
' idPartCreated1 = theSession.Parts.AddPartCreatedHandler(AddressOf PartCreated1)
' idPartOpened1 = theSession.Parts.AddPartOpenedHandler(AddressOf PartOpened1)
idPartSaved1 = theSession.Parts.AddPartSavedHandler(AddressOf PartSaved11)
idPartSavedAs1 = theSession.Parts.AddPartSavedAsHandler(AddressOf PartSavedAs11)
idPartClosed1 = theSession.Parts.AddPartClosedHandler(AddressOf PartClosed11)
'idPartModified1 = theSession.Parts.AddPartModifiedHandler(AddressOf PartModified1)
' idPartRenamed1 = theSession.Parts.AddPartRenamedHandler(AddressOf PartRenamed1)
idWorkPartChanged1 = theSession.Parts.AddWorkPartChangedHandler(AddressOf WorkPartChanged11)

registered = 1
End If

Startup = 0

End Function

Sub comando(ByVal p As BasePart)

If Environ("TEMPONOARQUIVO") = 1 Then Return

If fechado = 1 Then
fechado = 0
Return
End If

If Tempo = Nothing Then Tempo = 0

If p Is Nothing Then
Tempo = 0
t_inicio = Now
Return
Else
Try
Tempo = p.GetUserAttributeAsString("T_" & System.Environment.UserName, NXObject.AttributeType.String, -1)
Catch ex As Exception
Tempo = 0
End Try
End If

t_fim = Now
t_diferenca = t_fim.Subtract(t_inicio)
Tempo = Decimal.Add(Tempo, 0) + Decimal.Add((t_diferenca.TotalSeconds.ToString("0")), 0)

Try
p.SetUserAttributeLock("T_" & System.Environment.UserName, NXObject.AttributeType.Any, False)
Catch ex As Exception
End Try

Try
p.SetUserAttribute("T_" & System.Environment.UserName, -1, Tempo, Update.Option.Now)
p.SetUserAttributeLock("T_" & System.Environment.UserName, NXObject.AttributeType.Any, True)
ufs.UF.PrintSyslog("1Set attribute: " & "T_" & System.Environment.UserName & " " & p.Leaf & " " & Tempo & " Segundos" & vbCrLf, False)
Catch ex As Exception
ufs.UF.PrintSyslog("1Can not Set attribute: " & "T_" & System.Environment.UserName & " " & p.Leaf & " " & Tempo & " Segundos" & ex.ToString & vbCrLf, False)
End Try

Dim atributosx As String = Nothing
ler_atributos(p, atributosx)
log(p, atributosx)

t_inicio = Now

End Sub

Sub ler_atributos(ByVal attr_part As Part, ByRef atributos As String)

Dim workpart As Part = attr_part
Dim title As String = ""
Dim value As String = ""
Dim inx As Integer = 0
Dim attributo_de_tempo As String = Nothing

Try
Dim attr_info() As NXObject.AttributeInformation
attr_info = workpart.GetUserAttributes(NXObject.AttributeType.String)
Dim count As Integer = attr_info.Length()

Do Until inx = count
title = attr_info(inx).Title.ToString

Dim index As Integer
inx = inx + 1

If title.StartsWith("T_") Then
value = workpart.GetUserAttribute(title, NXObject.AttributeType.String, index).StringValue
attributo_de_tempo = attributo_de_tempo + title + ";" + value + ";"
End If
Loop

Catch ex As Exception

End Try

atributos = (attr_part.Leaf & ";" & "TIME" & ";" & attributo_de_tempo)

Return

End Sub

Sub log(ByVal p As BasePart, ByVal atributos As String)

'Dim arquivo_log As String = theSession.GetEnvironmentVariableValue("UGII_AERO_TMP_LOG")
'Dim arquivo_log As String = "C:\Temp\Novo_Log.txt"
Dim computername As String = System.Environment.MachineName
Dim username As String = System.Environment.UserName

Try
Dim dataAtual As DateTime = DateTime.Now
Dim dia As String = FormatDateTime(dataAtual, DateFormat.ShortDate)
Dim hora As String = FormatDateTime(dataAtual, DateFormat.ShortTime)

Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(arquivo_log, True)
outFile.WriteLine(dia & ";" & hora & ";" & username & ";" & computername & ";" & p.FullPath & ";" & "Atributos" & ";" & atributos)
outFile.Close()

Catch ex As Exception
End Try

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer
'Unloads the image when the NX session terminates
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
End Function

End Module