[LISP函数]：全新的ENSEL函数

aeo

2. 
   
3. (defun my-entsel(say filter / dis p p1 p2 p3 p4 ss)
   
4.   (prompt say)
   
5.   (if(setq p(cadr(entsel)))(progn
   
6.   (setq dis(/(*(/(float (getvar"pickbox"))(last(getvar "screensize")))(getvar"viewsize"))2.0))
   
7.   (setq p1(polar p (* 0.25 pi)(* 1.414 dis))
   
8.         p2(polar p1 pi (* dis 2))
   
9.         p3(polar p2(* pi 1.5)(* dis 2))
   
10.         p4(polar p1(* pi 1.5)(* dis 2))
    
11.      )
    
12.   (if filter(setq ss(ssget "cp"(list p1 p2 p3 p4)filter ))
    
13.           (setq ss (ssget "cp"(list p1 p2 p3 p4)))
    
14.           )
    
15.   ))(if ss(list(ssname ss 0)p) nil)
    
16. )
    

<br /> (defun my-entsel(say filter / dis p p1 p2 p3 p4 ss)<br />   (prompt say)<br />   (if(setq p(cadr(entsel)))(progn<br />   (setq dis(/(*(/(float (getvar"pickbox"))(last(getvar "screensize")))(getvar"viewsize"))2.0))<br />   (setq p1(polar p (* 0.25 pi)(* 1.414 dis))<br />         p2(polar p1 pi (* dis 2))<br />         p3(polar p2(* pi 1.5)(* dis 2)) <br />         p4(polar p1(* pi 1.5)(* dis 2))<br />      )<br />   (if filter(setq ss(ssget "cp"(list p1 p2 p3 p4)filter ))<br />           (setq ss (ssget "cp"(list p1 p2 p3 p4)))<br />           )<br />   ))(if ss(list(ssname ss 0)p) nil)<br /> )<br />

(my-entsel "****" '((0 . "LINE")(8 . "DOTE")))
(my-entsel "fun" nil)


有的字打不出来,哈哈,猜!!!!!!!!!!!!!!!!!!!!

fylinwater

最初由 aeo 发布
[B]还是不好,
'p  'zoom怎么办?

我想方法应该是:
还用entsel,但只用entsel返回的点,再通过这点重新过滤,有要的亮显,没有就安全的出来.
而且通过点ssget,选中的机会很小,要模拟出一个选框(box)来和entsel的框相同... [/B]

我建议慎重使用SSGET（）来模拟选择
很容易出现意外错误，或者明明有的东西选不到，或者可以选择有错误，主要是实体多而且重复的时候使用ssget（）的时候box的点会正好落在某个实体上
当然如果通过预先调用zoom和PAN移动屏幕到合适大小可以解决这个问题，但会产生屏幕的抖动和消耗很多时间（处理大的图形的时候）

aeo

上面box框模拟的是entsel的框,既然能entsel选到东西,就能ssget,只不过是把要求的东西换成想要的.
你说的几种可能多不会发生.
如果box落在物体上而没选中这物体,那么entsel也选不中.我们只要entsel一样的结果.

gchen

我认为lijiao写这个函数最大的目的，还是在于当选择框移动到物体上时，物体可以亮显，提示用户可以做正确选择。如果是为了过滤的话，完全可以在选择后判断，加以过滤。
现在函数最大的缺点我认为还是不能使用透明命令。

lijiao

最初由 gchen 发布
[B]我认为lijiao写这个函数最大的目的，还是在于当选择框移动到物体上时，物体可以亮显，提示用户可以做正确选择。如果是为了过滤的话，完全可以在选择后判断，加以过滤。
现在函数最大的缺点我认为还是不能使用透明命... [/B]

你说得对，这个函数得缺点就在这里。
由于我用的是带滚轮的鼠标，所以忽视了这个问题。

aeo

不就不能亮显吗,
现加一行字,可以了.选择怎么能不zoom呢.

2. 
   
3. (defun my-entsel(say filter / dis p p1 p2 p3 p4 ss)
   
4.   (prompt say)
   
5.   (if(setq p(cadr(entsel)))(progn
   
6.   (setq dis(/(*(/(float (getvar"pickbox"))(last(getvar "screensize")))(getvar"viewsize"))2.0))
   
7.   (setq p1(polar p (* 0.25 pi)(* 1.414 dis))
   
8.         p2(polar p1 pi (* dis 2))
   
9.         p3(polar p2(* pi 1.5)(* dis 2))
   
10.         p4(polar p1(* pi 1.5)(* dis 2))
    
11.      )
    
12.   (if filter(setq ss(ssget "cp"(list p1 p2 p3 p4)filter ))
    
13.           (setq ss (ssget "cp"(list p1 p2 p3 p4)))
    
14.           )
    
15.   ))(if ss(redraw (ssname ss 0) 3))
    
16. (if ss(list(ssname ss 0)p) nil)
    
17. )
    

<br /> (defun my-entsel(say filter / dis p p1 p2 p3 p4 ss)<br />   (prompt say)<br />   (if(setq p(cadr(entsel)))(progn<br />   (setq dis(/(*(/(float (getvar"pickbox"))(last(getvar "screensize")))(getvar"viewsize"))2.0))<br />   (setq p1(polar p (* 0.25 pi)(* 1.414 dis))<br />         p2(polar p1 pi (* dis 2))<br />         p3(polar p2(* pi 1.5)(* dis 2)) <br />         p4(polar p1(* pi 1.5)(* dis 2))<br />      )<br />   (if filter(setq ss(ssget "cp"(list p1 p2 p3 p4)filter ))<br />           (setq ss (ssget "cp"(list p1 p2 p3 p4)))<br />           )<br />   ))(if ss(redraw (ssname ss 0) 3))<br /> (if ss(list(ssname ss 0)p) nil)<br /> )<br />

grread我也爱用,至少少按一个键.但这里用entsel好.