Hello. I wasn't sure if it was worth creating a new post, or extend this one. I'm having the same issue, except our .net directory is 8.0.8. We all got new workstations and have C:\Program Files\dotnet\shared\Microsoft.NETCore.App\8.0.10\System.Runtime.dll. It sounds like I can either fix the code for everyone, or everyone has to wait for IT to install 8.0.8 back on their computer. To me it sounds easier to fix the code, especially since we have other ilogic rules. Anyway, how do I determine how to update the code? Or is it possible to point the rules to the 8.0.10 directory?
If ThisApplication.ActiveDocumentType <> 12292 Then
'MessageBox.Show(ThisApplication.ActiveDocumentType, "Title")
GoTo endofprogram
End If
Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
' For multi sheet drawings store current sheet to return to after auto rev.
Dim CurrentSheet
CurrentSheet = ActiveSheet
' revs made on sheet one
ActiveSheet = ThisDrawing.Sheet("Sheet:1")
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
Dim oSymbols As SketchedSymbols
oSymbols = oSheet.SketchedSymbols
Dim oSymboldefs As SketchedSymbolDefinitions
oSymboldefs = oDoc.SketchedSymbolDefinitions
Dim oSymboldef As SketchedSymbolDefinition
Dim oSymbol As SketchedSymbol
Dim I
'Dim oPromptText
Dim oTextBoxes
Dim oEachText
Dim revnum As Integer
revnum = 0
' Revision block Rev counter to get latest rev
For Each oSymbol In oSymbols
oTextBoxes = oSymbol.Definition.Sketch.TextBoxes
For I = 1 To oSymbol.Definition.Sketch.TextBoxes.Count
oEachText= oSymbol.Definition.Sketch.TextBoxes(I)
If (oEachText.Text = "ENTER REV NUMBER") Then
If oSymbol.GetResultText(oEachText) <> "" Then
If oSymbol.GetResultText(oEachText)>revnum Then
revnum = oSymbol.GetResultText(oEachText)
End If
End If
End If
Next I
Next
'MessageBox.Show(revnum, "Rev from block")
If revnum <> 0 Then
iProperties.Value("Custom", "pRevAuto") = revnum
Else
iProperties.Value("Custom", "pRevAuto") = ""
End If
' Return to sheet save was made on
ActiveSheet = CurrentSheet
InventorVb.DocumentUpdate()
endofprogram: