龙龙仔大哥，为什么我得到一个表啦，却不能循环呀？

龙龙仔

liminnet发表于2008-9-8 11:45:00(defun recdir (d)  (setq lst nil)  (mapcar '(lambda (x)      (if (= (vl-filename-extension x) \".lsp\")      &nbsp

3. (defun C:TT_LAI (/ LST)
4.   (RECDIR "G:\")
5.   ;;(RECDIR "c:\\Program Files\\AutoCAD 2008\")
6. )
8. (defun RECDIR (D / X)
9.   (mapcar '(lambda (X)
10.       (if (wcmatch (strcase X) "*.LSP")
11.         (setq LST (cons (strcat D X) LST))
12.       )
13.       (if (and (vl-file-directory-p (strcat D X))
14.         (/= X ".")
15.         (/= X "..")
16.    )
17.         (RECDIR (strcat D X "\"))
18.       )
19.     )
20.    (vl-directory-files D)
21.   )
22.   LST
23. )

(defun C:TT_LAI (/ LST)   (RECDIR "G:\")   ;;(RECDIR "c:\\Program Files\\AutoCAD 2008\") ) (defun RECDIR (D / X)   (mapcar '(lambda (X)       (if (wcmatch (strcase X) "*.LSP")         (setq LST (cons (strcat D X) LST))       )       (if (and (vl-file-directory-p (strcat D X))         (/= X ".")         (/= X "..")    )         (RECDIR (strcat D X "\"))       )     )    (vl-directory-files D)   )   LST )

szmaicy

(defun caoyin->regdir (d / lst lst_data x tt)
  (setvar "cmdecho" 0)
  (if (not (member (substr d (strlen d)) '("\\" "/")))
      (setq d (strcat d "\\"))
  )
  (foreach x (vl-directory-files d)
      (if (and (setq tt (vl-filename-extension x))
               (member (strcase tt) (list ".LSP" ".VLX" ".FAS"))
          )
          (setq lst (cons (strcat d x) lst))
      )
  )
  (foreach lst_data lst (load lst_data))
  (setvar "cmdecho" 1)
  lst
)

龙龙仔

(defun C:TT_LAI (/ LST )
   (setq aa (RECDIR "c:\\Program Files\\AutoCAD 2008\\"))
   ;;(RECDIR "c:\\Program Files\\AutoCAD 2008\\")
)

szmaicy

(defun C:TT_LAI (/ LST aa)
   (setq aa (RECDIR "c:\\Program Files\\AutoCAD 2008\\"))
   ;;(RECDIR "c:\\Program Files\\AutoCAD 2008\\")
)
括号里的变量是受保护的，运行完会变回原值。

szmaicy

(defun RECDIR (d / lst lst_data x tt)
  (setvar "cmdecho" 0)
  (if (not (member (substr d (strlen d)) '("\\" "/")))
      (setq d (strcat d "\\"))
  )
  (foreach x (vl-directory-files d)
      (if (and (setq tt (vl-filename-extension x))
               (member (strcase tt) (list ".LSP" ".VLX" ".FAS"))
          )
          (setq lst (cons (strcat d x) lst))
      )
  )
  (foreach lst_data lst (load lst_data))
  (setvar "cmdecho" 1)
  lst
)

(defun c:tt_lai (/ )
   (setq aa (recdir "c:\\program files\\autocad 2008\\support\\"))
)
试过了，可以的。
估计是你那个目录下本来就没有lsp.xlx.fas文件，所以没有值。帮你换了个文件夹。

caoyin

liminnet发表于2008-9-10 13:42:00龙大哥，各位大哥，在(defun RECDIR (D / X)主程序中最后加那天个LST是什么意义呀，不加有什么 不同，我不是很明白它的作用

加了之后程序内的 LST 和全局变量 LST (假如有) 相互不相关，例：

(setq a 1)

(defun test1 (/ a) (if (not a) (setq a 0)(setq a (1+ a))))

(test1)-----> 0

!a----------->1

-------------------------------------------------------------------------------------------

(setq a 1)

(defun test2 () (if (not a) (setq a 0)(setq a (1+ a))))

(test2)-----> 2

!a----------->2