怎样得到某次操作后生成的所有图元

lht

在程序中想要得到某次操作后生成的所有图元,不知怎么写函数,请教各位大师.

Andyhon

视实务而异
请楼主依实例来探讨

jh1005

给你两个caoyin版主写的非常好用的函数。

2. (defun sslast (en / ss)            ;获取在图元 en 之后产生的选择集 ;by caoyin
   
3. (if en                         ;;如果en存在
   
4. (progn
   
5. (setq ss (ssadd))              ;;建立空集
   
6. (while (setq en (entnext en))  ;;当en后有对象时
   
7. (if (not (member (cdr (assoc 0 (entget en))) '("ATTRIB" "VERTEX" "SEQEND")))
   
8. (ssadd en ss))                 ;;把en后的对象加入到空集
   
9. )
   
10. (if (zerop (sslength ss)) (setq ss nil)) ;;如果SS为0，设置SS为nil
    
11. ss
    
12. )
    
13. (ssget "_x")
    
14. )
    
15. )
    
16. 
    
17. (defun EntNextAll  (EN / LST)   ;获取在图元 en 之后产生的图元列表 ;by caoyin
    
18. ;; [参数] en----图元名
    
19. ;; [返回] 选择集
    
20. ;; [测试]1.(setq en (entlast))
    
21. ;;         执行创建图元的命令，如 LINE,BOUNDARY
    
22. ;;         (EntNextAll en)
    
23. ;;       2.(EntNextAll (car(entsel)))
    
24.   (if EN
    
25.     (while (setq EN (entnext EN))
    
26.       (if (not (member (cdr (assoc 0 (entget EN)))
    
27.                        '("ATTRIB" "VERTEX" "SEQEND")
    
28.                )
    
29.           )
    
30.         (setq LST (cons EN LST))
    
31.       )
    
32.     )
    
33.   )
    
34.   (reverse LST)
    
35. )

(defun sslast (en / ss)            ;获取在图元 en 之后产生的选择集 ;by caoyin<br /> (if en                         ;;如果en存在<br /> (progn<br /> (setq ss (ssadd))              ;;建立空集<br /> (while (setq en (entnext en))  ;;当en后有对象时<br /> (if (not (member (cdr (assoc 0 (entget en))) '("ATTRIB" "VERTEX" "SEQEND")))<br /> (ssadd en ss))                 ;;把en后的对象加入到空集<br /> )<br /> (if (zerop (sslength ss)) (setq ss nil)) ;;如果SS为0，设置SS为nil<br /> ss<br /> )<br /> (ssget "_x")<br /> )<br /> )<br /> <br /> (defun EntNextAll  (EN / LST)   ;获取在图元 en 之后产生的图元列表 ;by caoyin<br /> ;; [参数] en----图元名<br /> ;; [返回] 选择集<br /> ;; [测试]1.(setq en (entlast))<br /> ;;         执行创建图元的命令，如 LINE,BOUNDARY<br /> ;;         (EntNextAll en)<br /> ;;       2.(EntNextAll (car(entsel)))<br />   (if EN<br />     (while (setq EN (entnext EN))<br />       (if (not (member (cdr (assoc 0 (entget EN)))<br />                        '("ATTRIB" "VERTEX" "SEQEND")<br />                )<br />           )<br />         (setq LST (cons EN LST))<br />       )<br />     )<br />   )<br />   (reverse LST)<br /> )

lht

谢谢jh1005的热心帮忙,为我解决了难题

zmzk

请问这两段函数怎么用啊？有没有案例？类似的lisp可供参考下