如何获得修改后的图元

haoxuan

如何获得修改后的图元，比如选择集选择后从交点处打断，如何获得打断后的所有图元？

ssyfeng

试试这个：

2. ;;说明:返回某图元名后的图元名表
   
3. ;;参数:en:图元名
   
4. (defun Entnext-lst (en / enlst)
   
5.   (setq enlst '())
   
6.   (while (setq en (entnext en))
   
7.     (setq enlst (cons en enlst))
   
8.   )
   
9.   (if (/= (length enlst) 0)
   
10.     enlst
    
11.     nil
    
12.   )
    
13. )

;;说明:返回某图元名后的图元名表<br /> ;;参数:en:图元名<br /> (defun Entnext-lst (en / enlst)<br />   (setq enlst '())<br />   (while (setq en (entnext en))<br />     (setq enlst (cons en enlst))<br />   )<br />   (if (/= (length enlst) 0)<br />     enlst<br />     nil<br />   )<br /> )

qazxswk

ssyfeng 发表于 2024-8-18 10:51
试试这个：

估计他不知道用。