菜鸟问题，求大神解答！

312735894

1. (defun c:tt()
   
2.       (setq a (entget (car (entsel))))
   
3.      
   
4.       (setq zj (hehe a b))
   
5.       (setq js (hehe b a))
   
6.       (setq b a)
   
7.       (print "增加的是：")(print zj)
   
8.       (print "减少的是：")(print js)
   
9.       
   
10.       (princ)
    
11. )     
    
12. 
    
13. 
    
14.   (defun hehe (a b /)
    
15.       (setq i 0 cc nil)
    
16.      (if (and b (eq (cdr (assoc -1 a)) (cdr (assoc -1 b))))
    
17.       (progn
    
18.          (repeat (length a)
    
19.             (setq dd (nth i a))
    
20.             (if (not (assoc (car dd) b))
    
21.                (setq cc (append cc (list (nth i a))))
    
22.             )
    
23.             (setq i (1+ i))
    
24.          )
    
25.       )
    
26.    )
    
27.    cc
    
28.   
    
29.   )

(defun c:tt()<br />       (setq a (entget (car (entsel))))<br />      <br />       (setq zj (hehe a b))<br />       (setq js (hehe b a))<br />       (setq b a)<br />       (print "增加的是：")(print zj)<br />       (print "减少的是：")(print js)<br />       <br />       (princ)<br /> )     <br /> <br /> <br />   (defun hehe (a b /)<br />       (setq i 0 cc nil)<br />      (if (and b (eq (cdr (assoc -1 a)) (cdr (assoc -1 b))))<br />       (progn<br />          (repeat (length a)<br />             (setq dd (nth i a))<br />             (if (not (assoc (car dd) b))<br />                (setq cc (append cc (list (nth i a))))<br />             )<br />             (setq i (1+ i))<br />          )<br />       )<br />    )<br />    cc<br />   <br />   )

请问各位大大为什么“(setq i 0 cc nil)”这句代码写在下面那个函数才能正常运行，而写上面那函数却会出错啊？

ll_j

这句是下面那个函数中i和cc的初始化代码，如果写在上面那个函数中，上面那个函数用到两次hehe函数，第一次可以初始化，第二次没有初始化，就只能继续累加，因此出错。

312735894

ll_j 发表于 2013-11-6 22:24
这句是下面那个函数中i和cc的初始化代码，如果写在上面那个函数中，上面那个函数用到两次hehe函数，第一次可 ...

哦哦 谢谢您的回答，我大概明白意思了
就是说第二次调用函数的时候i和CC里面没有值对吧，所以返回nil,就是说(setq i 0 cc nil)只给第一次调用的函数里面的i和CC赋值了，而没有给第二次的函数里面的i和cc赋值，不知道我说得对不对。。。。。