请问论坛高手这个创建集合的问题

薄荷微光

请问下已知有几个图元名字，怎么用LISP把他们创建为一个集合呢，我自己查到用ssadd，但好像只能一个一个加进去。

ssyfeng

一个个加入不是很正常嘛，有什么问题

薄荷微光

ssyfeng 发表于 2024-12-25 10:04
一个个加入不是很正常嘛，有什么问题

觉得有点麻烦，有没有一次就建好的方法呢

ssyfeng

用ssget选择对象就一次性了，不要怕麻烦，事要一件一件做

llsheng_73

如果把那那些图元全部转成对象放到安全数组里边，那就可以通过selection对象的additems方法一次性把这个数组放进去，不过这个转换还是得一个个来转，除非它们本来就是对象

飞雪神光

做成表 一个循环就进去了

xyp1964

1. (setq ss (ssadd))
   
2. (mapcar '(lambda (x) (ssadd x ss)) lst)

(setq ss (ssadd))<br /> (mapcar '(lambda (x) (ssadd x ss)) lst)

薄荷微光

飞雪神光 发表于 2024-12-25 11:59
做成表 一个循环就进去了

请问下怎么做成表呢，我试了下用括号括3个图元名，提示参数类型错误

2. (defun c:kkk()
   
3.   (setq e11 (car (entsel)))
   
4.   (setq e22 (car (entsel)))
   
5.   (setq e33 (car (entsel)))
   
6.   (setq lst '(e11 e22 e33))
   
7.   (setq n (length lst))
   
8.   (setq ss (ssadd))
   
9.   (while (> n 0)
   
10.     (ssadd (nth (1- n) lst) ss)
    
11.     (setq n (- n 1))
    
12.   )
    
13. )

(defun c:kkk()<br />   (setq e11 (car (entsel)))<br />   (setq e22 (car (entsel)))<br />   (setq e33 (car (entsel)))<br />   (setq lst '(e11 e22 e33))<br />   (setq n (length lst))<br />   (setq ss (ssadd))<br />   (while (> n 0)<br />     (ssadd (nth (1- n) lst) ss)<br />     (setq n (- n 1))<br />   )<br /> )

飞雪神光

薄荷微光 发表于 2024-12-26 00:19
请问下怎么做成表呢，我试了下用括号括3个图元名，提示参数类型错误

要用list

1. (setq lst (list e11 e22 e33))

(setq lst (list e11 e22 e33))