选择实体亮显该实体所在图层的所有实体

Lisphk

1. (defun ssl (/ ss ent)
   
2.   (if
   
3.     (or
   
4.       (and
   
5.         (setq ss (cadr (ssgetfirst)))
   
6.         (= 1 (sslength ss))
   
7.         (setq ent (ssname ss 0))
   
8.       )
   
9.       (and
   
10.         (sssetfirst nil nil)
    
11.         (setq ent (car (entsel)))
    
12.       )
    
13.     )
    
14.     (ssget "_X" (list (assoc 8 (entget ent))))
    
15.   )
    
16. )
    
17. 
    
18. (defun c:ssl (/)
    
19.   (sssetfirst nil (ssl))
    
20.   (princ)
    
21. )
    

(defun ssl (/ ss ent)<br />   (if<br />     (or<br />       (and<br />         (setq ss (cadr (ssgetfirst)))<br />         (= 1 (sslength ss))<br />         (setq ent (ssname ss 0))<br />       )<br />       (and<br />         (sssetfirst nil nil)<br />         (setq ent (car (entsel)))<br />       )<br />     )<br />     (ssget "_X" (list (assoc 8 (entget ent))))<br />   )<br /> )<br /> <br /> (defun c:ssl (/)<br />   (sssetfirst nil (ssl))<br />   (princ)<br /> )<br />

另外一个

1. (defun C:test ( / r )
   
2.   (vl-every '(lambda (x) (eval x))
   
3.     '(
   
4.       (setq r (nentsel "Select entity on a layer: "))
   
5.       (setq r (entget (car r)))
   
6.       (setq r (assoc 8 r))
   
7.       (setq r (ssget "_X" (list r)))
   
8.       (sssetfirst nil r)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    

(defun C:test ( / r )<br />   (vl-every '(lambda (x) (eval x))<br />     '(<br />       (setq r (nentsel "Select entity on a layer: "))<br />       (setq r (entget (car r)))<br />       (setq r (assoc 8 r))<br />       (setq r (ssget "_X" (list r)))<br />       (sssetfirst nil r)<br />     )<br />   )<br />   (princ)<br /> )<br />

sh_h

这个很实用，谢谢大师分享！！！

qq1254582201

留爪回头好好研读一下子

sicky111

支持源码。

xdcad9819

感谢感谢感谢感谢

jshailinqq

做一个热心并受欢迎的人！

yoyoho

谢谢大师分享！！！