表處理.......................

meflying · 发表于 2003-10-3 14:35:00

(if (= (cdr (list ed2)) (cdr (list enn)))
此句判断不对，
(list ed1)= '(对象名)
(cdr '(name)) = nil
所以你的判断永远为T，因此每次都会给每个对象写标签。
应该这样判断(equal ed2 enn)

龙龙仔 · 发表于 2003-10-6 08:22:00

要是选对象时加入条件,程序会简化一些
(setq SS (ssget '((-3 ("MY_TAG")))))

aeo000000 · 发表于 2003-10-12 16:12:00

不好意思，上次给你少了一个"list" .由于不是完整的程序不好测试.
今天才看到.

不过写时要学会定义内部函数,象上面的GET-TAG .

除非你脑袋特灵光，能上下一目了然.
不然看的人都没信心看完.

spring · 发表于 2003-10-16 19:04:00

謝謝

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