luyu9635 发表于 2009-7-12 16:40:00

[讨论][求助]一次性清空所有变量

<p>有没有办法一次性清空所有lisp文件中的变量,不管它是局部的还是全局的,也不管变量名</p>

sailorcwx 发表于 2009-7-12 16:55:00

<p>把CAD关了再开</p>

caoyin 发表于 2009-7-12 17:38:00

<p>;;大概是这样</p><p>(foreach x (atoms-family 1)<br/>&nbsp; (if (and (/= (read x) 'SUBR)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (not (member x '("PAUSE" "T")))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (/= (wcmatch x ":VL*-*"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq x nil)<br/>&nbsp; )<br/>)</p>

xhq1954425 发表于 2009-7-13 05:53:00

<p>学习了，谢谢版主</p>

liminnet 发表于 2009-7-13 08:49:00

淮上 发表于 2009-7-13 08:50:00

(member (strcase "$ko_bl") (atoms-family 1)))

liminnet 发表于 2009-7-13 09:08:00

ZZXXQQ 发表于 2009-7-13 12:04:00

<p>变量名是删不掉的，只能将变量内容清空成nil。</p>

liminnet 发表于 2009-7-13 13:02:00

luyu9635 发表于 2009-7-13 16:16:00

<p>谢谢,受教了</p>
页: [1] 2
查看完整版本: [讨论][求助]一次性清空所有变量