[求助]：帮我看看这段代码错在哪里了(问题已解决).

userzhluserzhl · 发表于 2009-3-26 17:29:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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)
)
))

lrl2006 · 发表于 2009-3-26 19:14:21

好像括号不对.

账号		自动登录	找回密码
密码			立即注册

[已解决] [求助]：帮我看看这段代码错在哪里了(问题已解决).

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子