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

lijiao

CSENTSEL与ENTSEL的区别：
CSENTSEL需要过滤器，当鼠标移动到满足过滤条件的图元上时，图元会闪动，以免选择了不该选择的图元，过滤器与SSGET的过滤器要求相同。
返回值与ENTSEL相同，选择成功，返回一个表，（实体名 拾取点坐标）

2. 
   
3.   [FONT=courier new]
   
4. (defun CS_ENTSEL (FILTER / pt ss_name ss)
   
5.   (setq pt (grread t 4 2))
   
6.   (while (/= 3 (car pt))
   
7.     (if        (= 5 (car pt))
   
8.       (progn
   
9.         (setq pt (cadr pt))
   
10.         (setq ss (ssget pt FILTER))
    
11.         (if ss_name
    
12.           (redraw ss_name 4)
    
13.         )
    
14.         (setq ss_name nil)
    
15.         (if ss
    
16.           (progn
    
17.             (setq ss_name (ssname ss 0))
    
18.             (redraw ss_name 3)
    
19.           )
    
20.         )
    
21.         (setq pt (grread t 4 2))
    
22.       )
    
23.     )
    
24.   )
    
25.   (setq pt (cadr pt))
    
26.   (setq ss (ssget pt FILTER))
    
27.   (if ss_name
    
28.     (redraw ss_name 4)
    
29.   )
    
30.   (setq ss_name nil)
    
31.   (if ss
    
32.     (progn
    
33.       (setq ss_name (ssname ss 0))
    
34.       (list ss_name pt)
    
35.     )
    
36.     (eval cs_name)
    
37.   )
    
38. )
    
39.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun CS_ENTSEL (FILTER / pt ss_name ss)<br />   (setq pt (grread t 4 2))<br />   (while (/= 3 (car pt))<br />     (if        (= 5 (car pt))<br />       (progn<br />         (setq pt (cadr pt))<br />         (setq ss (ssget pt FILTER))<br />         (if ss_name<br />           (redraw ss_name 4)<br />         )<br />         (setq ss_name nil)<br />         (if ss<br />           (progn<br />             (setq ss_name (ssname ss 0))<br />             (redraw ss_name 3)<br />           )<br />         )<br />         (setq pt (grread t 4 2))<br />       )<br />     )<br />   )<br />   (setq pt (cadr pt))<br />   (setq ss (ssget pt FILTER))<br />   (if ss_name<br />     (redraw ss_name 4)<br />   )<br />   (setq ss_name nil)<br />   (if ss<br />     (progn<br />       (setq ss_name (ssname ss 0))<br />       (list ss_name pt)<br />     )<br />     (eval cs_name)<br />   )<br /> )<br />   [/FONT]<br />

eachy

再加个自定义提示串就更好了。

lijiao

最初由 eachy 发布
[B]再加个自定义提示串就更好了。 [/B]

谢谢指点。

2. 
   
3.   [FONT=courier new]
   
4. (defun CS_ENTSEL (FILTER / pt ss_name ss)
   
5.   (princ "\n选择实体：")
   
6.   (setq pt (grread t 4 2))
   
7.   (while (/= 3 (car pt))
   
8.     (if        (= 5 (car pt))
   
9.       (progn
   
10.         (setq pt (cadr pt))
    
11.         (setq ss (ssget pt FILTER))
    
12.         (if ss_name
    
13.           (redraw ss_name 4)
    
14.         )
    
15.         (setq ss_name nil)
    
16.         (if ss
    
17.           (progn
    
18.             (setq ss_name (ssname ss 0))
    
19.             (redraw ss_name 3)
    
20.           )
    
21.         )
    
22.         (setq pt (grread t 4 2))
    
23.       )
    
24.     )
    
25.   )
    
26.   (setq pt (cadr pt))
    
27.   (setq ss (ssget pt FILTER))
    
28.   (if ss_name
    
29.     (redraw ss_name 4)
    
30.   )
    
31.   (setq ss_name nil)
    
32.   (if ss
    
33.     (progn
    
34.       (setq ss_name (ssname ss 0))
    
35.       (list ss_name (osnap pt "nea"))
    
36.    )
    
37.     (eval cs_name)
    
38.   )
    
39. )
    
