[必看]：这个子程序的变量为什么没有释放？

张世杰

如下

2. 
   
3.   [FONT=courier new]
   
4. (defun C:BIJIAO        ()
   
5.   (setq LUJING (getfiled "随便选取一个OUT文件" "" "OUT" 2))
   
6.                                         ;保存OUT文件的目录
   
7.   (setq        OUT (提取 LUJING ".OUT")
   
8.         TTT (提取 LUJING ".TTT")
   
9.         DXF (提取 LUJING "_2.DXF")
   
10.   )
    
11.                                 ;提取有用的文件名称,例如*.OUT,*.TTT,*_2.DXF
    
12. 
    
13.   )
    
14. 
    
15. (defun 提取 (ZI1 ZI2 / MULU FILES K N JIHE)
    
16.   (setq MULU (vl-filename-directory ZI1)) ;目录
    
17.   (setq FILES (vl-directory-files MULU)) ;所有文件
    
18.   (setq K 0)                                ;循环计数器
    
19.   (setq N (length FILES))                ;总的循环次数
    
20.   (setq JIHE NIL)                        ;循环结果赋初值
    
21.   (while (< K N)
    
22.     (if        (wcmatch (strcase (nth K FILES)) (strcat "*" ZI2))
    
23.                                         ;判断是否为".ZI2"文件
    
24.       (setq JIHE (cons (nth K FILES) JIHE))
    
25.     )
    
26.     (setq K (+ 1 K))
    
27.   )
    
28.   (setq JIHE JIHE)                        ;结果
    
29. )
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun C:BIJIAO        ()<br />   (setq LUJING (getfiled "随便选取一个OUT文件" "" "OUT" 2))<br />                                         ;保存OUT文件的目录<br />   (setq        OUT (提取 LUJING ".OUT")<br />         TTT (提取 LUJING ".TTT")<br />         DXF (提取 LUJING "_2.DXF")<br />   )<br />                                 ;提取有用的文件名称,例如*.OUT,*.TTT,*_2.DXF<br /> <br />   )<br /> <br /> (defun 提取 (ZI1 ZI2 / MULU FILES K N JIHE)<br />   (setq MULU (vl-filename-directory ZI1)) ;目录<br />   (setq FILES (vl-directory-files MULU)) ;所有文件<br />   (setq K 0)                                ;循环计数器<br />   (setq N (length FILES))                ;总的循环次数<br />   (setq JIHE NIL)                        ;循环结果赋初值<br />   (while (< K N)<br />     (if        (wcmatch (strcase (nth K FILES)) (strcat "*" ZI2))<br />                                         ;判断是否为".ZI2"文件<br />       (setq JIHE (cons (nth K FILES) JIHE))<br />     )<br />     (setq K (+ 1 K))<br />   )<br />   (setq JIHE JIHE)                        ;结果<br /> )<br />   [/FONT]<br />

子程序中的MULU FILES K N JIHE，运行完了不是NIL。谢谢了。

shisj

临时变量，应该释放了，搞不清楚了。

cqnj023

应该释放，我运行后全部释放。

ll_j

我是这样理解的，Lisp在局部变量原来有值时，先将原来的值保存，变量使用后（程序运行）在将原来的值返回，就像我们编程时控制系统变量一样。
一下一段代码可以验证：
[php](defun c:test ()
  (setq a "ABC"                      ;设定全局变量a、b
        b 3
  )
  (mmm)                              ;运行内部函数
  (princ "\n全局变量a=")
  (princ a)
  (princ "\n全局变量b=")
  (princ b)
  (princ)
)
(defun mmm (/ a b)
  (setq a 3.5                        ;设置局部变量a、b，与全局变量同名
        b (* 3 a)
  )
  (princ "局部变量a=")
  (princ a)
  (princ "\n局部变量b=")
  (princ b)
)
[/php]
运行结果：

1. _$
   
2. _$ (c:test)
   
3. 局部变量a=3.5
   
4. 局部变量b=10.5
   
5. 全局变量a=ABC
   
6. 全局变量b=3
   
7. _$

复制代码

iamhaicong

你新建一个文件试，或者干脆退出CAD，重新进入，重新加载。可能是你在编程时事先没有将其设成局部变量，运行过后才设，这样它返回的值其实是没设之前的。

张世杰

对，重新打开就可以了。十分感谢大家的帮助。
可能原因是因为我在vlisp编辑器里调试程序时，抢在程序自动运行前，一步一步运行过后产生了全局变量，看来在调试程序后，关掉CAD，再重新打开加载就能检验局部局部变量是否释放。

aeo

前面调试时留下的，它的值不一定就是程序里的当前值

ll_j

最初由 张世杰 发布
[B]对，重新打开就可以了。十分感谢大家的帮助。
可能原因是因为我在vlisp编辑器里调试程序时，抢在程序自动运行前，一步一步运行过后产生了全局变量，看来在调试程序后，关掉CAD，再重新打开加载就能检验局部局部变量... [/B]

还有一种变量“赋”初值的情况，就是程序运行非正常中断，有时前面“赋”的初值会保留。