编程高手请进！

极地

(defun c:kz()
  (setq a (ssget "x" (list (cons 8  "权属界线"))))
     (setq b (sslength a))
      (setq c 0)
       (while (<= c (- b 1))
        (setq d (ssname a c))
(setq appname "south")
(regapp "jzxbh")
(regapp (setq rname appname)
(setq xxdata (entget d (list rname))
(setq south-sx (cdr (assoc -3 xxdata))
(setq south-sx1 (cdr (assoc '1000 (cddr (nth 0 south-sx))))
(setq exdata1 (list (list '-3 (list "jzxbh" (cons 1000  south-sx1)))))
(entmod (list (cons -1 d)(cons -3 (mapcar 'list (mapcar 'car (cdr(assoc -3 (entget d '("*")))))))))
(setq last (entlast))
(setq lastent (entget (entlast)))
(setq newent (append lastent exdata1));
(entmod newent)
(princ "\n已经处理")(princ c)(princ "个")(print)
(setq c (+ c 1))))

不能更新图元，求高手指点！