[求助] 表的合并问题

sf_elite

(defun c:c88(/ ss n m en)
(setq ss (ssget))
(setq n -1)
(setq m (sslength ss))
(repeat m
(setq en (ssname ss (setq n (+ n 1))))
(setq st (list (cons n en) st))
))

 

运行以上程序，任选三个图元后得到如下结果

 

((2 . <图元名: 78d051e0>) ((1 . <图元名: 78d051e8>) ((0 . <图元名: 78d051f0>) nil)))

 

可是我想要如下结果，程序该怎么写？

 

( (2 . <图元名: 78d051e0>) (1 . <图元名: 78d051e8>) (0 . <图元名: 78d051f0>) )

caoyin

(defun c:c88(/ ss n m en st)
(setq ss (ssget))
(setq n -1)
(setq m (sslength ss))
(repeat m
(setq en (ssname ss (setq n (+ n 1))))
(setq st (cons (cons n en) st))
))

 

把list换成cons就好了

gufeng

2. (defun c:c88 (/ ss n m en st)
3.   (setq ss (ssget))
4.   (setq n -1)
5.   (setq m (sslength ss))
6.   (repeat m
7.     (setq en (ssname ss (setq n (+ n 1))))
8.     (setq st (append (list (cons n en)) st))
9.   )
10. )

(defun c:c88 (/ ss n m en st)   (setq ss (ssget))   (setq n -1)   (setq m (sslength ss))   (repeat m     (setq en (ssname ss (setq n (+ n 1))))     (setq st (append (list (cons n en)) st))   ) )

sf_elite

以上两位前辈的程序都很好用，多谢了啊!