Need A Lisp For Annotation of PC , PT , PI etc on Road Centerline

Sorry I am not sure to understand!
But you can change the justify position of ATTRIB
At the end of code (entmake "ATTRIB"), try to change:

(cons 72 1)

to:

(cons 72 (if (not (zerop (cddr n))) 0 1))