You can start to play with this code
Code:
(defun c:test ( / StartLevel Gradient Poly Vl-Obj #Vertex Index Dist Level Point )
(setq StartLevel 123.45 )
(setq Gradient 0.0166666 )
(setq Poly (entsel "Please choose the polyline : " ) )
(vl-load-com)
(setq Vl-Obj (vlax-ename->vla-object (car Poly )) )
(setq #Vertex (fix (vlax-curve-getEndParam Vl-Obj )) )
(setq Index -1 )
(repeat (1+ #Vertex )
(setq Index (1+ Index ) )
(setq Dist (vlax-curve-getDistAtParam Vl-Obj Index ) )
(setq Level (rtos (+ StartLevel (* Gradient Dist )) 2 3 ) )
(setq Point (vlax-curve-getPointAtParam Vl-Obj Index ) )
(command "._text" "J" "MC" Point "10" "0" Level )
)
(princ)
)
: ) Happy Computing !
kennet