Creating automatic note number

86171VLTWG_2014_0F — Mon, 30 Dec 2024 13:08:02 GMT

I want an iLogic rule that creates an increasing text number string each time I insert a note into an Inventor drawing of type: "W001", W002" etc. Any help is greatly appreciated!

Re: Creating automatic note number

bradeneuropeArthur — Mon, 30 Dec 2024 14:09:19 GMT

I could create you an add-in for that!

Is that also ok?

Re: Creating automatic note number

86171VLTWG_2014_0F — Mon, 30 Dec 2024 14:25:11 GMT

Thanks, that would be great!!

Re: Creating automatic note number

C_Haines_ENG — Wed, 08 Jan 2025 18:24:52 GMT

I know @bradeneuropeArthur is making an Add-In but I thought I'd have a crack at it. With this code you can place multiple note leaders and it will name them all correctly! Just place the note leader how you normally would but don't enter any text! When you hit escape to back out of the tool it will update the names. Enjoy!

Sub Main Dim oDoc As DrawingDocument = ThisDoc.Document Dim oLeaderNotes As LeaderNotes = oDoc.ActiveSheet.DrawingNotes.LeaderNotes Dim oCount As Integer = oLeaderNotes.Count Dim oHighestNumber As New List(Of Integer) For Each oLeader As LeaderNote In oLeaderNotes If oLeader.Text.StartsWith("W") oHighestNumber.Add(Right(oLeader.Text, 2)) End If Next ThisApplication.CommandManager.ControlDefinitions("DrawingLeaderTextCmd").Execute2(True) Dim oNoteNum As Integer = 1 If oHighestNumber.Count <> 0 Then oNoteNum = oHighestNumber.Max + 1 If oLeaderNotes.Count - oCount >= 1 For i = oLeaderNotes.Count - (oLeaderNotes.Count - oCount) + 1 To oLeaderNotes.Count Select Case oNoteNum Case < 10 oLeaderNotes(i).Text = "W00" & oNoteNum Case < 100 oLeaderNotes(i).Text = "W0" & oNoteNum Case >= 100 oLeaderNotes(i).Text = "W" & oNoteNum End Select oNoteNum += 1 Next Else Exit Sub End If End Sub

topic Re: Creating automatic note number in Inventor Programming Forum

Creating automatic note number

Re: Creating automatic note number

Re: Creating automatic note number

Re: Creating automatic note number