Schweißnähte auf Zeichnung nummerieren

[sebastian_maAK]

Hallo Community,

ich arbeite mit Inventor 21 (bald update auf 25) 

ich habe alle Schweißnähte in der Zeichnung mit dem Schweißnahtsymbol beschriftet (normale Baugruppe keine Schweißkonstruktion)

Jetzt würde ich die Schweißnähte gerne durchnummerieren.

Ich könnte in die Gabel eine Nummer eintragen. Bei Baugruppen mit vielen Schweißnähten, wäre das zwischenschieben einer Nummer sehr aufwendig, da ich jedes Symbol einzeln auswählen müsste und anpassen.

Besteht die Möglichkeit die Schweißnähte zu nummerieren und eine Liste ähnlich der Stückliste zu erhalten ?

Von dort aus ließe sich einfacher eine Nummer zwischen schieben!

[jeremy.goenen]

Hallo, ohne etwas zu programmieren fällt mir jetzt kein Ansatz ein, mit iLogic könnte man einfach durch die Schweißsymbole gehen und eine Inkrementierte Nummer eintragen. kannst du vielleicht ein Bild zur Verfügung stellen zum  besseren Verständnis?

[sara_elsayed15]

Hi @sebastian_maAK 

danke für deinen Beitrag! Eventuell kannst du eine Datei hochladen, die dein Problem darstellt, damit effektiver geholfen werden kann. 🙂

Danke!

Gruß,
Sara

[sebastian_maAK]

...naja ich denke, jeder weiß wie ein Schweißnahtsymbol aussieht, aber gut.

Hier ein Bild. Dort habe ich per Hand in der Gabel jeweils eine Nummer eingetragen.

Wünschenswert wäre jedoch, dass das automatisch geschieht. (Es muss natürlich nicht zwingend in der Gabel stehen und Teil des Schweißnahtsymboles sein)
So ließen sich doppelte Nummer verhindern und das zwischenschieben einer Nummer wäre einfacher 

[jeremy.goenen]

Also die Reihenfolge ist egal, solange die nur alle fortlaufend sind?

[sebastian_maAK]

Dass man die Reihenfolge beeinflussen kann, wäre schon wünschenswert.

Wie bei der Stückliste, mit den Positionsnummern

[jeremy.goenen · Accepted solution]

Hallo , ich hab mal was gebastelt, der support für Schweißsymbole ist aber erst mit 2024 dazu gekommen, also müsstest du vorher upgraden. Sieht dann so aus:

Hier der Code:

imports system.Windows.forms
Sub Main
Dim DrawingDoc As DrawingDocument = ThisDoc.Document
Dim ActiveDrawingSheet As Sheet = DrawingDoc.ActiveSheet
Dim Index As Integer
'[ FORMULAR
Dim myForm As New Form
myForm.Text = "Schweißsymbole nummerieren"
myForm.Width = 400
myForm.Height = 250
myForm.TopMost = True
myForm.StartPosition = FormStartPosition.CenterScreen

Dim btn1 As New Button
btn1.Text = "Alle durchnummerieren"
btn1.Width = 200
btn1.Height = 40
btn1.Top = 20
btn1.Left = 90

Dim btn2 As New Button
btn2.Text = "Symbol mit Nummer versehen"
btn2.Width = 200
btn2.Height = 40
btn2.Top = 80
btn2.Left = 90

Dim txtfield As New System.Windows.Forms.TextBox
txtfield.Name = "IndexBox"
txtfield.Text = 1
txtfield.Width = 50
txtfield.Height = 40
txtfield.Top = 140
txtfield.Left = 165

myForm.Controls.Add(btn1)
myForm.Controls.Add(btn2)
myForm.Controls.Add(txtfield)

AddHandler btn1.Click, _
Sub(sender, E)

Call IncrementAllSymbols(ActiveDrawingSheet)

End Sub

