[求助]请教高手,这段程序错在哪里了呢?

userzhl

(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "INSERT")
(setq a1 (cdr (assoc 41 ent))
a2 (cdr (assoc 42 ent))
a3 (cdr (assoc 43 ent)))
(if (or (/ = a1 a2) (/ = a2 a3))
(progn
(setq ent (subst (cons 42 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
(setq ent (subst (cons 43 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
(entmod e)
)
))

这段程序错在哪里了呢?

王咣生

(setq ent (subst (cons 42 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
(setq ent (subst (cons 43 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
这两句中 组码还能换吗?