[求助]：什么函数可以得到全部块的块名？

tuger

晕，千万不要啊，我也是来这里学习的。

jianqiang21c

最初由 ll_j 发布
[B]接newer程序

2. 
   
3. (setq bll nil)
   
4. (mapcar
   
5.   '(lambda (x)
   
6.      (if (not (wcmatch x "`*[XUD]*"))
   
7.        (setq bll (cons x bll))
   
8.      )
   
9.    )
   
10.   nl
    
11. )
    

<br /> (setq bll nil)<br /> (mapcar<br />   '(lambda (x)<br />      (if (not (wcmatch x "`*[XUD]*"))<br />        (setq bll (cons x bll))<br />      )<br />    )<br />   nl<br /> )<br />

[/B]

长老，用你的方法过滤提示
; 警告: 参数太少: (MAPCAR (QUOTE ( ... )))
; 检查完成.

？？？？55555～～～～

XDSoft

最初由 jianqiang21c 发布
[B][QUOTE]最初由 ll_j 发布
[B]接newer程序

2. 
   
3. (setq bll nil)
   
4. (mapcar
   
5.   '(lambda (x)
   
6.      (if (not (wcmatch x "`*[XUD]*"))
   
7.        (setq bll (cons x bll))
   
8.      )
   
9.    )
   
10.   nl
    
11. )
    

<br /> (setq bll nil)<br /> (mapcar<br />   '(lambda (x)<br />      (if (not (wcmatch x "`*[XUD]*"))<br />        (setq bll (cons x bll))<br />      )<br />    )<br />   nl<br /> )<br />

[... [/B]

你把这段代码和上面NEWER的代码合并到一起（NEWER的在上面），再试试。

jianqiang21c

见鬼了，已经合并了，原理上应该没问题的，重新启动机器竟然好了，最后CDR一下就完美了，谢谢各位GG了袄

XDSoft

最初由 jianqiang21c 发布
[B]见鬼了，已经合并了，原理上应该没问题的，重新启动机器竟然好了 [/B]

你怎么老爱重起机器啊 ：）

jianqiang21c

有时候就很怪异的哟，老是检查不出毛病但是就是一直出错，重新启动一次机器就好了，这是我的一点破经验哟：）

tuger

呵呵，可能是你的系统有毛病，我单位里的一台机器也经常这样，莫名其妙，后来重装系统就好了