Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-52286817-FBE8-4891-9909-C1FD6700AAEA

 

Looks like the Ctrl-d has more dirty "reasons".

Sub Main()
Dim oDoc As Document
Dim oCompDef As ComponentDefinition
Dim oModelStates As ModelStates
Dim oModelState As ModelState
Dim oOccu As ComponentOccurrence
Dim oOccuDef As ComponentDefinition
Dim oOccuDoc As Document
Dim CommandEnum As Integer

'break

oDoc = ThisDoc.Document
Logger.Info(oDoc.DisplayName & " Changed " & oDoc.RecentChanges)
CommandEnum = oDoc.RecentChanges
If (CommandEnum >= 1024) Then
	Logger.Info("View Rep Switch " & CommandEnum)
	CommandEnum = CommandEnum - 1024
End If
If (CommandEnum >= 512) Then
	Logger.Info("ModelState Switch " & CommandEnum)
	CommandEnum = CommandEnum - 512
End If
If (CommandEnum >= 256) Then
	Logger.Info("ModelState Update, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 256
End If
If (CommandEnum >= 128) Then
	Logger.Info("File Format Change, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 128
End If
If (CommandEnum >= 64) Then
	Logger.Info("Reference Change, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 64
End If
If (CommandEnum >= 32) Then
	Logger.Info("NonShapeEdit, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 32
End If
If (CommandEnum >= 16) Then
	Logger.Info("Reference File Change, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 16
End If
If (CommandEnum >= 8) Then
	Logger.Info("Properties Change, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 8
End If
If (CommandEnum >= 4) Then
	Logger.Info("File Op, dirty " & CommandEnum)
	CommandEnum = CommandEnum - 4
End If
If (CommandEnum >= 2) Then
	Logger.Info("Query " & CommandEnum)
	CommandEnum = CommandEnum - 2
End If
If (CommandEnum >= 1) Then
	Logger.Info("Geometry Change, dirty " & CommandEnum)
End If
End Sub