[求助]请教高手,这段程序错在哪里了呢?
www.dimcax.com
[求助]请教高手,这段程序错在哪里了呢?
(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)
)
))
这段程序错在哪里了呢?
d
(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))
这两句中 组码还能换吗?
change your life style.
d