新画的图元怎么加入到已有选区中？

apollokk

现有一程序流程如下：
1、选择一个或者多个对象
2、根据参数添加元素，比如偏移线、孔什么的
3、对最初选择的对象和后面添加的对象进行复制

现在的问题是新绘制的对象不知道怎么加入到原来的选择里了，部份代码如下：

变量ss存储了选择的对象

1. (setq ss (_catcherror 'ssget '(((0 . "LINE,ARC,CIRCLE,LWPOLYLINE")))))

(setq ss (_catcherror 'ssget '(((0 . "LINE,ARC,CIRCLE,LWPOLYLINE")))))

后面添加新对象部份代码：

1. (progn
   
2.     (setq newl (ch_trimline_new dline (list p11 p22) reverseis))
   
3.     (setq temnewls (list (vla-addline mspace (_3dpt p11) (_3dpt p111))
   
4.              (vla-addline mspace (_3dpt p111) (_3dpt p1111))
   
5.              (vla-addline mspace (_3dpt p22) (_3dpt p222))
   
6.              (vla-addline mspace (_3dpt p222) (_3dpt p2222))
   
7.              newl
   
8.              )
   
9.     )
   
10.     (setq xdata (list (list 1001 "DCCHAS") (list 1070 1)))
    
11.     (mapcar '(lambda (l) (dcb:wxdata l xdata)) temnewls)
    
12.     (vla-put-layer newl (vla-get-layer (car temnewls)))
    
13.     (vla-put-color newl (vla-get-color (car temnewls)))
    
14.     (setq oklinelist (append oklinelist temnewls))
    
15.     )
    
16.   )

(progn<br />     (setq newl (ch_trimline_new dline (list p11 p22) reverseis))<br />     (setq temnewls (list (vla-addline mspace (_3dpt p11) (_3dpt p111))<br />              (vla-addline mspace (_3dpt p111) (_3dpt p1111))<br />              (vla-addline mspace (_3dpt p22) (_3dpt p222))<br />              (vla-addline mspace (_3dpt p222) (_3dpt p2222))<br />              newl<br />              )<br />     )<br />     (setq xdata (list (list 1001 "DCCHAS") (list 1070 1)))<br />     (mapcar '(lambda (l) (dcb:wxdata l xdata)) temnewls)<br />     (vla-put-layer newl (vla-get-layer (car temnewls)))<br />     (vla-put-color newl (vla-get-color (car temnewls)))<br />     (setq oklinelist (append oklinelist temnewls))<br />     )<br />   )

上面这段新增加的对象已经保存到一个列表里了，但不知道怎么添加到变量ss里呢？好像类型都不一样的。
刚学习，一头雾水，请各位老师指导

start4444

(mapcar '(lambda (x) (setq ss (ssadd x ss))) lst)  ;要确定 lst 是图元名列表

apollokk

start4444 发表于 2020-4-11 18:27
(mapcar '(lambda (x) (setq ss (ssadd x ss))) lst)  ;要确定 lst 是图元名列表

您好，感谢您的回复。现在我加了这条语句进去会出错，附上截图，请帮分析下：