Stationing LISP along polyline

[ZacharyHUFG6U]

I know this has been asked before, but i cant seem to find anything online that will work. I am looking for a LISP routine that can station a polyline in the attached format. Thought i found what i needed from http://www.gilesdarling.me.uk/lisproutines.shtml#chmark but when i try to run it i get an "error: no function definition". Any help would be appreciated.

[Sea-Haven]

There are so many examples of CHAINAGE.lsp. Here is one of them, yes will have to change the angle of text. 

[ZacharyHUFG6U]

I am not too familiar with editing the lisp, any advice on how to get it fine tuned to match the example? Possibly a place to look that teaches how to edit them?

[Sea-Haven]

Try changing the code as below, this part controls the angle of text. When asked to rotate say Yes. This is a quick fix not necessarily the full solution.

         (setq ang   (alg-ang pl x)
         ang 
         (cond ((< (/ pi 2) ang (* pi 1.5)) (+ pi ang))
         (T ang)
         )
         )

to this

(setq ang   (+ (*  pi 1.5) (alg-ang pl x))