请教如何使用LISP读取TXT文件并给变量赋值

qfkxc

ZZXXQQ 发表于 2011-11-28 13:04
(defun c:tt ()
(setq blnm "gj")
(if (setq fp (open (findfile "123.txt") "r")) (progn

有一变量A与gj1比较是否完全相同，如不相同继续与变量gj2比较，直至gjn怎样写？

ZZXXQQ

……
(setq i 1)
(while i
(setq b (read(strcat "gj" (itoa i))))
(if (and i (/= A (eval b))
  (setq i (1+ i))
  (setq i nil)
)
)
……

ZZXXQQ

……
(setq i 1)
(while i
(setq b (read(strcat "gj" (itoa i))))
(if (and i (/= A (eval b))
  (setq i (1+ i))
  (setq i nil)
)
)
……

ZZXXQQ

……
(setq i 1)
(while i
(setq b (read(strcat "gj" (itoa i))))
(if (and i (/= A (eval b))
  (setq i (1+ i))
  (setq i nil)
)
)
……

ZZXXQQ

……
(setq i 1)
(while i
(setq b (read(strcat "gj" (itoa i))))
(if (and i (/= A (eval b))
  (setq i (1+ i))
  (setq i nil)
)
)
……