entsel循环处理(不退出程序的情况下返回error信息)

yjtdkj

刚刚研究出来，需要的拿去，不谢~~

1. ;|-----------------------------------------------------
   
2. 本函数可以让entsel函数返回4类信息，并分别处理
   
3. 1.如果选中对象，则与entsel返回的内容一致，继续循环执行
   
4. 2.如果鼠标对到空白处，则返回nil，则有提示，仍然循环执行
   
5. 3.如果按空格键，则返回""，返回所有选中的图层
   
6. 4.如果按Esc键，则退出并返回错误信息
   
7. -------------------------------------------------------
   
8.                                       yjtdkj.2021.07.14
   
9. |;
   
10. (DEFUN c:tt (/ ENL ENLAYER LST SS SSL SSLST)
    
11.   (defun yj-ss2lst (ss / i l)
    
12.       (if ss
    
13.   (repeat  (setq i (sslength ss))
    
14.     (setq l (cons (ssname ss (setq i (1- i))) l))
    
15.   )
    
16.       )
    
17.     )
    
18.   (defun doENTSEL ()
    
19.     (SETQ enl (VL-CATCH-ALL-APPLY 'ENTSEL
    
20.           (list "\n选择任意对象以获取执行图层<空格确认返回>:")
    
21.         )
    
22.     )
    
23.     (if  (VL-CATCH-ALL-ERROR-P enl)
    
24.       (vl-catch-all-error-message enl)
    
25.       enl
    
26.     )
    
27.   )
    
28.   (initget " ")
    
29.   (while (/= (type
    
30.          (doENTSEL)
    
31.        )
    
32.        'STR
    
33.    )
    
34.     (IF  (= enl NIL)
    
35.       (PRINC "\n** 没有对象被选择 **")
    
36.       (PROGN
    
37.   (SETQ enLayer (CDR (ASSOC 8 (ENTGET (CAR enl)))))
    
38.   (setq lst (cons enLayer lst))
    
39.   (setq ss (ssget "X" (list (cons 8 enLayer))))
    
40.   (setq ssl (yj-ss2lst ss))
    
41.   (foreach n ssl (redraw n 3)) ;亮显图层内所有对象
    
42.         (setq sslst (append ssl sslst))
    
43.       )
    
44.     )
    
45.     (initget " ")
    
46.   )
    
47.     (foreach n sslst (redraw n 4)) ;取消亮显
    
48.   (IF (= enl "")
    
49.     lst
    
50.     enl
    
51.   )
    
52. )

;|-----------------------------------------------------<br /> 本函数可以让entsel函数返回4类信息，并分别处理<br /> 1.如果选中对象，则与entsel返回的内容一致，继续循环执行<br /> 2.如果鼠标对到空白处，则返回nil，则有提示，仍然循环执行<br /> 3.如果按空格键，则返回""，返回所有选中的图层<br /> 4.如果按Esc键，则退出并返回错误信息<br /> -------------------------------------------------------<br />                                       yjtdkj.2021.07.14<br /> |;<br /> (DEFUN c:tt (/ ENL ENLAYER LST SS SSL SSLST)<br />   (defun yj-ss2lst (ss / i l)<br />       (if ss<br />   (repeat  (setq i (sslength ss))<br />     (setq l (cons (ssname ss (setq i (1- i))) l))<br />   )<br />       )<br />     )<br />   (defun doENTSEL ()<br />     (SETQ enl (VL-CATCH-ALL-APPLY 'ENTSEL<br />           (list "\n选择任意对象以获取执行图层<空格确认返回>:")<br />         )<br />     )<br />     (if  (VL-CATCH-ALL-ERROR-P enl)<br />       (vl-catch-all-error-message enl)<br />       enl<br />     )<br />   )<br />   (initget " ")<br />   (while (/= (type<br />          (doENTSEL)<br />        )<br />        'STR<br />    )<br />     (IF  (= enl NIL)<br />       (PRINC "\n** 没有对象被选择 **")<br />       (PROGN<br />   (SETQ enLayer (CDR (ASSOC 8 (ENTGET (CAR enl)))))<br />   (setq lst (cons enLayer lst))<br />   (setq ss (ssget "X" (list (cons 8 enLayer))))<br />   (setq ssl (yj-ss2lst ss))<br />   (foreach n ssl (redraw n 3)) ;亮显图层内所有对象<br />         (setq sslst (append ssl sslst))<br />       )<br />     )<br />     (initget " ")<br />   )<br />     (foreach n sslst (redraw n 4)) ;取消亮显<br />   (IF (= enl "")<br />     lst<br />     enl<br />   )<br /> )