40. 
    
41.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun CS_ENTSEL (FILTER / pt ss_name ss)<br />   (princ "\n选择实体：")<br />   (setq pt (grread t 4 2))<br />   (while (/= 3 (car pt))<br />     (if        (= 5 (car pt))<br />       (progn<br />         (setq pt (cadr pt))<br />         (setq ss (ssget pt FILTER))<br />         (if ss_name<br />           (redraw ss_name 4)<br />         )<br />         (setq ss_name nil)<br />         (if ss<br />           (progn<br />             (setq ss_name (ssname ss 0))<br />             (redraw ss_name 3)<br />           )<br />         )<br />         (setq pt (grread t 4 2))<br />       )<br />     )<br />   )<br />   (setq pt (cadr pt))<br />   (setq ss (ssget pt FILTER))<br />   (if ss_name<br />     (redraw ss_name 4)<br />   )<br />   (setq ss_name nil)<br />   (if ss<br />     (progn<br />       (setq ss_name (ssname ss 0))<br />       (list ss_name (osnap pt "nea"))<br />    )<br />     (eval cs_name)<br />   )<br /> )<br /> <br />   [/FONT]<br />

eachy

是不是这样好些：

2. 
   
3. (defun CS_ENTSEL ( str FILTER / pt ss_name ss)
   
4.   (princ str)
   
5.   .....
   
6. )

<br /> (defun CS_ENTSEL ( str FILTER / pt ss_name ss)<br />   (princ str)<br />   .....<br /> )

可以说明选择什么实体。

zhynt

