(defun c:lz (/ ns dc n ds pt nm) (vl-load-com)
  (defun m1 (p1 p2 /) (entmake (list '(0 . "text") (cons 1 p1)
    (cons 10 p2) (cons 40 (getvar 'textsize)))))
  (if (ssget ":s" '((0 . "line")))
    (progn (redraw (setq ns (ssname (ssget "_p") 0)) 3)
      (if (setq dc (vla-get-activedocument (vlax-get-acad-object))
            n 0 ds (getdist "\nEnter the distance:"))
        (progn (vla-startundomark dc)
          (m1 (rtos (cadddr (setq pt (assoc 10 (entget ns)))) 2 2) (cdr pt))
          (repeat (fix (/ (vla-get-Length (setq nm
              (vlax-ename->vla-object ns))) ds))
            (m1 (rtos (caddr (setq pt (vlax-curve-getpointatdist
              nm (* (setq n (1+ n)) ds)))) 2 2) pt))
          (m1 (rtos (cadddr (setq pt (assoc 11 (entget ns)))) 2 2) (cdr pt))
          (vla-endundomark dc)
        )
      ) (redraw ns 4)
    )
  ) (prin1)
)

(defun c:bol( / lne z1 z2 z3 z4 strt end1)
;(setq lne (entsel "\nSelect Line..:"))

  (setq lne (entget (car (entsel "\nSelect Line..:"))))

  (setq z1 (cdr (assoc 10 lne)))

  (setq z2 (cdr (assoc 11 lne)))

  (setq strt (assoc 10 lne)) ; GEREKSIZ SATIR
  (setq end1 (assoc 11 lne)) ;GEREKSIZ SATIR

  (setq z3 (caddr z1)) ;start point z value CDDR DEGIL CADDR
  (setq z4 (caddr z2)) ;end point z value CDDR DEGIL CADDR

(command "text" "j" "tl" z1 "1" "0" (rtos z3 2 2))
(command "text" "j" "tl" z2 "1" "0" (rtos z4 2 2))
(princ) ; PROGRAMIN DUZGUN SONLANMASI ICIN GEREKLI BITIS
)