Sub Schweissvorschr_updt()
' Beschreibung: .
' Datum:        24.08.2020
' ERSTELLER:    JÜRGEN SCHIEMANN
'-----------------------------------------------------------------------------------------
Dim iDoc As DrawingDocument
Set iDoc = ThisApplication.ActiveDocument
Dim iSheet As Sheet
Set iSheet = iDoc.ActiveSheet
Dim iPlacementPoint As Point2d
Dim SymbolNo As Integer
SymbolNo = iSheet.SketchedSymbols.Count
Set iPlacementPoint = iSheet.SketchedSymbols.Item(SymbolNo).Position

Call iSheet.SketchedSymbols.Item(SymbolNo).Delete

Dim iSSD As Inventor.SketchedSymbolDefinition
Dim iSS As Inventor.SketchedSymbolDefinition
Set iSSD = Nothing
For Each iSS In iDoc.SketchedSymbolDefinitions
    If iSS.Name = "Schweißvorschrift" Then
        Set iSSD = iSS
        Exit For
    End If
Next

Call iSheet.SketchedSymbols.Add(iSSD, iPlacementPoint)

End Sub