我用(setq a (cs_entsel '((0 . "line"))))选择直线怎么显示nil？

lijiao

最初由 zhynt 发布
[B]我用(setq a (cs_entsel '((0 . "line"))))选择直线怎么显示nil？ [/B]

是我的错，在第三贴中少了一个括号，已经修改了。

zhynt

应该再加一条件判断语句，当在提示时按了回车或鼠标右键后提示重新选择或退出，目前这样做后将进入死循环。

light_dream

有一个问题想请教：调用nentsel函数选择实体后，用函数entget 生成DXF形式的list关连表。但当实体为"LWPOLYLINE"类型的圆弧时，关连表中不会有关于"ARC"的数据，如：半径、圆心等。怎样能生成这部分数据？！谢谢！

lijiao

最初由 zhynt 发布
[B]应该再加一条件判断语句，当在提示时按了回车或鼠标右键后提示重新选择或退出，目前这样做后将进入死循环。 [/B]

多谢二位指点，修改后的代码如下：

2. 
   
3.   [FONT=courier new]
   
4. (defun CS_ENTSEL (STR FILTER / pt ss_name ss)
   
5.   (if (/= (type str) 'STR)
   
6.     (progn
   
7.       (princ "\n变量类型不对，STR应为字符串。\n")
   
8.       (eval nil)
   
9.     )
   
10.     (progn
    
11.       (if (/= (type FILTER) 'LIST)
    
12.         (progn
    
13.           (princ "\n变量类型不对，FILTER应为表。\n")
    
14.           (eval nil)
    
15.         )
    
16.         (progn
    
17.           (princ str)
    
18.           (setq pt (grread t 4 2))
    
19.           (while (/= 3 (car pt))
    
20.             (if        (= 5 (car pt))
    
21.               (progn
    
22.                 (setq pt (cadr pt))
    
23.                 (setq ss (ssget pt FILTER))
    
24.                 (if ss_name
    
25.                   (redraw ss_name 4)
    
26.                 )
    
27.                 (setq ss_name nil)
    
28.                 (if ss
    
29.                   (progn
    
30.                     (setq ss_name (ssname ss 0))
    
31.                     (redraw ss_name 3)
    
32.                   )
    
33.                 )
    
34.               )
    
35.               (setq pt (grread t 4 2))
    
36.             )
    
37.           )
    
38.           (setq pt (cadr pt))
    
39.           (setq ss (ssget pt FILTER))
    
40.           (if ss_name
    
41.             (redraw ss_name 4)
    
42.           )
    
43.           (setq ss_name nil)
    
44.           (if ss
    
45.             (progn
    
46.               (setq ss_name (ssname ss 0))
    
47.               (list ss_name pt)
    
48.             )
    
49.             (eval cs_name)
    
50.           )
    
51.         )
    
52.       )
    
53.     )
    
54.   )
    
55. )
    
56.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun CS_ENTSEL (STR FILTER / pt ss_name ss)<br />   (if (/= (type str) 'STR)<br />     (progn<br />       (princ "\n变量类型不对，STR应为字符串。\n")<br />       (eval nil)<br />     )<br />     (progn<br />       (if (/= (type FILTER) 'LIST)<br />         (progn<br />           (princ "\n变量类型不对，FILTER应为表。\n")<br />           (eval nil)<br />         )<br />         (progn<br />           (princ str)<br />           (setq pt (grread t 4 2))<br />           (while (/= 3 (car pt))<br />             (if        (= 5 (car pt))<br />               (progn<br />                 (setq pt (cadr pt))<br />                 (setq ss (ssget pt FILTER))<br />                 (if ss_name<br />                   (redraw ss_name 4)<br />                 )<br />                 (setq ss_name nil)<br />                 (if ss<br />                   (progn<br />                     (setq ss_name (ssname ss 0))<br />                     (redraw ss_name 3)<br />                   )<br />                 )<br />               )<br />               (setq pt (grread t 4 2))<br />             )<br />           )<br />           (setq pt (cadr pt))<br />           (setq ss (ssget pt FILTER))<br />           (if ss_name<br />             (redraw ss_name 4)<br />           )<br />           (setq ss_name nil)<br />           (if ss<br />             (progn<br />               (setq ss_name (ssname ss 0))<br />               (list ss_name pt)<br />             )<br />             (eval cs_name)<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br />   [/FONT]<br />

gchen

我也发现了这个问题，在按鼠标右键是进入死循环。
我改成了退出。
程序如下：

2. 
   
3. (defun CS_ENTSEL (promptstring FILTER / pt ss_name ss old_pt)
   
4. 
   
5. (defun cs_error (msg)
   
6.   (if (member msg '("Function cancelled" "quit / exit abort" "console break"))
   
7.     (princ)
   
8.     (princ (strcat "Error: " msg))
   
9.     )
   
10.   (if ss
    
11.     (progn
    
12.       (setq ss_name (ssname ss 0))
    
13.       (redraw ss_name 4)
    
14.       )
    
15.     )
    
16.   (if old-osmode (setvar "osmode" old-osmode))
    
17.   (if old-ortho (setvar "orthomode" old-ortho))
    
18.   (if old-cmdecho (setvar "cmdecho" old-cmdecho))
    
19.   (if old_error (setq *error* old-error))
    
20.   (princ)
    
21.   )
    
22. 
    
23.   (princ (strcat "\n" promptstring))
    
24.   (setq old_error *error* *error* cs_error)
    
25.   (setq pt (grread t 12 2))
    
26.   (setq old_pt pt)
    
27.   (while (/= 3 (car pt))
    
28.     (if        (= 5 (car pt))
    
29.       (progn
    
30.         (setq pt (cadr pt))
    
31.         (setq ss (ssget pt FILTER))
    
32.         (if ss_name
    
33.           (redraw ss_name 4)
    
34.           )
    
35.         (setq ss_name nil)
    
36.         (if ss
    
37.           (progn
    
38.             (setq ss_name (ssname ss 0))
    
39.             (redraw ss_name 3)
    
40.             )
    
41.           )
    
42.         (setq pt (grread t 12 2))
    
43.                      (if (= (type (cadr pt)) 'LIST)
    
44.                        (setq old_pt pt)
    
45.                       )
    
46.         )
    
47.       (setq pt '(3))
    
48.       )
    
49.     )
    
50.   (if (= 3 (car pt))
    
51.     (setq pt old_pt)
    
52.     )
    
53.   (setq pt (cadr pt))
    
54.   (setq ss (ssget pt FILTER))
    
55.   (if ss_name
    
56.     (redraw ss_name 4)
    
57.   )
    
58.   (setq ss_name nil)
    
59.   (if ss
    
60.     (progn
    
61.       (setq ss_name (ssname ss 0))
    
62.       (list ss_name pt)
    
63.     )
    
64.     (eval ss_name)
    
65.   )
    
66. )
    

<br /> (defun CS_ENTSEL (promptstring FILTER / pt ss_name ss old_pt)<br /> <br /> (defun cs_error (msg)<br />   (if (member msg '("Function cancelled" "quit / exit abort" "console break"))<br />     (princ) <br />     (princ (strcat "Error: " msg))<br />     )<br />   (if ss <br />     (progn <br />       (setq ss_name (ssname ss 0))<br />       (redraw ss_name 4)<br />       )<br />     )<br />   (if old-osmode (setvar "osmode" old-osmode))<br />   (if old-ortho (setvar "orthomode" old-ortho))<br />   (if old-cmdecho (setvar "cmdecho" old-cmdecho))<br />   (if old_error (setq *error* old-error))<br />   (princ)<br />   )<br /> <br />   (princ (strcat "\n" promptstring))<br />   (setq old_error *error* *error* cs_error)<br />   (setq pt (grread t 12 2))<br />   (setq old_pt pt)<br />   (while (/= 3 (car pt))<br />     (if        (= 5 (car pt))<br />       (progn<br />         (setq pt (cadr pt))<br />         (setq ss (ssget pt FILTER))<br />         (if ss_name<br />           (redraw ss_name 4)<br />           )<br />         (setq ss_name nil)<br />         (if ss<br />           (progn<br />             (setq ss_name (ssname ss 0))<br />             (redraw ss_name 3)<br />             )<br />           )<br />         (setq pt (grread t 12 2))<br />                      (if (= (type (cadr pt)) 'LIST)<br />                        (setq old_pt pt)<br />                       )<br />         )<br />       (setq pt '(3))<br />       )<br />     )<br />   (if (= 3 (car pt))<br />     (setq pt old_pt)<br />     )<br />   (setq pt (cadr pt))<br />   (setq ss (ssget pt FILTER))<br />   (if ss_name<br />     (redraw ss_name 4)<br />   )<br />   (setq ss_name nil)<br />   (if ss<br />     (progn<br />       (setq ss_name (ssname ss 0))<br />       (list ss_name pt)<br />     )<br />     (eval ss_name)<br />   )<br /> )<br />

不好意思，程序有错误，现在改好了。

lijiao

最初由 gchen 发布
[B]我也发现了这个问题，在按鼠标右键是进入死循环。
我改成了退出。
程序如下：
[code]
(defun CS_ENTSEL (promptstring FILTER / pt ss_name ss old_pt)

(defun cs_error (msg)
  (if (member msg '("Functio... [/B]

进入死循环的原因是我不小心把括号的位置写错了，第9贴中不应该有问题。

gchen

我看这篇帖子的时候，第九帖还没有贴出来。我觉得这个程序不错，所以下载试用，然后
才发现的问题，等我改好了，再上来的时候，lijiao的第九帖已经发表了。但是和我改的不
一样，你改的是一直重新提示要选择，而我是退出，所以我还是把我改过的贴了出来，
并不是说你第9帖中有问题。请你不要误会。

lijiao

最初由 gchen 发布
[B]我看这篇帖子的时候，第九帖还没有贴出来。我觉得这个程序不错，所以下载试用，然后
才发现的问题，等我改好了，再上来的时候，lijiao的第九帖已经发表了。但是和我改的不
一样，你改的是一直重新提示要选择，而我... [/B]

谢谢你的关心。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
这个函数主要是想模拟ENTSEL，并具有智能提示作用，不应该叫作程序，所以不用加入错误处理代码等，程序调用它时，成功就返回正常值，否则就返回Nil，不要因为它终止整个程序，除非按下了ESC键。

aeo

还是不好,
'p  'zoom怎么办?

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

gchen

我开始的确是想把它用到我的程序里的，而且我的程序也想在点击右键的时候退出，所以我才这么改。
aeo的方法可能会不错，有时间我再想想。