iLogic - delete revision marks

[Anonymous]

Hi,

I would like a code to delete all revision marks (only in active sheet).

Any suggestions? Thanks!

[Stakin]

Can you post one picture of this problem？

[Anonymous]

As far as I know there is no way to do it.

You can only delete corresponding rows in your revision table.

Revision tag will disappear when it's row is deleted.

[JhoelForshav]

Hi @Anonymous 

Here's kind of a workaround solution I found by @Curtis_Waguespack 

Dim oDrawDoc As Inventor.DrawingDocument = ThisApplication.ActiveEditDocument
Dim oRevTable As RevisionTable	

'get the current rev letter
oRev = iProperties.Value("Project", "Revision Number")

Try	'try to get the first rev table on the active sheet
	oRevTable = oDrawDoc.ActiveSheet.RevisionTables.Item(1)
Catch 'catch error when no rev table is found
	MessageBox.Show("Error: Most likely no revison table was found", "iLogic")
End Try
			
'define the rev table rows collection
Dim oRows As RevisionTableRows 
oRows = oRevTable.RevisionTableRows

'add new rev row, so that the old rows can be deleted	
oRows.Add() 

'look at all of the rows in the rev table
For Each oRow In oRows
	If oRow.IsActiveRow Then 
		'do nothing for the active row
	Else
		oRow.Delete 'deletes rev tags also
	End If
Next

'set rev number/letter back to what it was
iProperties.Value("Project", "Revision Number") = oRev

''Or set rev number/letter back to default

 The forum thread:

https://forums.autodesk.com/t5/inventor-forum/ilogic-rule-to-remove-all-revision-tags/td-p/5706327

[Stakin]

try this:

Dim oDrawingDoc As DrawingDocument
oDrawingDoc = ThisApplication.ActiveDocument 
Dim oSheet As Sheet
	oSheet = oDrawingDoc.ActiveSheet
Dim oTG As TransientGeometry
	oTG = ThisApplication.TransientGeometry
If oSheet.RevisionTables.Count=0 Then
	oSheet.RevisionTables.Add(oTG.CreatePoint2d(-100, -100))
End If

Dim oRevisionTable As RevisionTable

Dim oRevisionTableRow As RevisionTableRow
For Each oRevisionTable In oSheet.RevisionTables
    oRevisionTable.RevisionTableRows.Add
	For Each oRevisionTableRow In oRevisionTable.RevisionTableRows
		If oRevisionTableRow.IsActiveRow = 0 Then
		   oRevisionTableRow.Delete
	   End If 
	Next
	oRevisionTable.Delete
Next

 Before run the rule:

after run the rule:

[Anonymous]

Stakin: Your code worked on one drawing but not an other.

The drawing it worked on this show up when I double-click the revision mark:

On the drawing it didn't work this show up when I double-click the revision mark:

 

Based on this, do you know why?

[WCrihfield]

You could use something like this to get rid of all the 'SketchedSymbols' named "Revision Mark" from your active sheet.

Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oSheet As Inventor.Sheet = oDDoc.ActiveSheet
For Each oSS As SketchedSymbol In oSheet.SketchedSymbols
	If oSS.Name = "Revision Mark" Then
		oSS.Delete
	End If
Next

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.

If you have time, please... Vote For My IDEAS 💡and Explore My CONTRIBUTIONS

Inventor 2021 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum

[Stakin · Accepted solution]

@WCrihfield I think maybe merge ours code，let them work together

@Anonymous ，try it

Dim oDrawingDoc As DrawingDocument
oDrawingDoc = ThisApplication.ActiveDocument 
Dim oSheet As Sheet
	oSheet = oDrawingDoc.ActiveSheet
Dim oTG As TransientGeometry
	oTG = ThisApplication.TransientGeometry
If oSheet.RevisionTables.Count=0 Then
	oSheet.RevisionTables.Add(oTG.CreatePoint2d(-100, -100))
End If

Dim oRevisionTable As RevisionTable

Dim oRevisionTableRow As RevisionTableRow
For Each oRevisionTable In oSheet.RevisionTables
    oRevisionTable.RevisionTableRows.Add
	For Each oRevisionTableRow In oRevisionTable.RevisionTableRows
		If oRevisionTableRow.IsActiveRow = 0 Then
		   oRevisionTableRow.Delete
	   End If 
	Next
	oRevisionTable.Delete
Next

For Each oSS As SketchedSymbol In oSheet.SketchedSymbols
If oSS.Name = "Revision Mark" Then
oSS.Delete
End If
Next

[Anonymous]

That merged version did the trick! Thank you both WCrihfield and Stakin!