Dim oDrawDoc As DrawingDocument
	oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    oSheet = oDrawDoc.ActiveSheet
    
    Dim sPromptStrings(2) As String
	Dim oSketchedSymbol As SketchedSymbol
	'Delete all Sketched Symbols with name "Tabliczka"
	For Each oSketchedSymbol in oSheet.SketchedSymbols
		If oSketchedSymbol.Name="Tabliczka" Then
			oSketchedSymbol.Delete
		End If
	
	Next
    
    For Each oDrawingView In oSheet.DrawingViews
		'Check if View is Base View
        If oDrawingView.ViewType = 10501 Then
			'Get view scale
            Skala = oDrawingView.ScaleString
            sPromptStrings(0) = Skala
            
			'Get Part Number from component in current view
			'Get full file name of component
			PNazwa=oDrawingView.ReferencedFile.FullFileName
			'Extract file name from full file name
			Pozycja=InStrRev(PNazwa,"\", -1)
			NazwaModelu=Right(PNazwa,Len(PNazwa)-Pozycja)
			'Get Part Number 
			NumerCzesci=iProperties.Value(NazwaModelu, "Project", "Part Number")
			
            sPromptStrings(1) = NumerCzesci
			
			sPromptStrings(2) = iProperties.Value(NazwaModelu, "Custom", "Dostawca")
			
			'Get Sketched symbol
            Dim oSketchedSymbolDef As SketchedSymbolDefinition
       		oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item("Tabliczka")
            'Define Transient Geometry
            Dim oTG As TransientGeometry
            oTG = ThisApplication.TransientGeometry
        	'Define insertion point of symbol. 2cm below current view
            Dim oInsertionPoint As Point2d
            oInsertionPoint = oTG.CreatePoint2d(oDrawingView.Position.X+3, oDrawingView.Position.Y - oDrawingView.Height / 2 - 3)
        	'Insert sketched symbol
            oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oInsertionPoint, 0, 1, sPromptStrings)
    End If
    Next