(setq ent (car (entsel))) (setq alist(entget ent)) (subst (list 10 1.0 1.0 0.0) (assoc 10 alist) alist); list shows up with new starting coordinate (entmod alist) original alist with original starting coordinate shows up.