autolisp更新图元元素后更新不了

lmblxtlhh

(defun c:xj()

       (setq a1 (getpoint"/n输入第一点:"))   
       (setq a2 (getpoint"/n输入第二点:"))
       (setvar "cmdecho" 0)                     
       (setq osm (getvar "osmode"))         
       (setvar "osmode" 0)                    
       (setq a3 (getpoint"/n输入点:"))
       (command "line" a1 a2 "")
       (setq e1 (entget (entlast)))          ; 获取最后图元
       (command "offset" 0.1 (entlast) a3 "")
       (setq e2 (entget (entlast)))
       (setq c1 (cons 62 3))                 ; 生成颜色点对列表
       (setq c2 (cons 62 3))
       (setq c3 (cons 8 "50"))            ; 生成图层点对列表
       (setq c4 (cons 8 "50"))
       (setq b1 (assoc 62 e1))            ;获取旧颜色点对列表
       (setq b2 (assoc 62 e2))
       (setq b3 (assoc 8 e1))             ;获取图层色点对列表
       (setq b4 (assoc 8 e2))
       (if (= b1 nil) (setq e1 (cons c1 e1)) (subst c1 b1 e1))   ;更换列表中元素
       (if (= b2 nil) (setq e2 (cons c2 e2)) (subst c2 b2 e2))
       (entmod e1)                                               ;更新
       (entmod e2)
       (if (= b3 nil) (setq e3 (cons c3 e3)) (subst c3 b3 e1))   ;更换列表中元素
       (if (= b4 nil) (setq e4 (cons c4 e4)) (subst c4 b4 e2))
       (entmod e1)                                               ;来到这步没更新了是怎回事?
       (entmod e2)
       (command "trim" "")
       (setvar "osmode" osm)  
       (princ)

     )