[求助]：lisp中如何得到最后生成的两个对象？

fl202

比如已知一条直线，我们将它两边偏移，如何得到便宜后的两条直线？
或者将此直线打断于点或者打断于两点，如何得到打断后的两条直线？
entlast只能得到最后的的一个对象。

carrot1983

;;;(CJW-ENAME-ENTNEXT E_LAST) By carrot1983
(defun CJW-ENAME-ENTNEXT (ENAME / ENAME_LIST)
  (while (setq ENAME (entnext ENAME))
    (setq ENAME_LIST (cons ENAME ENAME_LIST))
  )
  ENAME_LIST
)

偏移前...
(setq E_LAST (entlast))

偏移过程...
(setq ENAME_LIST (CJW-ENAME-ENTNEXT E_LAST))

fl202

楼上的lisp，我没看懂，打断的直线也可以吗？

carrot1983

CAD_LISP_结构群: 82109567

有兴趣加进来讨论。(现在只有两个人，哈哈)

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun hao-ss-aftere (ename / ss)
   
5.   (if (and
   
6.         ename
   
7.         (setq ss (ssadd))
   
8.         (eq 'ename (type ename))
   
9.       )
   
10.     (while (setq ename (entnext ename))
    
11.       (ssadd ename ss)
    
12.     )
    
13.     (setq ss (ssget "x"))
    
14.   )
    
15.   ss
    
16. )
    
17. 
    
18. (defun c:test( / laste ss)
    
19. (setq laste (entlast))
    
20. (打断或偏移程序)
    
21. (setq ss (hao-ss-aftere laste))
    
22. )
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun hao-ss-aftere (ename / ss)<br />   (if (and<br />         ename<br />         (setq ss (ssadd))<br />         (eq 'ename (type ename))<br />       )<br />     (while (setq ename (entnext ename))<br />       (ssadd ename ss)<br />     )<br />     (setq ss (ssget "x"))<br />   )<br />   ss<br /> )<br /> <br /> (defun c:test( / laste ss)<br /> (setq laste (entlast))<br /> (打断或偏移程序)<br /> (setq ss (hao-ss-aftere laste))<br /> )<br />   [/FONT]<br />