07-21-2017
09:09 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-21-2017
09:09 AM
As a temporary solution I just wrote this shoddy function. Which I hate doing; because if there is a native way something can be done, it should be done that way instead of just bringing more redundant code into the world.
Sub Main()
oRecentChanges = ThisDoc.Document.RecentChanges
Dim oChangeList As New List(Of Integer)
MsgBox(CStr(oRecentChanges))
oChangeList = ParseEnum(oRecentChanges)
Call PrintList(oChangeList)
End Sub
Function ParseEnum(oVal As Integer) As Object
Dim oEnumList As New List(Of Integer)
For Each i In [Enum].GetValues(GetType(CommandTypesEnum))
oEnumList.Add(i)
Next
oEnumList.Sort
oEnumList.Reverse
Dim oOutputList As New List(Of Integer)
For Each oItem in oEnumList
If oVal - oItem > -1 Then
oVal = oVal - oItem
oOutputList.Add(oItem)
End If
Next
Return oOutputList
End Function
Sub PrintList(oList As Object)
For Each oItem in oList
oStr = oStr & vbLf & oItem
Next
MsgBox(oStr)
End Sub
--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.
Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization

iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread
Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects
Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help
Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization
iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread
Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects
Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help
Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type