只选特定实体的ENTSEL

taner

2. (defun usel (dxfcode sname msg / ent)
   
3.   (setq sname (strcase sname))
   
4.   (while (progn
   
5.      (setvar 'errno 0)
   
6.      (setq ent (entsel (cond
   
7.              (msg (strcat "\n选择" msg " : "))
   
8.              ( "\n选择实体: ")
   
9.            )
   
10.          )
    
11.      )
    
12.      (cond
    
13.        ((or
    
14.     (eq (Getvar 'errno) 7)
    
15.     (eq (Getvar 'errno) 52)
    
16.         )
    
17.          (princ "\n没有选到实体, 请重试.")
    
18.        )
    
19.        ((and
    
20.     (vl-consp ENT)
    
21.     (not (wcmatch (th-get-dxf dxfcode (car ent)) sname))
    
22.         )
    
23.          (princ (strcat "\n非" sname "实体."))
    
24.        )
    
25.      )
    
26.    )
    
27.   )
    
28.   ent
    
29. )
    
30. (defun th-get-dxf (g e)
    
31.   (cond
    
32.     ((= 'ename (type e))
    
33.      (cdr (assoc g (entget e)))
    
34.     )
    
35.     ((= 'list (type e))
    
36.      (cdr (assoc g e))
    
37.     )
    
38.   )
    
39. )
    

(defun usel (dxfcode sname msg / ent)<br />   (setq sname (strcase sname))<br />   (while (progn<br />      (setvar 'errno 0)<br />      (setq ent (entsel (cond<br />              (msg (strcat "\n选择" msg " : "))<br />              ( "\n选择实体: ")<br />            )<br />          )<br />      )<br />      (cond<br />        ((or<br />     (eq (Getvar 'errno) 7)<br />     (eq (Getvar 'errno) 52)<br />         )<br />          (princ "\n没有选到实体, 请重试.")<br />        )<br />        ((and<br />     (vl-consp ENT)<br />     (not (wcmatch (th-get-dxf dxfcode (car ent)) sname))<br />         )<br />          (princ (strcat "\n非" sname "实体."))<br />        )<br />      )<br />    )<br />   )<br />   ent<br /> )<br /> (defun th-get-dxf (g e)<br />   (cond<br />     ((= 'ename (type e))<br />      (cdr (assoc g (entget e)))<br />     )<br />     ((= 'list (type e))<br />      (cdr (assoc g e))<br />     )<br />   )<br /> )<br />

fjb54007

正需要，谢谢楼主分享

xvjiex

感谢楼主分享只选特定实体的ENTSEL