[求助]如何判断两个列表相同？？

xdto · 发表于 2008-1-10 20:55

如何判断两个列表相同？？

(command "dtext" ..... )
(setq a (entget(entlast)))
(if (= (assoc 0 a) (cons 0 "text"))
(command "line" .....)
)

结果出错, 为什么？

Andyhon · 发表于 2008-1-10 21:08

(equal (assoc 0 a) (cons 0 "TEXT"))

xdto · 发表于 2008-1-10 22:33

Andyhon发表于2008-1-10 21:08:00(equal (assoc 0 a) (cons 0 \"TEXT\"))

还是不行啊.

不管条件是否equal,返回结果都为nil.

??

ljpnb · 发表于 2008-1-11 08:08

注意"TEXT"的大小写!

wltools · 发表于 2008-1-11 08:40

(= (assoc 0 a) (cons 0 "text"))为什么不改成(= (cadr (assoc 0 a)) "text")?

能用字符比较的何必要用表比较呢？

carrot1983 · 发表于 2008-1-11 08:53

(wcmatch (cdr (assoc 0 (entget (car (entsel))))) (strcase "*text"))

这样子就无所谓大小写了。。。

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