[LISP函数]：怎么创建一个插入点的集合

lyc3029

怎么创建一个插入点的集合
我想做一个强化版的ＣＯＰＹＢＡＳＥ

选择Ｎ个图元，Ｎ个插入点
再按各个的插入点插入

但是插入点集合怎么创建，

不懂，大虾们，ＨＥＬＰ！

xyp1964

图元与插入点的关系是什么？

lyc3029

没有关系,随便指定的插入点

xyp1964

前后帖有矛盾，给个例子说清楚。

lyc3029

(princ "请选择要COPYBASE的东东:")
   (setq n (ssget))
   (setq sell (ssadd))
   (ssadd (ssname n 0) sell)
   (setq pt (getpoint "请点取插入点:"))
   然后怎么把这个点放在一个集合中,下次随前面选的图元一起调用!

大侠赐教

eachy

2. 
   
3. (setq n 1)
   
4. (while (and (setq p (getpoint "\nInsertionPoint: "))
   
5.             (set (read (strcat "ss" (itoa n))) (ssget));_注意选择集数量限制
   
6.             (setq n (1+ n))
   
7.        )
   
8.   (setq sslst (cons (list p (strcat "ss" (itoa n))) sslst))
   
9. )
   
10. (mapcar
    
11.   '(lambda (x)
    
12.      (vl-cmdf ".copybase" (car p) (eval (read (cadr x))) "")
    
13.    )
    
14. )

<br /> (setq n 1)<br /> (while (and (setq p (getpoint "\nInsertionPoint: "))<br />             (set (read (strcat "ss" (itoa n))) (ssget));_注意选择集数量限制<br />             (setq n (1+ n))<br />        )<br />   (setq sslst (cons (list p (strcat "ss" (itoa n))) sslst))<br /> )<br /> (mapcar<br />   '(lambda (x)<br />      (vl-cmdf ".copybase" (car p) (eval (read (cadr x))) "")<br />    )<br /> )

lyc3029

太感谢,我刚开始学LISP,
以前有些程序允许定义 A(I) 这类的变量, 本以为LISP不可以,其实通过斑主的方法是可以了,惭愧,应该好好动动脑筋,   
我一开始,我是用(setq i "a")
(setq (read i) (ssget))
一个循环完成
(setq i (chr (+ (ascii i) 1)) )
这样来实现的,

可j是再调用点时,就不行了,(setq pt (read  chr(+ n  (assii i)  ) ) )
但这样只能返回字母,不能返回坐标值,
大侠帮我看看,这样能不能实现!