一个列表，内字符个数是不定的，如何得每一个字符

tc405003 · 发表于 2005-10-31 12:50

(A B C D ..........)

最后取设变量(setq 前缀1 a) (setq 前缀2 b) (setq 前缀3 c) 前缀后的数目与列表中的位置是一样的

wmz · 发表于 2005-10-31 13:13

这是一个表,可用length函数测定表的长度,再用nth函数分别取出表里的每一个元素,然后用字符串连接函数strcat加以连接就行了.比如:

(defun c:test()

(setq b '(a b c d) m 0)

(setq n (length b))

(repeat n

(setq c (nth m b)

m (+ m 1)

d (strcat "前缀" c)

)

(print d)(princ)

)

tc405003 · 发表于 2005-10-31 13:44

试过了，参数错误参数类型错误: stringp A

wmz · 发表于 2005-10-31 13:56

如果这样,则

(defun c:test()
(setq b (list "a" "b" "c" "d") m 0)
(setq n (length b))
(repeat n
     (setq c (nth m b) m (+ m 1))
     (setq d (strcat "前缀" c))
     (print d)(princ)
)
)

如果这样,则

(defun c:test1()
(vl-load-com)
(setq b '(a b c d) m 0)
(setq n (length b))
(repeat n
     (setq c (nth m b) m (+ m 1))
     (setq c (vl-string-subst "" "" c))
     (setq d (strcat "前缀" c))
     (print d)(princ)
)
)

tc405003 · 发表于 2005-10-31 14:07

可能是这没有说清楚，我是想得到全局变量，前缀N=表中的第N个字符串,前缀N是变量名

wmz · 发表于 2005-10-31 14:26

1,全局变量在LISP里如

defun c:XX(/ x y)---"/" 后面的x y就是局部变量,否则就是全局变量.
2,前缀N将(setq d (strcat "前缀" c))这一句改成:
(setq d (strcat (rtos m 2 0) c))就行了

无痕 · 发表于 2005-10-31 20:27

tc405003发表于2005-10-31 12:50:00回复：（tc405003）一个列表，内字符个数是不定的，如何得每一个字符一个列表，内字符个数是不定的，如何得每一个字符(A B C D ..........)最后取设变量(setq

你好，我是飞饼一号，需要我帮忙么？可能越帮越忙哦。。。。。。呵呵

(setq lst '(a b c d e)
i 0)
(mapcar '(lambda(x)(setq i (1+ i)) (set (read(strcat "N" (itoa i))) x)) lst)

xyp1964 · 发表于 2005-11-1 18:15

(defun c:test ()
(setq lst '(A B C D e f g)
i 0
)
(foreach n lst
(progn
(setq a (read (strcat "前缀" (rtos (setq i (1+ i)) 2 0))))
(princ "\n")
(princ a)
(princ " = ")
(setq a n)
(princ n)
)
)
(princ)
)

winabcd · 发表于 2005-11-2 09:54

tc405003:

你的前缀已经在表中了，你现在又把他们一个个重新定义变量，我认为没必要，要用前缀时，直接从表中取就可以了，要让他成为全局的，只要表名是全局的就可以了，

账号		自动登录	找回密码
密码			注册

一个列表，内字符个数是不定的，如何得每一个字符

浏览过的版块