(defun C:bindimages (/ i imax il ss currElem currPos newPos newElem)
    ;variables:
    (setq i 0);counter to zero
    (setq imax 1);while variable

    (graphscr)

    (setq ss (ssget "_A" '((0 . "insert"))));select all
    (setq il (sslength ss));length of selection

    (while imax

        (setq currElem (entget (ssname ss i) ))
        (setq currPos (assoc 10 currElem))

        ;; (cdr (assoc 10 currElem))

        (setq newPos (list 10 0 0 0))

        (setq newElem (subst newPos currPos currElem))
        (entmod newElem)


        ;while specific: 
        (setq i (1+ i));increments i
        (if (= i il) (setq imax nil));finish function if i equals il
    )












)