写了个变量表进行清空的函数，但始终有个变量无法清空？！

ll_j

在c:t12中把lst设成局部变量是正解，或者最后直接使用setq。

langjs

子函数修改上一级程序变量不是个好习惯。

wowan1314

langjs 发表于 2014-8-3 11:16
子函数修改上一级程序变量不是个好习惯。

一般编程不会出现这个情况！

我主要是为了 给EE编辑器 增加监视变量 与 取消、置空监视变量  这个功能才 这样编的！

有这个编辑器 ， 基本可以不用 自带的编辑器了 ， 调试部分我也做了些，简单的错误都可以找出 了！

因为EE现在是收费软件了 ， 所以我也不好再推荐了！  卖弄下  我自定义的lisp编辑器！哈哈

xyp1964

局部变量先进变量表，程序执行完会自动清空

2. (defun c:t12 (/ a1 b2 c3 lst)
   
3.   (setq a1  1
   
4.         b2  2
   
5.         c3  3
   
6.         lst '(a1 b2 c3)
   
7.   )
   
8.   (princ)
   
9. )

(defun c:t12 (/ a1 b2 c3 lst)<br />   (setq a1  1<br />         b2  2<br />         c3  3<br />         lst '(a1 b2 c3)<br />   )<br />   (princ)<br /> )

wowan1314

xyp1964 发表于 2014-8-3 12:32
局部变量先进变量表，程序执行完会自动清空

全部代码如下！

我在EE编辑器里面输入某个值 后 自动执行下面这个函数。 其后不会再有程序 处理！

所以对于清空只能在这个函数里面进行！  对于同名的无法处理.

其实最好的办法是 下面这个函数 不要变量 ，，通过系统变量 来传递数据！

2. (defun aa:ever-err2 ( *琴瑟琵*琶* )
   
3.     (if (null *琴瑟琵*琶*)
   
4.         (setq *jianshibianliang* nil)
   
5.         (if (= nil (car *琴瑟琵*琶*))
   
6.             (mapcar
   
7.                 '(lambda(x)
   
8.                     (set x nil)
   
9.                 )
   
10.                 *jianshibianliang*
    
11.             )
    
12.             (setq *jianshibianliang*
    
13.                 (vl-remove-if
    
14.                     '(lambda(x)
    
15.                         (member x *琴瑟琵*琶*)
    
16.                     )
    
17.                     *jianshibianliang*
    
18.                 )
    
19.             )
    
20.         )
    
21.     )
    
22.     (princ)
    
23. )

(defun aa:ever-err2 ( *琴瑟琵*琶* ) <br />     (if (null *琴瑟琵*琶*)<br />         (setq *jianshibianliang* nil)<br />         (if (= nil (car *琴瑟琵*琶*))<br />             (mapcar<br />                 '(lambda(x)<br />                     (set x nil)<br />                 )<br />                 *jianshibianliang*<br />             )<br />             (setq *jianshibianliang*<br />                 (vl-remove-if<br />                     '(lambda(x)<br />                         (member x *琴瑟琵*琶*)<br />                     )<br />                     *jianshibianliang*<br />                 )<br />             )<br />         )<br />     )<br />     (princ)<br /> )

print1985

没搞懂你想要的功能
A1 B2 C3已经被清空了 最后再(setq lst (list a1 b2 c3))不就行了吗？

机械工程师

好像又折腾出些好玩功能了