Ale ten sem tam přidal hned, jak jste mi to napsal!

(Defun c:staniceni (/ pline int in pt ppt)
  (vl-load-com)
  (if (and (setq pline (car (entsel "\nVyber křivku:")))
           (eq (cdr (assoc 0 (entget pline))) "LWPOLYLINE")
           (setq int (getdist "\nVlož interval staničení:"))
           (setq in int)
      )
    (while (Setq pt (vlax-curve-getPointAtDist pline int))
      (setq ppt (vlax-curve-getparamatpoint pline pt))
      (vlax-invoke
        (vlax-ename->vla-object pline)
        'AddVertex
        (1+ (fix ppt))
        (list (car pt) (Cadr pt))
      )
      (setq int (+ int in))
    )
  )
)