AddHandler btn2.Click, _
Sub(sender, E)
myForm.Visible = False
Index = CInt(myForm.Controls.Item("IndexBox").Text)
Dim LetsContinue As Boolean = True
While LetsContinue
Call IncrementAfterTheSelected(ActiveDrawingSheet, Index, LetsContinue)
Index += 1
myForm.Controls.Item("IndexBox").Text = CStr(Index)
myForm.Controls.Item("IndexBox").Refresh
End While
myForm.Visible = True
End Sub

myForm.Show()

While myForm.Visible
System.Windows.Forms.Application.DoEvents()
End While
']


End Sub

Sub IncrementAllSymbols(ActiveDrawingSheet As Sheet)
For i = 1 To ActiveDrawingSheet.WeldingSymbols.Count
	Dim SymbolDefinition As DrawingWeldingSymbolDefinition = ActiveDrawingSheet.WeldingSymbols.Item(i).Definitions.Item(1)
	SymbolDefinition.TailNote = i
Next i
End Sub

Sub IncrementAfterTheSelected(ActiveDrawingSheet As Sheet, ByRef Index As Integer, ByRef LetsContinue As Boolean)
Dim Selected As Boolean = False
Dim mySymbol As DrawingWeldingSymbol
Dim SubIndex As Integer = 1
	While Not Selected
		Dim Selection As Object = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingDefaultFilter, "Symbol für angegebene Nummer wählen")
		If Not Selection Is Nothing Then
			If Selection.Type = ObjectTypeEnum.kDrawingWeldingSymbolObject Then Selected = True
			mySymbol = Selection
			mySymbol.Definitions.Item(1).TailNote = CStr(Index)
			SubIndex = Index + 1
		Else
			LetsContinue = False
			mySymbol = Nothing
			Exit While
			Exit Sub
		End If
	End While
If mySymbol IsNot Nothing Then
For Each WeldingSymbol As DrawingWeldingSymbol In ActiveDrawingSheet.WeldingSymbols
	If Not WeldingSymbol Is mySymbol Then
		If WeldingSymbol.Definitions.Item(1).TailNote = String.Empty Then
			WeldingSymbol.Definitions.Item(1).TailNote = SubIndex
			SubIndex += 1
		Else If CInt(WeldingSymbol.Definitions.Item(1).TailNote) >= Index Then			
			WeldingSymbol.Definitions.Item(1).TailNote = SubIndex
			SubIndex += 1
		End If
	End If
Next WeldingSymbol
End If
End Sub

[sebastian_maAK]

Hallo @jeremy.goenen 
das Video sieht schon ganz gut aus. 
Testen kann ich es vermutlich erst Anfang nächsten Jahres.

Danke

[sebastian_maAK]

Hallo @jeremy.goenen

was mir noch eingefallen ist, funktioniert dein Vorschlag auch über mehrere Blätter hinweg ?

Grüße

[jeremy.goenen · Accepted solution]

Hallo,

so wie es jetzt ist nicht, es kann nur auf die Symbole im aktiven Blatt zugegriffen werden.

Man könnte aber die Blätter der reihe nach aktivieren damit die Automatische Nummerierung sich durch alle Blätter zieht.

[sebastian_maAK]

Hallo Community,

da ich mit meiner Zeichnung mit durchnummerierten Schweißsymbolen noch nicht wirklich weiter gekommen bin und auch der Support keine Lösung parat hatte, habe ich diesen Beitrag in den Ideas gepostet

Schweißnähte auf der Zeichnung Nummerieren + exportierbare Liste - Autodesk Community

Grüße

[kurtstark]

@jeremy goenen

Lässt sich dies auch für andere Symbole machen?
Ich würde gerne Prüfmasse durchnummerieren.
Dazu würde ich ein 6-Eck-Symbol mit der Nummer neben das Prüfmass setzen und dann eine Tabelle auf die Zeichnung mit der Prüfhäufigkeit.
(Inventor 2025.4 mit Vault)