addTieStart =
#(define-music-function (m) (ly:music?)
   (make-music 'SimultaneousMusic
               'elements
               (list 
                  (make-music
                     'NoteEvent
                     'tweaks
                     (list (cons 'transparent #t))
                     'articulations
                     (list (make-music 'TieEvent 'direction DOWN))
                     'pitch
                     (ly:make-pitch 1 0)
                     'duration
                     (ly:make-duration 2))
                  m)))

addTieStop =
#(define-music-function (m) (ly:music?)
   (make-music 'SimultaneousMusic
               'elements
               (list 
                  (make-music
                     'NoteEvent
                     'tweaks
                     (list (cons 'transparent #t))
                     'pitch
                     (ly:make-pitch 1 0)
                     'duration
                     (ly:make-duration 2))
                  m)))

<<
\new Staff \new Voice = "notes" { c' c'2 c'4 c' c' c' c' c' c' c' c' }
\new Lyrics \with { \consists Tie_engraver \consists Note_heads_engraver }
 \lyricsto "notes" { \set tieWaitForNote = ##t Tis \addTieStart a \addTieStop Test 
                     \addTieStart Test \addTieStop Test Test Test \addTieStart Test Test Test \addTieStop Test }
>>

\displayMusic { \lyricmode { Tis } <>( \lyricmode  { a test  } <>) }