发两个带过滤及亮显等功能的 entsel 函数

dabingrain

2. ;;功能：带提示、关键字、过滤表、选择错误时的提示并且会亮显所选对像的entsel
   
3. ;;用法：(entselEx  提示信息 过滤表)
   
4. ;;举例：(entselEx  "\r请选择一个圆：" '((0 . "circle")) )
   
5. (defun entselEx (msg fil / el ss)
   
6.         (while (and (setvar "errno" 0)
   
7.                                          (not (and (setq el  (entsel msg))
   
8.                                                                         (if (= (type el) 'str)
   
9.                                                                                 el
   
10.                                                                                 (if (setq ss (ssget (cadr el) fil))
    
11.                                                                                         ss
    
12.                                                                                         (progn (princ ermsg) (setq ss nil))
    
13.                                                                                 );if
    
14.                                                                         );if
    
15.                                                                 );and
    
16.                                          );not
    
17.                                          (/= (getvar "errno") 52)
    
18.                                  );and
    
19.   );while
    
20.   (if (= (type el) 'list) (redraw (car el) 3));亮显选中的对像
    
21.   el
    
22. )

;;功能：带提示、关键字、过滤表、选择错误时的提示并且会亮显所选对像的entsel<br /> ;;用法：(entselEx  提示信息 过滤表)<br /> ;;举例：(entselEx  "\r请选择一个圆：" '((0 . "circle")) )<br /> (defun entselEx (msg fil / el ss)<br />         (while (and (setvar "errno" 0) <br />                                          (not (and (setq el  (entsel msg)) <br />                                                                         (if (= (type el) 'str)<br />                                                                                 el<br />                                                                                 (if (setq ss (ssget (cadr el) fil))<br />                                                                                         ss<br />                                                                                         (progn (princ ermsg) (setq ss nil))<br />                                                                                 );if<br />                                                                         );if<br />                                                                 );and<br />                                          );not<br />                                          (/= (getvar "errno") 52)<br />                                  );and<br />   );while<br />   (if (= (type el) 'list) (redraw (car el) 3));亮显选中的对像<br />   el<br /> )

前生

这个好。刚想自己写个，在这个搜了一下。不错赞一个。

guankuiwu

很好！学习了！

白色微風1991

謝謝樓主的分享！太好用了！收藏備用。

hzyhzjjzh

谢谢分享！