关于Mapcar的使用?

wzh

我在使用mapcar时遇到这样的问题，就是在mapcar中间修改表的内容后，比如x取表的第1个数（"1"），执行完某些功能后，将表的第1、 2个数（"1" 、"2"）删除，结果x在第2次取数时仍然按旧表中的内容取原有的第2个数（"2"已被删除），而不是取新表的第一个数（"3"旧表的第3个数），为什么？能让它在第2次取数时取"3"吗？ (defun c:aa()
(setq Slist (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "0"))
(mapcar '(lambda (X)
(setq a (1+ 2))
(setq Slist (cdr (cdr Slist)))
)
Slist
)
)

meflying

看不明白你想做什么。。。你的程序就更看不明白了，好象什么都不做 看看下面改的，其实已经是你说的读“3”了，只不过mapcar函数一开始就读取了Slist整个表，以后就不读了，所以后面的执行跟Slist无关 就想repeat函数，假如n是5，你使用(repeat n ...即使过程中将n变为了别的数字，这个循环还是循环5次， 你还是说说你要做什么，肯定有办法解决的，要你去适应语言，而不能让语言来适应你 (defun c:aa()
(setq Slist (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "0"))
(mapcar '(lambda (X)
(setq a (1+ 2))
(setq Slist (cdr (cdr Slist)))
(Princ "\n")
(princ (car Slist))
)
Slist
)
)

秋枫

不能。这个函数引用的是表的值而不是表的指针。

wzh

我只是把问题简化了，实际上我要完成的是： Slist是一个嵌套表'(("AAA" "BBB" ) ("CCC" "DDD") ("ABC" "BBB") ("CDF" "BBB")......)，我需要将第2个参数相同的表合并，得到如下结果： '(("AAA,ABC,CDF" "BBB") ("CCC" "DDD")) 其实在我的程序中，mapcar中还嵌套了一个mapcar，不好意思，没把问题讲清。 原程序是这样的： (mapcar '(lambda (X);将相同名称和型式的参数合并
(setq L02 (nth 1 X))
(setq NameLst (cdr NameLst))
(mapcar '(lambda (Y)
(if (member L02 Y)
(progn
(setq L01 (strcat (nth 0 X) "," (nth 0 Y)))
(setq X (subst L01 (nth 0 X) X))
(setq NameLst (vl-remove Y NameLst))
);progn
);if
);lambda1
NameLst
);mapcar1
(setq TmpList (append TmpList (list X)))
);lambda2
NameLst
);mapcar2

秋枫

先不说楼主的函数是否有意义。我来就事论事。想要改变值的引用方式，AutoLISP中没有直接的办法，只能使用引用符号的方式来模拟指针类的引用。因此，达到你要求的效果，需要自己改写Mapcar函数。首先举个改变参数值的例子，比如，类似于C语言中的i++, ++i, 你可以通过对符号的引用改变符号的值：

2. (defun ++ (x)
3.    (set x (1+ (eval x)))
4. );;; test ++(setq a 3)
5. (++ 'a)
6. (++ 'a)
7. (princ a)

(defun ++ (x)    (set x (1+ (eval x))) );;; test ++(setq a 3) (++ 'a) (++ 'a) (princ a)

符合你要求的Mapcar函数只能自己改写：

2. (defun mapcar2 (func lstsym / lst rt i)
3.    (setq i 0)
4.    (while (< i (length (setq lst (eval lstsym))))
5.        (setq rt (cons (apply func (list (nth i lst))) rt))
6.        (setq i (1+ i))
7.    )
8.    (reverse rt)
9. )(defun c:test ()
10.    (setq testlist '(1 2 3 4 5 6))
11.    (mapcar2 '(lambda (x)
12.              (setq testlist '(1 2 3))
13.              (1+ x)
14.          )
15.        'testlist ;注意：此处的单引号指定对testlist符号的引用
16.    )
17. )

(defun mapcar2 (func lstsym / lst rt i)    (setq i 0)    (while (< i (length (setq lst (eval lstsym))))        (setq rt (cons (apply func (list (nth i lst))) rt))        (setq i (1+ i))    )    (reverse rt) )(defun c:test ()    (setq testlist '(1 2 3 4 5 6))    (mapcar2 '(lambda (x)              (setq testlist '(1 2 3))              (1+ x)          )        'testlist ;注意：此处的单引号指定对testlist符号的引用    ) )

wzh

函数是有意义的，这是对相同特性的设备的统计，在设备表中对于相同特性的设备应合并到一个表格中。


我再按您说的办法试试，谢谢。

秋枫

wzh发表于2004-5-31 22:34:00函数是有意义的，这是对相同特性的设备的统计，在设备表中对于相同特性的设备应合并到一个表格中。 我再按您说的办法试试，谢谢。

我的意思是，这种要求也许并不适合采用mapcar函数。

威名

(defun c:test( / ss i i1 i2 ent_lst)
(setq ss (ssget '((0 . "*TEXT"))));选择text的所有文档
(setq i 0)
(repeat (sslength ss)
(setq ent_lst (append ent_lst (list (ssname ss i)))
i (1+ i))
)


(setq ent_lst (vl-sort ent_lst '(lambda(e1 e2) (< (caddr (assoc 10 (entget e1)))
(caddr (assoc 10 (entget e2)))))));按Y坐标排序
(setq ent_lst (vl-sort ent_lst '(lambda(e1 e2) (< (cadr (assoc 10 (entget e1)))
(cadr (assoc 10 (entget e2)))))));按X坐标排序
(setq i1 (cadr (assoc 10 (entget e1))))
(setq i2 (cadr (assoc 10 (entget e2))))
(cond (/= i1 i2)
(princ "\t"))
(cond (= i1 i2)
(princ "\n"))
(mapcar '(lambda(e)
(princ (cdr (assoc 1 (entget e))))) ent_lst);将坐标打印到命令行
(princ)
)
请各位老大帮我改改可以吗？？？

无痕

2. ;;;
3. (setq lst '(("AAA" "BBB" ) ("CCC" "DDD") ("ABC" "BBB") ("CDF" "BBB")))
4. (test lst) ->(("AAA,ABC,CDF" "BBB") ("CCC" "DDD"))
5. ;;;
6. (defun test (lst / nlst)
7.    (mapcar '(lambda(x)(setq xx (cadr x))
8.            (if (not(apply 'or (mapcar '(lambda(y)(setq yy (cadr y))
9.       (if (and xx yy (= xx yy))
10.          (setq nlst (subst (list (strcat (car y) "," (car x)) yy) y nlst))
11.          nil
12.          )
13.       )
14.              nlst)))
15.                (setq nlst (cons x nlst))
16.                )
17.        ) lst)
18.    (reverse nlst)
19.    )

;;; (setq lst '(("AAA" "BBB" ) ("CCC" "DDD") ("ABC" "BBB") ("CDF" "BBB"))) (test lst) ->(("AAA,ABC,CDF" "BBB") ("CCC" "DDD")) ;;; (defun test (lst / nlst)    (mapcar '(lambda(x)(setq xx (cadr x))            (if (not(apply 'or (mapcar '(lambda(y)(setq yy (cadr y))       (if (and xx yy (= xx yy))          (setq nlst (subst (list (strcat (car y) "," (car x)) yy) y nlst))          nil          )       )              nlst)))                (setq nlst (cons x nlst))                )        ) lst)    (reverse nlst)    )

威名

[URL=http://wpa.qq.com/msgrd?V=1&amp;Uin=52481028&amp;Site