[求助]：eachy 斑竹,请进!

lyc3029

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 /> )<br />

运行起来,显示缺少参数?什么原因

lyc3029

呵呵,欢迎,偶不太懂,请教!

netbee

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

[/PHP]