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

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

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

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

把CAD关了再开

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

;;大概是这样

(foreach x (atoms-family 1)
(if (and (/= (read x) 'SUBR)
           (not (member x '("PAUSE" "T")))
           (/= (wcmatch x ":VL*-*"))
      )
    (setq x nil)
)
)

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

学习了，谢谢版主

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

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

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

提示: 作者被禁止或删除内容自动屏蔽

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

谢谢,受教了

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-13 08:49:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-13 09:08:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-13 13:02:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